如何在Delphi中PING，谢谢各位大侠。

第一，直接调用windows ping？命令，然后获取其输出信息。

二、借用Indy组件包？TIdIcmpClient？组件(来自互联网的代码):

程序？TForm1。Button1Click(发件人:？to object)；

定义变量

我？:?整数；

开始

Memo1。线条清晰。

IdIcmpClient1。主持人:=？Edit1。文本；？//计算机的名称或IP地址

IdIcmpClient1。receive time out:= 1000；？//最大超时

按钮1。启用？:=?假的；？

尝试

为了什么？我:=0？去哪？13?做

开始

IdIcmpClient1。平；

申请。处理消息？；？//延迟

结束；

最后

按钮1。启用？:=?真实；？

结束；

结束；

程序？TForm1。idicmpclient 1回复(ASender:？TComponent

const？AReplyStatus:？TReplyStatus)；

var？

sTime:？字符串；

开始？

//检测Ping应答错误？

如果？(AReplyStatus。MsRoundTripTime？=?0?)?然后呢？

sTime？:=?& lt1'?

不然呢？

sTime？:=?'=';？

//在列表框中显示Ping消息？

Memo1。Lines.Add(格式('回复？从哪里？[%s]？:?字节=%d？时间%s%d？ms？TTL=%d '，

[AReplyStatus。FromIpAddress，？

AReplyStatus。收到的字节数，？

时间？

AReplyStatus。MsRoundTripTime，？

AReplyStatus。time tolive]))；

结束；第三，编写ping函数，实现函数代码。