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:

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. :roll:
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:

Zitat von shmia

Ein Event in der OLE Automatisierung ist eine Einbahnstrasse. :roll:
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 ?