Indy 100% Auslastung

[s.h.a.r.k]

Das ganze liegt daran, dass du in der OnExecute-Procedure des TIdTCPServer den folgenden Befehl einfügen musst - der wohl bemerkt immer ausgeführt werden muss!!!):

Delphi-Quellcode:

procedure TTCPServer.IdTCPServerOnExecute(AContext: TIdContext);
begin
 
  // HIER KOMMT DEIN CODE BEI EINER ABFRAGE VOM CLIENT


  // Diese Zeile bitte belassen - gegen 100% CPU-Auslastung
  SleepEx(1, True);
end