Nochwas:
Delphi-Quellcode:
Srv.Active := True;
Srv.Open;
Diese beiden Zeilen machen beide das gleiche. Eine davon reicht also aus.
Delphi-Quellcode:
repeat
//Writeln('WAITING FOR CONNECTION...');
Sleep(1);
application.processmessages;
until srv.fertig;
Die Sockets sind nicht umsonst event-driven, d.h. sie geben dir Bescheid, wenn was zu tun ist. Daher ist es unverständlich diesen Vorteil wieder auszumerzen in dem man wieder auf polling (ständiges abfragen in einer Schleife) zurück kommen sollte. Wenn, dann erzeuge ein Event wenn er fertig ist und mache entsprechende Aktionen.