关闭服务端,客户端CPU就会到100%,而且重新打开服务端无效
代码如下,5秒钟连接一下,如果服务端一直开着没问题,但是如果关闭服务端,客户端CPU就会到100%,而且重新打开服务端,客户端也无法连接。。
procedure TServerForm.Timer1Timer(Sender: TObject);
begin
try
if not IdTCPClient1.Connected then
begin
if ConRpcport(IdTCPClient1) then
begin
if not IdTCPClient1.Connected then exit;
SendStreamToClient(IdTCPClient1,'000',Servername+#13+GetOSName(GetOSVersion));
ClientHandleThread:=TClientHandleThread.Create;
end;
end;
except
end;
end;