Hai Chris,
die
TIdTCPServer Kompo hat ein Event mit dem Namen:
OnExecute. Dort bekommst Du
AThread vom Typ TIdPeerThread.
Und jetzt.... achtung......es geht los....
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
msg : String;
begin
msg := aThread.Connection.ReadLn;
end;
P.S.: Bei den Demos für die Indys ist auch ein Chat dabei.
Stephan B.
"Lasst den Gänsen ihre Füßchen"