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 ?

[shmia]

Zitat von Gruber_Hans_12345:

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

Hab in invoke folgendes probiert

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.

Ein Event in der OLE Automatisierung ist eine Einbahnstrasse.
Es können mehr als ein EventSink mit der Event-Source verbunden sein.
Deshalb können keine Parameter zurückgeliefert werden.

[Gruber_Hans_12345]

Zitat von shmia:

Ein Event in der OLE Automatisierung ist eine Einbahnstrasse.
Es können mehr als ein EventSink mit der Event-Source verbunden sein.
Deshalb können keine Parameter zurückgeliefert werden.

Bist du dir sicher ?
Warum ist Params dann ein var ?
Warum kann und hat der Parameter als Typ ByRef ($80) gesetzt wenn das sowieso nicht gehen sollte ?