Multicast Events

[himitsu]

Man bekommt den Owner und die Methode zusammen übergeben?

Delphi-Quellcode:

constuctor TEventHandler<T>.Create(OwnerMethod: T; AddEvents: array of T);
begin
  inherited Create(TComponent(TMethod(OwnerMethod).Data));  // Owner
  for M in AddEvents do
    Add(M);
end;

statt

Delphi-Quellcode:

eventHandler := TEventHandler<TNotifyEvent>.Create(Button1);
eventHandler.Add(ClickHandler1);
eventHandler.Add(ClickHandler2);
Button1.OnClick := eventHandler.Invoke;

einfach

Delphi-Quellcode:

eventHandler := TEventHandler<TNotifyEvent>.Create(Button1.OnClick);
eventHandler.Add(ClickHandler1);
eventHandler.Add(ClickHandler2);

oder gar so
TEventHandler<TNotifyEvent>.Create(Button1.OnClick, [ClickHandler1, ClickHandler2]); .

In dem TMethod (Button1.OnClick) steckt ja schon alles drin > die aufzurufende Methode und das Objekt, welches man als Owner verwenden kann.

Ja, ich geb's zu ... ich bin ein schreibfauler Programmierer , aber ich steh dazu

[JamesTKirk]

Zitat von himitsu:

Man bekommt den Owner und die Methode zusammen übergeben?

Delphi-Quellcode:

constuctor TEventHandler<T>.Create(OwnerMethod: T; AddEvents: array of T);
begin
  inherited Create(TComponent(TMethod(OwnerMethod).Data));  // Owner
  for M in AddEvents do
    Add(M);
end;

statt

Delphi-Quellcode:

eventHandler := TEventHandler<TNotifyEvent>.Create(Button1);
eventHandler.Add(ClickHandler1);
eventHandler.Add(ClickHandler2);
Button1.OnClick := eventHandler.Invoke;

einfach

Delphi-Quellcode:

eventHandler := TEventHandler<TNotifyEvent>.Create(Button1.OnClick);
eventHandler.Add(ClickHandler1);
eventHandler.Add(ClickHandler2);

oder gar so
TEventHandler<TNotifyEvent>.Create(Button1.OnClick, [ClickHandler1, ClickHandler2]); .

In dem TMethod (Button1.OnClick) steckt ja schon alles drin > die aufzurufende Methode und das Objekt, welches man als Owner verwenden kann.

Ja, ich geb's zu ... ich bin ein schreibfauler Programmierer , aber ich steh dazu

Mich würde es ehrlich gesagt sehr wundern, wenn das funktioniert...

Wenn ich so einen TEventHandler erzeuge, so möchte ich den doch einem Event zuweisen, welches bisher noch kein Event zugewiesen hat, also bei dem folgendes zutrifft:

Delphi-Quellcode:

TMethod(OnClick).Code = Nil
TMethod(OnClick).Data = Nil

Selbst wenn jedoch bereits ein Event an mein OnClick zugewiesen ist, enthält TMethod(OnClick).Data jedoch eine Referenz auf das Objekt, dem der Eventhandler gehört, nicht jedoch zu dem Objekt, welches die Eventeigenschaft hat...

Im Code:

Delphi-Quellcode:

Button1.OnClick := Form1.HandleOnClick;

Assert(TMethod(Button1.OnClick).Data = Button1); // schlägt fehl
Assert(TMethod(Button1.OnClick).Data = Form1); // erfolgreich

Wenn ich nicht die ganzen letzten Jahre das Konzept von TMethod missverstanden hab, dann kann deine Unterstützung der Schreibfaulheit nicht funktionieren.

Gruß,
Sven

[Stevie]

Der zweite Vorschlag mit dem Array an EventHandlern find ich gut.

Das andere funktioniert allerdings nicht, da du dazu eine Referenz auf die Property und nicht den Inhalt übergeben müsstest, und das geht in Delphi nunmal nicht (zumindest nicht auf diesem Wege)

P.S.:
Mit dem überladenen Konstruktor geht aber immerhin folgendes, was auch nicht viel kürzer ist, als das, was du erreichen wolltest:

Delphi-Quellcode:

Button1.OnClick := TEventHandler<TNotifyEvent>.Create(
  Button1, [ClickHandler1, ClickHandler2]).Invoke;

P.P.S: Das inherited in dem Konstruktor ist übrigens fehl am Platze.

[s.h.a.r.k]

Was hälst du von der Idee:

Delphi-Quellcode:

// Zwei Listener hinzufügen, können auch beliebig viele sein
EventHandler.Add(Button1.OnClick, MethodA, MethodB);

// Weiteren Listener hinzufügen
EventHandler.Add(Button1.OnClick, MethodC);

// Einen Listener entfernen, können evtl. auch mehrere sein
EventHandler.Remove(Button1.OnClick, MethodA);

// Alle Listener entfernen
EventHandler.Remove(Button1.OnClick);

Eine Instanz des EventHandlers gibt es somit zur gesamten Laufzeit, welche dann die Aufrufe intern "verknüpft". Problem hierbei ist, dass der Compiler nicht prüfen kann, ob die Parameter von OnClick und MethodA übereinstimmen. Wobei ich mir das sehr bequem vorstellen kann, zumal es etwas weniger Schreibarbeit ist

-- EDIT

Mit den Generics kann man auch noch dem Compiler das Meckern beibringen:

Delphi-Quellcode:

procedure EventHandler.Add<T>(const Source: T; const Dest: T);
begin
end;

EventHandler.Add<TNotifyEvent>(Button1.OnClick, MethodA);

[Stevie]

Wenn man Properties (und darum handelt es sich bei Button1.OnClick) an eine Methode übergibt, dann geht das nur call by value und nicht call by reference (was du hier bräuchtest).

[ToFaceTeKilla]

Hiho,

auch wenn der Thread schon wieder etwas älter ist, hab ich mal eine Frage dazu:

Ich benutze die von Stevie bereitgestellte Unit um in einer von TClientSocket abgeleiteten Komponente mehrere Eventhandler für OnDisconnect und OnError zu ermöglichen.
Hintergrund ist, dass ich möchte, dass die Komponente in diesen beiden Events automatisch reconnectet (ohne Fehlermeldung) und gleichzeitig noch andere Eventhandler darauf registriert werden können.
Dafür muss ich im OnError den ErrorCode, welcher ein var-Parameter ist, auf 0 setzen. Beim Schreiben tritt allerdings eine AV auf.

Nun die Frage: Woran könnte das liegen und lässt sich das irgendwie beheben?

Vielen Dank für die Aufmerksamkeit

[BlueStarHH]

Hi,

gibt es in aktuellen Delphi-Versionen schon Multicast-Events oder muss man immer noch diese Unit nutzen?

Danke und Gruß

[Rollo62]

Ich würde mal im aktuellen (durchaus im Dev-Zweig) von Spring4D von Stefan nachschauen.
https://bitbucket.org/sglienke/sprin...ing.Events.pas

Das ist auf jeden Fall der amtliche MultiCast