H
hfutzhu
Unregistered / Unconfirmed
GUEST, unregistred user!
我用with form1.IdTCPServer.Threads.LockList do
try
for i := 0 to Count-1 do
begin
TIdPeerThread(Items).Connection.Disconnect;
TIdPeerThread(Items).Terminate;
end;
Clear;
finally
form1.IdTCPServer.Threads.UnlockList;
end;
form1.IdTCPServer.Active :=false;
停止IdTCPServer的服务，但是当再次启动服务的时候 form1.IdTCPServer.Active :=true;
好几天了 都不知道怎么回事情啊??
try
for i := 0 to Count-1 do
begin
TIdPeerThread(Items).Connection.Disconnect;
TIdPeerThread(Items).Terminate;
end;
Clear;
finally
form1.IdTCPServer.Threads.UnlockList;
end;
form1.IdTCPServer.Active :=false;
停止IdTCPServer的服务，但是当再次启动服务的时候 form1.IdTCPServer.Active :=true;
好几天了 都不知道怎么回事情啊??