在Delphi5.0 中如何判断两台机是连通的?(100分)

  • 主题发起人 主题发起人 runcow
  • 开始时间 开始时间
R

runcow

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi5.0 中如何判断,两台机是连通的?
 
ping对方ip
 
可以用ics中ping控件来解决的,
procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
var code:integer;
begin
code:=ping1.reply.status;
if code=0 then ... //0表示ping得通。
end;
 
http://stgzs.myetang.com/DelphiVcl/IcsVcl.zip
控件名: ICS
适用于: Delph3 Delph4 Delph5 文件大小: 1.79MB
评述: 很出名的通讯控件
 
to AIHUA:
如果两台机器不是用TCP/IP连的呢?
 
美关系 我试验了
去掉TCP/IP
使用NetBEUI
一样可以PING同
 
可不可以简单的这样做呢?

如果必须两台机协同作业的话,肯定要有一些数据上的交流,可以
在访问对方机器数据的代码段加一个try....except, 如果出错就当
是不通了。因为即使现在两台机子可能通过其它的方法连通。对你的
程序也没有什么用了。干脆提示出错。不知道可不可行呢?

不要说我想法简单啊?!
 
后退
顶部