Event Handler mehrfach konsumieren

[Kostas]

Hallo Zusammen,

die Frage vorab: ich erzeuge in ein DataModul ein Event und feuere ihn innerhalb des DataModuls.
Mehrere Forms sollen nun den gleichen Event registrieren und jedes für sich abhandeln. Wie macht man das richtig:
Meine Version funktioniert nicht sauber. Starte ich alle konsumierende Forms nur ein mal, funktioniert alles einwandfrei.
Sobald eine Form geschlossen wird, bekomme ich beim nächsten Event eine excetion "stack overflow"
Das hat sicherlich etwas zu tun da ich den Event vor den "verbiegen" speichere in SaveBarcodeEvent und beim Destroy wieder
zurücksetze. Die Frage ist, wie macht man das richtig?


... Das DataModul mit dem Event

Delphi-Quellcode:

type
  Tdm = class(TDataModule)
  private
    { Private-Deklarationen }
    FBarcode:String;
    FOnBarcodeEvent: TBarcodeEvent;
  public
    { Public-Deklarationen }
    property OnBarcodeEvent: TBarcodeEvent read FOnBarcodeEvent write FOnBarcodeEvent;
    procedure MyBarcodeEvent(Sender: TObject; Barcode:String);

  end;

procedure Tdm.VaComm1RxChar(Sender: TObject; Count: Integer);
begin
  ... 
  //Event feuern
  if Assigned(FOnBarcodeEvent)
  then FOnBarcodeEvent(Self, FBarcode);
  ... 
end;


procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  FOnBarcodeEvent := MyBarcodeEvent;

end;

procedure Tdm.MyBarcodeEvent(Sender: TObject; Barcode: String);
begin
  //Event wurde gefeuert
end;

...nun das Form welchen den Event konsumiert. Alle Forms die den gleichen Event konsumieren, haben den gleichen Aufbau.

Delphi-Quellcode:

type
  TfrForm1 = class(TForm)
  private
    { Private-Deklarationen }
    SaveBarcodeEvent:TBarcodeEvent;

    procedure MyBarcodeEvent(Sender: TObject; Barcode:String);

  public
    { Public-Deklarationen }
  end;

procedure TfrForm1.FormCreate(Sender: TObject);
begin
  inherited;
  SaveBarcodeEvent := dm.OnBarcodeEvent;
  dm.OnBarcodeEvent := MyBarcodeEvent;

end;

procedure TfrForm1.FormDestroy(Sender: TObject);
begin
  inherited;
  dm.OnBarcodeEvent := SaveBarcodeEvent;

end;

{}procedure TfrForm1.MyBarcodeEvent(Sender: TObject; Barcode:String);
begin
  if assigned(SaveBarcodeEvent)
  then SaveBarcodeEvent(Sender, Barcode);

  GetInfo(Barcode); 
end;

[himitsu]

SaveBarcodeEvent ist eine mit einem Zeiger, also kan durt nur eine Methode reinpassen.

Du brauchst eine "Liste" von solchen Zeigern

TList<TBarcodeEvent>

Und da kann man via Add was hinzufügen und per Remove wieder entfernen.

Beim Auslösen werden dann alle registrierten Methoden aufgerufen. (geht sehr gut via For-In)

[Kostas]

Zitat von himitsu:

SaveBarcodeEvent ist eine mit einem Zeiger, also kan durt nur eine Methode reinpassen.

Du brauchst eine "Liste" von solchen Zeigern

TList<TBarcodeEvent>

Und da kann man via Add was hinzufügen und per Remove wieder entfernen.

Beim Auslösen werden dann alle registrierten Methoden aufgerufen. (geht sehr gut via For-In)

Ich bin noch nicht dahintergekommen wie du es meinst.
Wo verwalte ich bitte die Liste im DataModul oder in jeder Form?
Oder gibt es eine elegantere Lösung für mein Vorhaben?
In C# ist es recht praktisch umgesetzt das registrieren und wieder deregistrieren.

[Edit] Ach du meinst wahrscheinlich im DataModul eine public Methode erstellen die die Events registiert
und dabei sie in die Liste einträgt oder?

Gruß Kostas

[himitsu]

Jupp, im Datenmodul.

Dort wollen sich ja die Forms registrieren und von dort aus sollen auch die Eventmethoden aufgerufen werden.

Der, Welcher aufrufen will, muß ja alles kennen.

[daywalker9]

In spring4D und DSharp gibt es die Multicast Events..

[dataspider]

Also, in DSharp ist das wirklich super gelöst.

Ich habe mal ein Beispiel einer einfachen Lösung angehangen.
Persönlich würde ich einen Observer nehmen.

Frank


[Edit]
Es würde natürlich Sinn machen, die Listener - Forms von einer Basis - Klasse abzuleiten.
[/EDIT]

[Kostas]

das ist natürlich der Königsweg. Tausend Dank Frank. Das kann ich komplett 1:1 übernehmen.
All die Jahre hatte ich keine Anforderung den gleichen Event aus mehreren Stellen zu konsumieren.
Deshalb habe ich mich auch nicht damit beschäftigt.

Und gleich mit funktionierendem Beispiel, ich bin begeistert.

Dir noch eine schöne Zeit.

Gruß Kostas

[Sir Rufo]

Den DSharp Multievent habe ich auch eine gewisse Zeit benutzt, aber dann wieder fallen gelassen, weil das bislang nur unter Windows funktioniert.

Bei mir werden jetzt Messages verschickt und das ohne eine spezielle Platformbindung.