Auf Event einer Komponente reagieren

[aegidos]

Hallo,
Ich verwende eine Komponente welche empfangene Nachrichten über TCPIP auswertet und dann Events abfeuert wenn diese assigned sind. Jedoch weiß ich nicht wie man an einem Event eine Methode aus einer anderen Unit anmeldet. Ich komme von C# und kenne das daher nur von delegates und Handlern. Wie mache ich also der Komponente welche nicht von mir implementiert ist klar, dass sie meine procedure startet?

die Komponente besitzt ein:
published property OnError : TErrorMessage read FOnError write FOnError; und ein switch case

Delphi-Quellcode:

...............
ERROR:
      begin
        if assigned(FKonsolenMemo) then
          FKonsolenMemo.Lines.Add('## TLogComponent: ERROR');

        if sl.Strings[1] = 'details' then
        begin
          if assigned(FOnError) then
            FOnError(self, sl.Strings[1], sl.Strings[3], sl.Strings[4], sl.Strings[5]);
        end
        else
        begin
          if assigned(FOnAppError) then
            FOnAppError(self, sl.Strings[1], sl.Strings[3], sl.Strings[4], sl.Strings[5]);
        end;
      end;
...

Meine Unit hat nun eine Methode welche genau dem OnError in der Schnittstelle gleichkommt. Schnittstelle von Komponente:

Delphi-Quellcode:

  TAppErrorMessage = procedure(Sender: TObject; te_id, err_id, prio, text : string
    ) of object;

Meine Unit:

Delphi-Quellcode:

   procedure LogComponentAppError(Sender: TObject; te_id, err_id, prio,
      text: String);

Implementiert.

Was ich nun möchte: Wenn in der verwendeten Komponente ein ERROR auftritt möchte ich das der FOnError-Event abgefeuert wird. Wie melde ich in meiner Unit die von mir geschriebene Prozedur am Event der Komponente an sodass meine Funktion bei einem eingehenden Fehler gerufen wird???
Vielen Dank schonmal!

[dataspider]

Hi,

Komponentenreferenz.OnError := LogComponentAppError; Frank

[DeddyH]

Deine Prozedur darf keine einfache Prozedur, sondern muss eine Methode sein. Anschließend genügt eine einfache Zuweisung.

Delphi-Quellcode:

type DeineClass = class
  ...
  procedure LogComponentAppError(Sender: TObject; te_id, err_id, prio,
      text: String);
  ...
end;

...
procedure DeineClass.LogComponentAppError(Sender: TObject; te_id, err_id, prio,
      text: String);
begin
 //Code
end;

Nun kannst Du diese Methode dem Handler der Komponente zuweisen.
Komponente.OnError := LogComponentAppError; Hth

[aegidos]

Danke,
Das ging ja einfacher als ich es erwartet hatte.
Nun ist mir geholfen und der Thread kann schon geschlossen werden
ich freu mich.
1000 Dank für die so schnelle Hilfe