L
lannylanny
Unregistered / Unconfirmed
GUEST, unregistred user!
Execute部分
while (not Terminated) and ClientSocket.Connected do
if mysockets.WaitForData(60000) then
*****
我想停止ServerSocket服务，停掉所有线程， 结果要等很长时间才能停掉，有什么好的办法？
for i:= TheList.Count - 1 downto 0 do
TSocketThread(TheList.Items).Terminate;
SS.Socket.Close;
while (not Terminated) and ClientSocket.Connected do
if mysockets.WaitForData(60000) then
*****
我想停止ServerSocket服务，停掉所有线程， 结果要等很长时间才能停掉，有什么好的办法？
for i:= TheList.Count - 1 downto 0 do
TSocketThread(TheList.Items).Terminate;
SS.Socket.Close;