Kann mir jemand helfen, ich habe in der Funktion
Delphi-Quellcode:
procedure TServer.run;
var client : TcpClient;
begin
while(true) do begin
// Wartet auf eingehenden Verbindungswunsch
client := listener.AcceptTcpClient();
// Initialisiert und startet einen Server-Thread
// und fügt ihn zur Liste der Server-Threads hinzu
serverThreads.Add(TServerThread.Create(client));
end;
end;
100% CPU Last, wenn er auf einen Client wartet...
danke,
winx