本文介绍了一个简单的UDP客户端与服务器之间的通信示例。客户端通过发送特定消息到指定的服务器地址和端口进行连接，并随后断开连接；服务器端则负责监听指定端口上的消息并将其显示出来。
客户端发送 procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
idudpclient1.Host:='127.0.0.1';
idudpclient1.Port:=9002;
idudpclient1.Send('aaaaa');
idudpclient1.Disconnect;
end; procedure 服务器端的监听与接受 TMainForm.BitBtn3Click(Sender: TObject); begin idudpserver1.DefaultPort:=9002; idudpserver1.Active:=true; end; procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle); var str:string absolute AData; begin try Mem_content.Lines.Add(str); except end; end;
begin
idudpclient1.Host:='127.0.0.1';
idudpclient1.Port:=9002;
idudpclient1.Send('aaaaa');
idudpclient1.Disconnect;
end; procedure 服务器端的监听与接受 TMainForm.BitBtn3Click(Sender: TObject); begin idudpserver1.DefaultPort:=9002; idudpserver1.Active:=true; end; procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle); var str:string absolute AData; begin try Mem_content.Lines.Add(str); except end; end;
扫一扫
1588
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
