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;

轉載于:https://www.cnblogs.com/tinghae/p/3462280.html

總結

以上是生活随笔為你收集整理的indy10 UDP实例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。