1,316
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender, TCustomWinSocket *Socket)
{
if(ClientSocket1->Active == true)
{
ClientSocket1->Active = false;
}else
{
//ClientSocket1->Free();
ClientSocket1->Close();
UnicodeString serverIp = "127.0.0.1";
ClientSocket1->Host = serverIp; //设置要访问的主机
ClientSocket1->Open();
try{
if(ClientSocket1->Active == false)
{
throw Exception("");
}
}catch(Exception &e)
{
ShowMessage("断开连接");
ClientSocket1->Close();
ClientSocket1->Active = false;
}
}
}