O
onthesky
Unregistered / Unconfirmed
GUEST, unregistred user!
传送文件时是这样的。
procedure Tfrm_message.SendFileMsg(SendIP,Msg:String);
begin
TeStream.Position:=0;
TeStream.Clear;
TeStream.Size:=0;
TeStream.LoadFromFile(Open.FileName);
Showmessage(Open.FileName);
NMUDP1.RemoteHost:=SendIP;
NMUDP1.SendStream(TeStream);//在这一句报错了。
end;
同一个NMUDP在传送文本时没问题,端口也没变。
procedure Tfrm_message.SendFileMsg(SendIP,Msg:String);
begin
TeStream.Position:=0;
TeStream.Clear;
TeStream.Size:=0;
TeStream.LoadFromFile(Open.FileName);
Showmessage(Open.FileName);
NMUDP1.RemoteHost:=SendIP;
NMUDP1.SendStream(TeStream);//在这一句报错了。
end;
同一个NMUDP在传送文本时没问题,端口也没变。