Ereignis in einer Unit zuweisen

[Int3g3r]

Guten Tag,

Ich möchte eine Unit schreiben die ich danach bei anderen Projekten wieder verwenden kann.
Diese Unit benutzt TidTCPServer.

Bei dem TidTCPServer gibt es ein OnExecute Event/Ereignis.

Wie lässt sich ein Ereignis im Programmcode zuweisen ? (Siehe Bild)

Da ich mich in einer Unit befinde kann ich den Objektinspektor nicht benutzen.
Ich möchte kein DataModul verwenden.
Dies Hilft meinem verständniss der Programmiersprachem, daher möchte ich dies hier ausprogrammieren.

Delphi-Quellcode:

procedure TServer.tcpServerExecute(AContext: TIdContext);
begin
   try
      AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; // uses IdGlobal
      AContext.Connection.IOHandler.ReadStrings(memMessage.Lines);
      AContext.Connection.IOHandler.WriteLn('#OK#');
   finally
      AContext.Connection.Disconnect;
   end;
end;

Danke für die Hilfe,
Int3g3r

[Der schöne Günther]

Delphi-Quellcode:

deinServer := TServer.Create();
deinTcpServer.OnExecute := deinServer.tcpServerExecute;

[Int3g3r]

Vielen Dank Günther,

Das was mich verwirrt hat ist die übergabe des Parameters.

procedure TServer.tcpServerExecute(AContext: TIdContext);

Habe es nie versucht ohne Parameter zuzuweisen.
Dazu wusste ich nicht was ich übergeben sollte.

Gruss,
Int3g3r

[Der schöne Günther]

Du willst ja nicht tcpServerExecute mit dem Parameter aufrufen, du willst ja eine Referenz auf tcpServerExecute "an sich" und dies dem OnExecute zuweisen.

[generic]

In meinen Youtube Kanal gibt es etwas was hier ganz gut passt:
https://www.youtube.com/watch?v=7PL_H2aBUOI

Kannst ja mal schreiben ob es dir hilft.

[Hobbycoder]

Du kannst natürlich in deiner eigenen Unit einen eigenen Event definieren

Delphi-Quellcode:

TOnServerExecute=procedure(AContext: TIdContext) of object;

Type
  TServer=class
  private 
    FOnServerExecute: TOnServerExecute;
  published
    property OnServerExecute: TOnServerExecute read FOnServerExecute write FOnServerExecute;
  end;

.
.
.

und dann im

Delphi-Quellcode:

procedure TServer.tcpServerExecute(AContext: TIdContext);
begin
   try
      AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; // uses IdGlobal
      AContext.Connection.IOHandler.ReadStrings(memMessage.Lines);
      AContext.Connection.IOHandler.WriteLn('#OK#');
      if Assigned(FOnServerExecute) then
        FOnServerExecute(AContext);
   finally
      AContext.Connection.Disconnect;
   end;
end;

über dieses Event das weitergeben.