try
SocketConnection1.Connected:=false;
SocketConnection1.Host:=HostName;
SocketConnection1.Connected:=true;
SocketConnection2.Connected:=false;
SocketConnection2.Host:=HostName;
SocketConnection2.Connected:=true;
except
ShowMessage('提示:连接不到服务器,请检查网络!');
Application.Terminate;
end;
SocketConnection1.Connected:=false;
SocketConnection1.Host:=HostName;
SocketConnection1.Connected:=true;
SocketConnection2.Connected:=false;
SocketConnection2.Host:=HostName;
SocketConnection2.Connected:=true;
except
ShowMessage('提示:连接不到服务器,请检查网络!');
Application.Terminate;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货