TNMUDP控件接收数据时为什么会有乱码?? (30分)

L

linshengcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #1

[?]TNMUDP控件接收数据时为什么会有乱码??(其它简单的代码省去了)代码如下:
点发送按钮:
procedure TForm1.Button1Click(Sender: TObject);
var txtchar;
begin
if memo1.Text ='' then
begin
statusbar1.SimpleText :='null to send!';
exit;
end;
GetMem(txt,length(memo1.Text)+1);
Zeromemory(txt,length(memo1.Text )+1);
txt:=pchar(memo1.Text );
nmudp1.SendBuffer(txt^,length(memo1.Text ));
end;
接收时:
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var txtchar;
count:integer;
begin
statusbar1.SimpleText :='receving data';
getmem(txt,numberbytes+1);
zeromemory(txt,numberbytes+1);
nmudp1.ReadBuffer(txt^,count);
memo2.Lines.Add('À´×Ô:'+FromIP+'¶Ë¿Ú:'+inttostr(port)+'ÄÚÈÝΪ:'+txt);
freemem(txt);
statusbar1.SimpleText :='data received';
end;
当字符大于5或6个时,后面的数据就成了乱码,IT同胞们指点.

 

T

tsedlinux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #2

接收缓冲区定义大小

 

L

linshengcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #3

getmem(txt,numberbytes+1);大小应该没有问题吧??????

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #4

numberbytes改到10K

 

L

lindelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #5

张兄,numberbytes是好像不能改变的吧,而且改了好象也没有解决呀

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #6

你用buf:array[1..10240]of Char;来保存数据

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #7

：（
对不起，我不会

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #8

嘻嘻，pipi.出马，一招搞掂
txt:=pchar(memo1.Text );这句是不对的
改成：StrCopy(txt,PChar(memo1.Text))

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #9

另外，你的发送实在罗嗦，改成下面的吧
---------------------------------------
var s:String;
s:=memo1.text;
nmudp1.SendBuffer(PChar(s)^,length(s));
-----------------------------------------
至于
为什么不用nmudp1.SendBuffer(PChar(memo1.text)^,length(memo1.text));
主要是考虑到上面出现了两次memo1.text。如果没有后面的length(memo1.text)倒是可以的，
所以要多一个s中间变量

 

崔

崔占东

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #10

我记得好象nmudp1有个DATA属性可用

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #11

更正，可以使用 nmudp1.SendBuffer(PChar(memo1.text)^,length(memo1.text)); 一句搞掂

 

L

lindelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #12

我都试过了,但是还是没法...........
有朋友有方法吗?

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #13

发送：nmudp1.SendBuffer(PChar(memo1.text)^,length(memo1.text)+1);

 

L

lindelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #14

上面的没错,但当字符达到5个以上就有乱码了?
为什么????

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #15

count怎么不赋初值？他是传入、传出的值，传入最大可以接受的字符数
ReadBuffer之前需要先 count:=numberbytes

 

L

lindelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #16

PIPI兄, 这个程序不复杂,书上的,能否给个邮箱,我给你邮来调试调试?

 

L

lindelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #17

ReadBuffer之前需要先 count:=numberbytes.给了一个初值,好像还是有乱码呀?

 

T

timerri

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-14

• #18

我也试过很多次，出现和你一样的问题......
用stream就没问题，我估计是nmudp的bug,反正也看不了源代码，我是解决不了的.....
其实用winsock做个udp的控件也只用100多行，自己写或者改用indy的吧！

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #19

呵呵，用ICS和INDY的控件把，NM系列的BUG多多

 

海

海风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-15

• #20

代码如下:
点发送按钮:
procedure TForm1.Button1Click(Sender: TObject);
var txt:array[0..59] of char;//这个长度你可以动态设置
begin
if memo1.Text ='' then
begin
statusbar1.SimpleText :='null to send!';
exit;
end;
StrpCopy(txt,memo1.text);
nmudp1.SendBuffer(txt,60);
end;
接收时:
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var txt:array[0..59] of char;
count:integer;
begin
statusbar1.SimpleText :='receving data';
nmudp1.ReadBuffer(txt,60);
memo2.Lines.Add('À´×Ô:'+FromIP+'¶Ë¿Ú:'+inttostr(port)+'ÄÚÈÝΪ:'+txt);
statusbar1.SimpleText :='data received';
end;