一个有关NMUDP控件的使用(有源码),出现这么个问题(在线等待。。。)(50分)

W

wjl_my

Unregistered / Unconfirmed
GUEST, unregistred user!
var
mstream:TMemoryStream;
strdata:string;
begin
nmudp1.ReportLevel:=Status_basic;
nmudp1.RemoteHost:='127.0.0.1'; //'192.168.188.113';
strdata:=edit1.text;
mstream:=TMemoryStream.Create;
try
mstream.write(strdata[1],length(strdata));
nmudp1.SendStream(mstream);
finally
mstream.Free;
end;
end;

在运行到nmudp1.sendstream(mstream)时,出现如下错误:
list index out of bounds(0)
请网络编程高手们帮助,我才学网络编程没多久,好多问题对你们来说可能比较可笑,
不要笑我啊
 
这样试一试:

mstream.write(strdata[1],length(strdata));
[red]mstream.Position := 0;[/red]
nmudp1.SendStream(mstream);

 
这样还是不行
 
var
mstream:TMemoryStream;
strdata:string;

begin
strdata:=edit1.text;
mstream:=TMemoryStream.Create;
try
mstream.write(strdata[1],length(strdata));
finally
mstream.Free;
end;
end;
上面的程序是没有错误的,我在d7下调试成功,所以你的edit1是否为空是关键,必须保证
edit1不为空!我调试的时候,即使为空,都成功!不知你所调试的环境是什么?
 
我已经解决了,谢谢各位朋友
 
顶部