UDP就比较简单了，放个按钮，一个TIdUDPServer
TIdUDPServer绑定 0.0.0.0:3820，然后Active设置为True
//发送按钮
procedure TForm1.Button1Click(Sender: TObject);
var
IdUDPClient1: TIdUDPClient; //动态创建TIdUDPClient
begin
IdUDPClient1:=TIdUDPClient.Create;
IdUDPClient1.BroadcastEnabled:=true;
try
IdUDPClient1.Port:=3820;
IdUDPClient1.Host:='127.0.0.1';
IdUDPClient1.Connect; //实际上就这三句
IdUDPClient1.Send('abcdefg.'); //2
IdUDPClient1.Disconnect; //3
finally
IdUDPClient1.Free;
end;
end;
//IdUDPServer1 绑定3820端口
//注意引用 IdSocketHandle, IdGlobal
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);
begin
Memo1.Lines.Add(BytesToString(AData)); //把接收的信息加到Memo1
end;