UDP发送中文
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
udp.Send('localhost', 1234, 'abc123'); // 发送字符， 这样发中文接收方会乱码
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
b: TBytes;
s: string;
begin
s := '你好';
b := BytesOf(s);
udp.SendBuffer('localhost', 1234, TIdBytes(b)); // TIdBytes要引用IdGlobal.pas单元
end;