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