循环等待20秒:
var
dwStart,dwStartAll:DWORD;
dwStart:=GetTickCount;
bRet:=False;
while ( GetTickCount-dwStart )<20*1000 do
begin
sErr:='';
bRet:=g_dtCls.CheckServerIsConnected(msgRecv.autoId,sErr);
if bRet then
begin
AddLog('连接成功');
Break;
end;
end;