用INDY,with form1.IdTCPServer.Threads.LockList do
try
for i := 0 to Count-1 do
begin
TIdPeerThread(Items[I]).Connection.InputBuffer.Clear;
TIdPeerThread(Items[I]).Connection.Disconnect;
TIdPeerThread(Items[I]).Terminate;
end;
Clear;
finally
form1.IdTCPServer.Threads.UnlockList;
end;
form1.IdTCPServer.Active :=false;
end
当服务器端停止服务,当服务器不发送数据时候没问题,但是当发送数据时候,try
for k :=0 to count - 1 do
begin
TidPeerThread(IdTcpServer.Threads.LockList.Items[k]).Connection.WriteBuffer(sbuf,j+1);
end;
finally
idtcpserver.Threads.unLockList;
end;
按停止就死掉了,怎么回事呢???
try
for i := 0 to Count-1 do
begin
TIdPeerThread(Items[I]).Connection.InputBuffer.Clear;
TIdPeerThread(Items[I]).Connection.Disconnect;
TIdPeerThread(Items[I]).Terminate;
end;
Clear;
finally
form1.IdTCPServer.Threads.UnlockList;
end;
form1.IdTCPServer.Active :=false;
end
当服务器端停止服务,当服务器不发送数据时候没问题,但是当发送数据时候,try
for k :=0 to count - 1 do
begin
TidPeerThread(IdTcpServer.Threads.LockList.Items[k]).Connection.WriteBuffer(sbuf,j+1);
end;
finally
idtcpserver.Threads.unLockList;
end;
按停止就死掉了,怎么回事呢???
控件用多了,都不知道里面杂写的了。其实,写一次,第二次,你就可以直接用了。很方便!