procedure TThreadCheckConn.ShowConnState;
var
i : integer;
begin
//检查IdTcpClient的连接状态,如果没有连接,则连接
try
{****** 下面的这个判断怎么在Server程序关闭后却总是为真呢 *******}
if not (FrmMain.IdTCPClient.Connected) then
FrmMain.IdTCPClient.Connect(500);
except
FrmMain.StatusBar.Panels[2].Text:='与采集端连接失败'
end;
end;