Problem mit Indy TCP Server (Thread Timeout)

**omata**

Hallo Pascal,

da ich meine FH-Email zur Zeit nicht von zu hause abfragen kann, versuche ich Dir mal auf diesem Wege zu helfen...

Dein System hängt (und wirft dann eine Fehlermeldung), weil die einzelnen Anwendungen (Client/Server) auf einer Maschine laufen und sie nicht die Rechenzeit vom Betriebssystem bekommen, die nötig währen.
Wenn du eine Endlosschleife programmierst zieht sich dein Programm 100% der CPU. Da du hier alle Clients in einer Schleife ansprichst, muss du ihnen dann auch die Gelegenheit geben, die jeweiligen Anweisungen auszuführen. Das heißt du musst dem Betriebssysstem mitteilen, das dein Programm Rechenzeit für andere Anwendungen zur Verfühgung stellt. (also Application.ProzessMessages aufrufen).
Hier bietet sich ein multitaskingfähiges Delay an.

markieren

Delphi-Quellcode:

			procedure Delay(ms: Integer);

var start:longint;

begin

  start:=abs(GetTickCount) + ms;

  repeat

    Application.ProcessMessages;

  until abs(GetTickCount) > start;

end;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFserver.FormClose(Sender: TObject; var Action: TCloseAction);

var List:Tlist;

     i:integer;

begin

List:=idTCPServer.Threads.LockList;

//an Alle verbundenen Clients disconnect Befehl senden

for i:=0 to List.Count-1 do

  begin

   TidPeerThread(List.Items[i]).Stop;

   TidPeerThread(List.Items[i]).Connection.Disconnect;

   Delay(10); // ruf hier die neue Prozedur aufrufen

  end;

//Client liste freigeben

Clientlist.Free;

idTCPServer.Threads.UnlockList;

end;

Dann sollte das eigentlich gehen.

MfG
Thorsten

Problem mit Indy TCP Server (Thread Timeout)

Re: Problem mit Indy TCP Server (Thread Timeout)

Forumregeln