Interface Methode als Parameter übergeben

[freimatz]

Sehe ich auch so.
Dazu noch ein Hinweis: mache statt "TMeineFunktion = function" besser "TMeineFunktion = reference to function". Das ist dann universeller verwendbar. (Mehr dazu hier.)

[t2000]

Hier nochmal ein paar Hintergründe dazu.
Ich nutze verschiedene TMS REST-Server. Die Schnittstelle auf der Clientseite ist pro Server eine Unit mit einem Interface, welches Funktionen des REST-Servers zur Verfügung stellt. Diese Funktionen hab ich auf der Serverseite programmiert und wird vom Client aufrufen.

Eine Funktionsschnittstelle als Beispiel (Definition/Deklaration auf Server und Client verfügbar):

Delphi-Quellcode:

  IPubFunc = interface(IInvokable)
    ['{FBA5E9E9-87FC-4501-A10E-757218094BF8}']

    function InstallEvent    ( const Param: TJSONObject)  : TJSONObject;  // Para: ProducerID, ProducerName, Eventname
    function UninstallEvent  ( const Param: TJSONObject)  : TJSONObject;  // Para: EventID, Force
    function SubscribeEvent  ( const Param: TJSONObject)  : TJSONObject;  // Para: EventID, SubscriberID, Important, Priority, CallbackURL
    function UnsubscribeEvent( const Param: TJSONObject)  : TJSONObject;  // Para: EventID, SubscriberID
    function CancelSubscriber( const Param: TJSONObject)  : TJSONObject;  // Para: SubscriberID
    function FireEvent       ( const Param: TJSONObject)  : TJSONObject;  // Para: EventID, Data
  end;

Am Client habe ich einen XDataClient.
xClient : TXDataClient; // =TMS-Object Dieser hat eine Funktionsschnitstelle

Delphi-Quellcode:

var 
  xPubFunc : IPubFunc;
begin
  xPubFunc := xClient.Service<IPubFunc>;

Wenn ich nun die unterschiedlichen Funktionen aufrufen möchte habe ich (bei mir) ca. 20 Zeilen Overhead.
Darin befindet sich dieser Aufruf
json := xPubFunc.InstallEvent(jsonPara); wobei "json" und "jsonpara" jeweils TJSONObject Variablen sind.

Da alle Aufrufe der unterschiedlichen REST-Server und auch der unterschiedlichen Funktionen identisch sind (Errorhandling, Datenkonvertierung, usw), wäre eine einzelne Funktion für alle Aufrufe sehr hilfreich. Dynamisch sind ja nur der JSON-Parameter und das jeweilige Interface mit der entsprechenden Funktion.

Soviel mal zum Hintergrund. Die TMS Sourcen möchte ich natürlich nicht ändern. Das ganze läuft soweit super gut.

Ich werde jetzt mal eure Hinweise durchgehen und das eine oder andere ausprobieren.

Viele Dank schon mal.

Thomas

[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.