Interface Methode als Parameter übergeben

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