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.
Habe mal mit Variant versucht, aber irgendwie klappt es nicht.
Ich bin immer noch am nachdenken, aber ich habe keine Idee mehr.

Kann mir jemand weiterhelfen?
Tom