Einzelnen Beitrag anzeigen

nebukadnezzar

Registriert seit: 18. Dez 2002
38 Beiträge
 
Delphi 6 Personal
 
#2
  Alt 13. Feb 2003, 17:32
also ich hab versucht einfach mal alle clients versucht zu disconnecten
mit folgendendem code:

Delphi-Quellcode:
Procedure TfrmServer.Disconnectall;
var i:integer;
Begin
    try
     with server.Threads.LockList do
     For i:=0 to count -1 do
      tidpeerthread(Items[i]).connection.Disconnect;
    finally
      server.threads.unlocklist;
    end;
End;
bekomme bei allein dieser Procedure schon ein Read Timeout!
und der ondisconnect event funzt auch net
  Mit Zitat antworten Zitat