有哪位大哥知道idicmpclient控件的具体使用方法??~~不好意思分数少了点了

[mdejtod]

我想做一个程序就是判断当前计算机有没有连接到网络,主要是物理连网.有没有插网线,如果用InternetConnected 方法的话很不稳定,有时根本达不到效果,我也不知道为什么~~想请教一下有用过idicmpclient这个控件的大侠帮忙一下,该控件的主要方法及实现过程~~~谢谢了~!

[mdejtod]

晕了~~都睡觉去了???自己顶一下`

[postren]

IdIcmpClient1.Host := '127.0.0.1';
IdIcmpClient.Ping;

在OnReply事件中判断返回值

例如：

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(IdIcmpClient1.Host);
Memo1.Lines.Add(Format('FromIpAddress: %s, BytesReceived: %d, MsgType: %d, '
+ 'MsRoundTripTime: %d, SequenceId: %d, TimeToLive: %d, ReplyStatusType: %d', [
AReplyStatus.FromIpAddress,
AReplyStatus.BytesReceived,
AReplyStatus.MsgType,
AReplyStatus.MsRoundTripTime,
AReplyStatus.SequenceId,
AReplyStatus.TimeToLive,
Integer(AReplyStatus.ReplyStatusType)
]));
end;

[mdejtod]

晕乎~~这些参数都看不懂~~~自己琢磨一下~