就这么多多分了,全送了!一个看似简单的问题(65分)

  • 主题发起人 主题发起人 qinsir
  • 开始时间 开始时间
Q

qinsir

Unregistered / Unconfirmed
GUEST, unregistred user!
这是我的一个过程:

procedure SendData(SendData:String;UdpServer:TNMUDP;ClientIp:String;Port:integer);
var DataStream:TmemoryStream;
var SendMessage:String;
begin
DataStream:=TmemoryStream.Create;
UdpServer.RemoteHost:=ClientIp;
UdpServer.RemotePort:=Port;
SendMessage:=SendData;
try
DataStream.Write(SendData[1],length(SendData));
UdpServer.SendStream(DataStream);
DataStream.Free;
except
exit;
end;
end;

当用户登陆上来时,调用这个函数发送信息就正确;当用户没有登陆上来,但程序记录了
ip地址,调用该过程就报错,提示是:Datastrem.write error,我做了异常处理呀
帮忙看看
 
你先 Ping 一下,如果通的话在发送嘛,如果不通就不发呀:)
可用 TIdIcmp 实现 Ping
 
ping的通呀,只是用户没有登陆上本程序
 
真的没有人回答这个问题?????????很难吗?
 
你是在调试环境中执行的程序?
直接运行exe就可以截获错误了.
 
接受答案了.
 
后退
顶部