随笔 - 110  文章 - 28 评论 - 26 

留言簿(1)

随笔分类(103)

随笔档案(110)

文章分类(25)

文章档案(28)

新闻档案(3)

友情连接

  • 小蜜蜂
  • 马氏膏药网
  • 淋巴结肿大,淋巴结核,淋巴结炎 乳腺增生,小叶增生 颈椎病,腰椎病,腰间盘突出 马氏淋巴消炎贴,马氏增生散结贴,马氏关节肌肉贴
  • 黑客基地
  • 全球最大的黑客门户网站

最新随笔

积分与排名

  • 积分 - 143116
  • 排名 - 44

最新评论

阅读排行榜

评论排行榜

ping是发送很小的包去你指定的地址,返回快
加上:edit,button,listbox,idicmpclient四个


双击button
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
idicmpclient.Host:=edit1.Text;
for i:=0 to 3 do
begin
idicmpclient.Ping;
application.ProcessMessages;
 sleep(1000);
end;
end;

在idicmpclient事件的onreply中加代码
procedure TForm1.idicmpclientReply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
stime:string;
begin
stime:='=';
listbox1.Items.Add(format('Reply from   %s:  time=%dms   TTL=%d ms',
[aReplyStatus.fromipaddress,\\ping的IP地址
 aReplyStatus.sequenceid div 100,\\整除100是为了显示MS(毫秒)
 aReplyStatus.timetolive,\\生命周期
 stime,
 aReplyStatus.msroundtriptime]));\\不知道是什么
end;

 AReplyStatus: TReplyStatus
有好心人请帮我讲一下它的方法属性
在这里先说谢谢了

posted on 2008-12-31 19:48 小叶子 阅读(4396) 评论(1)  编辑 收藏 引用 所属分类: delphi网络编程

FeedBack:
# re: idicmpclient实现ping命令 2010-09-28 09:40 Guest
“ aReplyStatus.sequenceid div 100,\\整除100是为了显示MS(毫秒) ”


这个明显错了! sequenceid 是数据包的一个顺序号,
一般情况下是递增的,在Linux下执行ping可以看到是什么样的。

.msroundtriptime 才是毫秒  回复  更多评论
  
只有注册用户登录后才能发表评论。

笔记和文章,可能抄袭,只为学习,请原谅