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.
Delphi-Quellcode:
procedure Delay(ms: Integer);
var start:longint;
begin
start:=abs(GetTickCount) + ms;
repeat
Application.ProcessMessages;
until abs(GetTickCount) > start;
end;
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