Hallo
Bei einem Sink werden mir verschiedene Parameter übergeben. Unter underem ist unter den Parametern auch ein VariantArray dabei. Wie kann ich dieses aus den PDispParams extrahieren?
Delphi-Quellcode:
function TEventSink.Invoke(DispID: integer; const IID: TGUID; LocaleID: integer; Flags: Word; var Params; VarResult,ExcepInfo,ArgErr:Pointer): HResult;
var
pdpParams: PDispParams;
FloNr : integer;
VarArray : OleVariant;
begin
Result := S_OK;
pdpParams := @Params;
case DispID of
1:
begin
FloNr := pdpParams^.rgvarg^[1].lVal;
VarArray := pdpParams^.rgvarg^[0].parray;
end;
end:
.
.
.
end;
Das Codesück produziert fehler bzw, VarArray ist NIL.
Wie kann ich das array erhalten?
Danke und Gruss
Tom