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;