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!