【控件功能】我来做练习-第16课-Delphi UDP server client example含广播

Delphi UDP server client example含广播

提示：UDP发送消息，含广播

核心源代码

提示：这里可以添加技术整体架构
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
with GStack.LocalAddresses do
begin
Memo2.Lines.Add('Available local IPs: ');
for i := 0 to Count - 1 do
// IdUDPServer1.Bindings.Add.IP := Strings[i];
Memo2.Lines.Add(Strings[i]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdUDPClient1.Broadcast(Edit2.Text, 65535, Edit1.Text,IndyTextEncoding_UTF8);
Memo1.Lines.Add('We broadcast: ’ + Edit2.Text)
end;

<