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
小叶子 阅读(4475)
评论(1) 编辑 收藏 引用 所属分类:
delphi网络编程