Question

delphi UDP 怎么发送中文

代码如下，当直接把‘我是UDP123’发给对方的时候就没问题，如果把string转成ansichar再发送就识别不了中文why，代码如下（delphi xe2,indy10 idudpserver控件）：
发送：
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
MyBytes : TBytes;
Send : TSendrec;
SendStr : string;
i: Integer;
cP : PChar;
begin
if RichEdit2.Text <> '' then
begin
Sendrec.i:=MAXDWORD;
Sendrec.j:=MaxInt;
SendStr := Trim(RichEdit2.Text);
cP := PChar(SendStr);
{for i := 0 to Length(SendStr)-1 do
begin
Sendrec.Str[i] := AnsiChar(SendStr[i+1])
end; }
for i := 0 to Length(SendStr)-1 do
begin
Sendrec.Str[i] := AnsiChar(cP[i])
end;
//ShowMessage(Sendrec.Str);
//Sendrec.Str:='我是UDP123';
MyBytes:= RawToBytes(Sendrec, SizeOf(TSendrec)); //结构体 转TBYTES
BytesToRaw(MyBytes, Send, SizeOf(TSendrec)); //TBYTES 转结构体
RichEdit1.Lines.Add('你 '+Myt);
RichEdit1.Lines.Add(Send.str);
IdUDPServer1.SendBuffer(Edit1.Text, cPort, MyBytes);
RichEdit2.Clear;
Sendrec.Str := '';
end else begin
StatusBar1.Panels[0].Text := '发送消息不能为空';
end;
end;

接收：
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TArray<System.Byte>; ABinding: TIdSocketHandle);
begin
BytesToRaw(AData, recive, SizeOf(TSendrec));
RichEdit1.Lines.Add('来自'+ABinding.PeerIP+'消息 '+Myt);
RichEdit1.Lines.Add(Recive.Str);
end;
type
TSendrec = packed record
i: DWORD;
j: Integer;
Str: array[0..1024] of AnsiChar;
end;
补充结构体是这样的

Answer 1

建议全部使用AnsiString操作，应该就不会有问题了...
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Sendrec : TSendrec;
SendStr : AnsiString;
begin
if RichEdit2.Text <> '' then
begin
Sendrec.i := MAXDWORD;
Sendrec.j := MaxInt;
ZeroMemory(@Sendrec.Str, SizeOf(Sendrec.Str));
SendStr := AnsiString(Trim(RichEdit2.Text));
CopyMemory(@Sendrec.Str, PAnsiChar(SendStr), Length(SendStr));
RichEdit1.Lines.Add('你 ' + Myt);
RichEdit1.Lines.Add(Sendrec.str);
IdUDPServer1.SendBuffer(Edit1.Text, cPort, RawToBytes(Sendrec.Str, SizeOf(Sendrec.Str)));
RichEdit2.Clear;
Sendrec.Str := '';
end
else StatusBar1.Panels[0].Text := '发送消息不能为空';
end;

Answer 2

基本可以肯定是Unicode版本的Delphi干出的恶心事，外加BytesToRaw、TBytes这两坨狗屎。建议全部使用AnsiString操作，应该就不会有问题了...
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Sendrec : TSendrec;
SendStr : AnsiString;
begin
if RichEdit2.Text <> '' then
begin
Sendrec.i := MAXDWORD;
Sendrec.j := MaxInt;
ZeroMemory(@Sendrec.Str, SizeOf(Sendrec.Str));
SendStr := AnsiString(Trim(RichEdit2.Text));
CopyMemory(@Sendrec.Str, PAnsiChar(SendStr), Length(SendStr));
RichEdit1.Lines.Add('你 ' + Myt);
RichEdit1.Lines.Add(Sendrec.str);
IdUDPServer1.SendBuffer(Edit1.Text, cPort, RawToBytes(Sendrec.Str, SizeOf(Sendrec.Str)));
RichEdit2.Clear;
Sendrec.Str := '';
end
else StatusBar1.Panels[0].Text := '发送消息不能为空';
end;

追问

收不到消息了。。。是不是接收端的代码也应该改下。。。？

Sendrec,Recive: TSendrec;
接收也发了的 麻烦你看看 谢谢

再麻烦下大哥你.....能不能帮我附个注释.......比如ZeroMemory 这些木有看懂啊。。
如果有Indy10 udp的demo 跪求大哥发给我看看啊，找了2天都没百度到,,,,,,,
351312239@qq.com 感激不尽！

追答

Edit1.Text的地址对么？接收端好像没错啊...

追问

嗯 我就写的 127.0.0.1
端口 37127
想用一个idudpserver 来进行通信，文件传输，没有idudpclient
其实完全没看到 大哥你写的....跪求注释- -如果有空....xiexie了。。。。

追答

我没装Unicode版的Delphi，另外也没有Indy10，没法帮你调试...
Delphi7+Indy9肯定是可以的...

追问

我发现了一个问题，收是能收到，但是只能接受到9个字符以后的
比如我发送‘1234567890’
只能收到‘90’
中文也是这样
怎么搞

追答

不好意思，SendBuffer那句写错了：
IdUDPServer1.SendBuffer(Edit1.Text, cPort, RawToBytes(Sendrec, SizeOf(Sendrec)));
前8个字符被你接收方的i和j读走了...