VariantArray aus PDispParams erhalten

[tgoessi]

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

[tgoessi]

Ich kann es leider immer noch nicht extrahieren. :wall:
Habe mal mit Variant versucht, aber irgendwie klappt es nicht. :freak:
Ich bin immer noch am nachdenken, aber ich habe keine Idee mehr. :gruebel:

Kann mir jemand weiterhelfen?
Tom