1,317
社区成员
发帖
与我相关
我的任务
分享

void __fastcall TForm1::ButtonConnectClick(TObject *Sender)
{
if(ClientSocket1->Active)
{
ClientSocket1->Active=false;
}
if(InputQuery("连接到服务器","输入服务器的主机名",server))
{ if(server.Length()>0)
{
Button1->Enabled=false;
Button2->Enabled=true;
ClientSocket1->Active=true;
ClientSocket1->Address=server;
}
}
}

ClientSocket1->Address=server;
ClientSocket1->Active=true;