当我收到的数据Numberbytes大于2048就不能接收成功，是什么原因？怎么解决。

liangyong007a 2004-05-12 05:47:09

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
mystream:Tmemorystream;
tmpstr:string;
RecData: array of byte;
Rs:ansistring;
i:integer;
begin
mystream:=Tmemorystream.create;
try
NMUDP1.ReadStream(mystream);
setLength(RecData,Numberbytes);
mystream.Read(Pchar(RecData)^,Numberbytes);
for I := low(RecData) to high(RecData) do
Rs := Rs + IntToHex(RecData[I],2);

memo2.Clear;
memo2.Lines.Add(Rs);
finally
mystream.free;
end;
end;

当我收到的数据Numberbytes大于2048就不能接收成功，是什么原因？怎么解决。

...全文

78 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

Heyongfeng 2004-06-07

打赏
举报

建议用INDY组件，NMUDP有限制的，

stick77 2004-05-14

打赏
举报

TNMUDP在局域网内最大限制是2048

starcbh 2004-05-14

打赏
举报

是有限制的

liangyong007a 2004-05-13

打赏
举报

提示就是：“stream write error”,就这样。

liangyong007a 2004-05-13

打赏
举报

这行不成功：
NMUDP1.ReadStream(mystream);
但是，我收到的数据Numberbytes小于2049就成功。大于就出错

longerboy 2004-05-12

打赏
举报

不成功是什么地方不成功啊

NMUDP1.ReadStream(mystream);
setLength(RecData,Numberbytes);
mystream.Read(Pchar(RecData)^,Numberbytes);
for I := low(RecData) to high(RecData) do
Rs := Rs + IntToHex(RecData[I],2);
你可以调试看看哪行不成功

liangyong007a 2004-05-12