Einzelnen Beitrag anzeigen

tgoessi

Registriert seit: 31. Mai 2005
34 Beiträge
 
Delphi 5 Enterprise
 
#1

VariantArray aus PDispParams erhalten

  Alt 21. Jun 2005, 16:13
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
  Mit Zitat antworten Zitat