Einzelnen Beitrag anzeigen

Int3g3r

Registriert seit: 28. Nov 2018
Ort: Schweiz
118 Beiträge
 
Delphi 10.3 Rio
 
#1

Ereignis in einer Unit zuweisen

  Alt 23. Jun 2020, 17:51
Delphi-Version: 5
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
Miniaturansicht angehängter Grafiken
unitevent.jpg  
  Mit Zitat antworten Zitat