TuniConnection

[mkinzler]

Oder man verwendet eine anonyme Methode:

Delphi-Quellcode:

connect.OnConnectionLost := procedure (Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
begin
  RetryMode := rmReconnectExecute;
end;

[himitsu]

Aber nicht laut der Deklaration.
http://www.devart.com/unidac/docs/in...ficoptions.htm

Für mich sieht das nur nach einer Methode aus.
Und wenn anonyme Methoden gehen würden, dann hätte man auch die Prozedur zuweisen können, da derartige Referenzen/Zeiger alle 3 Varianten enthalten können.

[mkinzler]

Lut Delphihilfe sollte es funktionieren:

http://docwiki.embarcadero.com/RADSt...onyme_Methoden

[Sir Rufo]

Zitat von mkinzler:

Lut Delphihilfe sollte es funktionieren:

http://docwiki.embarcadero.com/RADSt...onyme_Methoden

Wo steht das da?

Dort wird nur der umgekehrte Fall beschrieben

Delphi-Quellcode:

type
  TFoo = class
    procedure Bar( Sender : TObject );
  end;

procedure Bar( Sender : TObject );
begin
end;

procedure test;
var
  LEvent : TNotifyEvent;
  LProc : TProc<TObject>;
  LFoo : TFoo;
begin
  LProc := LFoo.Bar;
  LProc := Bar;
  LProc := procedure ( Sender : TObject ) 
  begin
  end;

  LEvent := LFoo.Bar;
  // der Rest geht nicht
  LEvent := Bar;
  LEvent := procedure ( Sender : TObject )
  begin
  end;
end;

[himitsu]

Technisch wäre es möglich, wenn für die anonyme Methode (welche intern ein Interface ist) je ein virtueller Prozedurzeiger erzeugt würde, für Prozeduren und eventuell auch für Methoden,
aber mir ist noch nicht bekannt, daß Emba bereits auf diese Idee gekommen ist. (TMethodImplementation)
Beim virtuellen Methodenzeiger könnte man das Interface im Data-Teil des Zeigers verstecken, also da wo bei Methoden die Objektinstanz und bei Klassenmethoden der Klassentyp steckt.

Wobei die eigentlich absichtlich nicht darauf gekommen sind, denn für das Interface gibt es in den Methoden und Prozedurzeigern ein klitzekleines Problem, mit der fehlenden Referenzzählung in diesen Zeigern.
Via ARC könnte man das maximal bei Methodenzeigern implementieren, fals Emba dort die Referenz ordentlich zählt.
Aber zumindestens vom RTL-Quellcode sieht es grade danach aus, als wenn Emba im ARC einen Bug hat, da es nicht so aussieht, als wenn Methodenzeiger (genauer TMethod.Data) keine Referenzzählung besitzen, obwohl sie zu über 90% eine Objektreferenz enthalten.

Also aktuell geht es IMHO nur so:
reference to procedure <= anonyme Methode, Methode, Klassenmethode, statische Klassenmethode oder Prozedur
procedure of object <= Methode oder Klassenmethode
procedure <= Prozedur oder statische Klassenmethode

[Mschmidt]

Das Problem liegt daran, dass die zuweisende Methode KEINE Klassenmethode ist.

also statt
(T)Uniconnection.<Event>:= EventMethode musse

(T)UniConnection.<Event>:= <Class>.EventMethode stehen,

Grüsse
Mschmidt