Examples with Variant com.sun.jna.platform.win32.Variant used on opensource projects

Example 11 with Variant

use of com.sun.jna.platform.win32.Variant in project jna by java-native-access.

the class COMBindingBaseObject method oleMethod.

protected HRESULT oleMethod(int nType, VARIANT.ByReference pvResult, IDispatch pDisp, DISPID dispId, VARIANT[] pArgs) throws COMException {
    if (pDisp == null)
        throw new COMException("pDisp (IDispatch) parameter is null!");
    // variable declaration
    int _argsLen = 0;
    VARIANT[] _args = null;
    DISPPARAMS.ByReference dp = new DISPPARAMS.ByReference();
    EXCEPINFO.ByReference pExcepInfo = new EXCEPINFO.ByReference();
    IntByReference puArgErr = new IntByReference();
    // make parameter reverse ordering as expected by COM runtime
    if ((pArgs != null) && (pArgs.length > 0)) {
        _argsLen = pArgs.length;
        _args = new VARIANT[_argsLen];
        int revCount = _argsLen;
        for (int i = 0; i < _argsLen; i++) {
            _args[i] = pArgs[--revCount];
        }
    }
    // Handle special-case for property-puts!
    if (nType == OleAuto.DISPATCH_PROPERTYPUT) {
        dp.setRgdispidNamedArgs(new DISPID[] { OaIdl.DISPID_PROPERTYPUT });
    }
    // Build DISPPARAMS
    if (_argsLen > 0) {
        dp.setArgs(_args);
        // write 'DISPPARAMS' structure to memory
        dp.write();
    }
    // Apply "fix" according to
    // https://www.delphitools.info/2013/04/30/gaining-visual-basic-ole-super-powers/
    // https://msdn.microsoft.com/en-us/library/windows/desktop/ms221486(v=vs.85).aspx
    //
    // Summary: there are methods in the word typelibrary that require both
    // PROPERTYGET _and_ METHOD to be set. With only one of these set the call
    // fails.
    //
    // The article from delphitools argues, that automation compatible libraries
    // need to be compatible with VisualBasic which does not distingish methods
    // and property getters and will set both flags always.
    //
    // The MSDN article advises this behaviour: "[...] Some languages cannot 
    // distinguish between retrieving a property and calling a method. In this 
    //case, you should set the flags DISPATCH_PROPERTYGET and DISPATCH_METHOD.
    // [...]"))
    //
    // This was found when trying to bind InchesToPoints from the _Application 
    // dispatch interface of the MS Word 15 type library
    //
    // The signature according the ITypeLib Viewer (OLE/COM Object Viewer):
    // [id(0x00000172), helpcontext(0x09700172)]
    // single InchesToPoints([in] single Inches);
    final int finalNType;
    if (nType == OleAuto.DISPATCH_METHOD || nType == OleAuto.DISPATCH_PROPERTYGET) {
        finalNType = OleAuto.DISPATCH_METHOD | OleAuto.DISPATCH_PROPERTYGET;
    } else {
        finalNType = nType;
    }
    // Make the call!
    HRESULT hr = pDisp.Invoke(dispId, new REFIID(Guid.IID_NULL), LOCALE_SYSTEM_DEFAULT, new WinDef.WORD(finalNType), dp, pvResult, pExcepInfo, puArgErr);
    COMUtils.checkRC(hr, pExcepInfo, puArgErr);
    return hr;
}

Example 12 with Variant

use of com.sun.jna.platform.win32.Variant in project jna by java-native-access.

the class MSWord method insertText.

public void insertText(String text) throws COMException {
    Selection pSelection = new Selection(this.getAutomationProperty("Selection", this.getIDispatch()));
    this.invokeNoReply("TypeText", pSelection, new VARIANT(text));
}

Example 13 with Variant

use of com.sun.jna.platform.win32.Variant in project jna by java-native-access.

the class MSWord method Save.

public void Save(boolean bNoPrompt, LONG originalFormat) throws COMException {
    VARIANT vtNoPrompt = new VARIANT(bNoPrompt);
    VARIANT vtOriginalFormat = new VARIANT(originalFormat);
    this.invokeNoReply("Save", this.getDocuments(), vtNoPrompt, vtOriginalFormat);
}

Example 14 with Variant

use of com.sun.jna.platform.win32.Variant in project jna by java-native-access.

the class Excelautomation_KB_219151_Mod method safeVariantArrayFromJava.

private static SAFEARRAY safeVariantArrayFromJava(String[][] data) {
    // The data array is defined/stored row major, while excel expects the
    // data column major, so this method also transposes the matrix
    OaIdl.SAFEARRAY wrapped = OaIdl.SAFEARRAY.createSafeArray(data[0].length, data.length);
    // VARIANT is java allocated and will be freed by GC
    VARIANT var = new VARIANT();
    for (int i = 0; i < data.length; i++) {
        for (int j = 0; j < data[0].length; j++) {
            // BSTR is allocated by java and will be freed by GC
            var.setValue(Variant.VT_BSTR, new BSTR(data[i][j]));
            wrapped.putElement(var, j, i);
        }
    }
    return wrapped;
}

Example 15 with Variant

use of com.sun.jna.platform.win32.Variant in project jna by java-native-access.

the class IFileSystem3 method testConvertEnum.

@Test
public void testConvertEnum() {
    TestEnum testEnum = TestEnum.Val2;
    VARIANT resultEnum = Convert.toVariant(testEnum);
    assertEquals((int) testEnum.getValue(), resultEnum.intValue());
    assertEquals((int) testEnum.getValue(), Convert.toJavaObject(resultEnum, Object.class, fact, false, false));
    assertEquals(testEnum, Convert.toJavaObject(resultEnum, TestEnum.class, fact, false, false));
}