OLE / VarDispInvoke

[Gruber_Hans_12345]

Zitat von sirius:

Und nochmal zum Verständnis:

Die VarDispInvoke aus der Unit ComObj gefällt dir nicht, weil man die nicht so simpel aufrufen kann?

Gerade probiert, aber funkt auch nicht ...

Delphi-Quellcode:

    
    fieldName := 'field';

    CallDesc.CallType := DISPATCH_PROPERTYPUT;
    CallDesc.ArgCount := 2;  // Value + Parameter
    CallDesc.NamedArgCount := 0;

    CopyMemory(@CallDesc.ArgTypes[2], @fieldName[1], length(fieldName));

    CallDesc.ArgTypes[0]    := varInteger;
    CallDesc.ArgTypes[1]    := varInteger;

    Param    := 12;
    Move(Param, ParamTypes[0], 4);
    Param    := 7;
    Move(Param, ParamTypes[4], 4);

    //VarDispInvoke(nil, oleObject, @CallDesc, @ParamTypes[0]);
    VarDispProc(nil, oleObject, @CallDesc, @ParamTypes[0]);

Es kommt übrigens kein Fehler, es wird einfach der Parameter nicht gesetzt ....