Interface Methode als Parameter übergeben

[himitsu]

reference-to funktioniert aber bei Interface-Methoden nicht.

Bei IDispatch/OleVariant ginge etwas, da diese Interfaces Funktionen zum Auflösen von Methoden-Namen besitzen (DispInvoke).

Bei normalen/einfachen Interfaces könntest du noch über die RTTI gehen, also Interface-Zeiger plus Methoden-Index oder -Name zu übergeben und es darüber aufzurufen.

[Uwe Raabe]

Ist nur so eine Idee:

Delphi-Quellcode:

type
  TJSONObjectFunc = reference to function( const Param: TJSONObject): TJSONObject;// of object;

type
  TPubFunc = record
    class function InstallEvent(Target: IPubFunc): TJSONObjectFunc; static;
    class function UninstallEvent(Target: IPubFunc): TJSONObjectFunc; static;
    class function SubscribeEvent(Target: IPubFunc): TJSONObjectFunc; static;
    class function UnsubscribeEvent(Target: IPubFunc): TJSONObjectFunc; static;
    class function CancelSubscriber(Target: IPubFunc): TJSONObjectFunc; static;
    class function FireEvent(Target: IPubFunc): TJSONObjectFunc; static;
  end;

implementation

class function TPubFunc.InstallEvent(Target: IPubFunc): TJSONObjectFunc;
begin
  Result := function(const Param: TJSONObject) : TJSONObject
    begin
      Result := Target.InstallEvent(Param);
    end;
end;

{ analog für die anderen Methoden }

Aufruf dann so:

Delphi-Quellcode:

procedure HandlePubFunc(xPubFunc: IPubFunc; AFunc: TJSONObjectFunc);
begin
  ...
  json := AFunc(jsonPara);
  ...
end

var
  xPubFunc : IPubFunc;
begin
  xPubFunc := xClient.Service<IPubFunc>;
  HandlePubFunc(xPubFunc, TPubFunc.InstallEvent(xPubFunc));
  ...

  HandlePubFunc(xPubFunc, TPubFunc.FireEvent(xPubFunc));
  ...
end;

[himitsu]

Das HandlePubFunc würde ich aber in TPubFunc mit integrieren.
Dort drin nicht nur die WrapperFunktion zurückgeben, sondern es direkt ausführen.

[Uwe Raabe]

Zitat von himitsu:

Das HandlePubFunc würde ich aber in TPubFunc mit integrieren.

Würde ich eben gerade nicht machen. Es kann ja durchaus mehrere HandlePubFunc geben. Das HandlePubFunc könnte ja auch völlig unabhängig von IPubFunc sein (dann sollte es natürlich anders heißen) und lediglich eine TJSONObjectFunc als Parameter benötigen. Können wir ja hier nicht wissen was da alles drin passiert.

Delphi-Quellcode:

procedure HandleJSONObject(AFunc: TJSONObjectFunc);
begin
  ...
  json := AFunc(jsonPara);
  ...
end

var
  xPubFunc : IPubFunc;
begin
  xPubFunc := xClient.Service<IPubFunc>;
  HandleJSONObject(TPubFunc.InstallEvent(xPubFunc));
  ...

  HandleJSONObject(TPubFunc.FireEvent(xPubFunc));
  ...
end;

[t2000]

Also ich habe jetzt die "häßliche" Methode von Uwe ausprobiert ... und .. es funktioniert eigentlich sehr gut.
Für's erste werde ich das so mal lassen, aber unter "Beobachtung" halten.
Vielen Dank euch allen.

[Uwe Raabe]

Zitat von t2000:

Also ich habe jetzt die "häßliche" Methode von Uwe ausprobiert ... und .. es funktioniert eigentlich sehr gut.

Na ja, das ist doch das mindeste was man von von einer unschönen Lösung erwarten kann. Andernfalls wäre sie ja auch noch nutzlos.