OLE Automatisierung / Events ParamByRef

[Gruber_Hans_12345]

Hallo

Wie kann ich bei einer OLE Automatisierung einen Parameter zurückgeben ?

Hab in invoke folgendes probiert

Delphi-Quellcode:

    
function TEventSink.Invoke(DispID: integer; const IID: TGUID; LocaleID: integer; Flags: Word; var Params; VarResult,ExcepInfo,ArgErr:Pointer): HResult;
var Args        : PVariantArgList;
begin
  Result := S_OK;
  if DispID = 3 then begin
    Args        := TDispParams(Params).rgvarg;

    // PInteger(varResult)^      := 0;
    Args^[0].vBool  := False;
  end;
end;

Die funktion hat drei paramter der letzte (sollte ja dann [0] sein) ist ein Boolean, ob die funktion am OLE Server ausgeführt werden soll oder nicht.

Hat jemand eine Idee warum es nicht so funktioniert ?