【无标题】IdUDPServer和IdUDPClient的BCB案例

VIP文章 kuliuyisi

已于 2022-09-27 12:30:16 修改

阅读量290

点赞数

文章标签：前端服务器 c++

于 2022-09-27 12:29:37 首次发布

本文链接：https://blog.csdn.net/kuliuyisi/article/details/127069210

版权

Sever端：
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
IdUDPServer1->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender,
TStream *AData, TIdSocketHandle *ABinding)
{
TStringStream *DataStringStream = new TStringStream(AData->Size);
DataStringStream->CopyFrom(AData,AData->Size);//接收数据
AcceptContentMemo->Lines->Add(“从地址：” + ABinding->PeerIP + " 端口：" + IntToStr(ABinding->PeerPort) + " 接收到：" + DataStringStream->DataString);
ABinding->SendTo(ABinding->PeerIP,ABinding->PeerPort,“success”,7);//发回执
delete DataStringStream;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TO