比如在命令提示符里可以直接这样ping 127.1 -n 3 ,并且可以返回信息那在Console里应该怎么操作呢?
解决方案 »
- 新手求助 关于 idhttp get 网页
- 请问这个record的句子是什么意思?没见过这样子写的。谢谢
- 网上有没有具体的介绍BDE设置的资料??(我太笨了,分都用完了)
- "NO actionband style unit present in the uses clause"
- 我想问一下就是格式化日期的问题
- 如何去掉FORM的蓝条,如何PANEL没边框?
- 以前我很想成为程序员,但现在……
- 一个关于数据库连接的问题,急!
- Delphi中有类似java集合类的东西吗
- shelltreeview 和shelllistview 搭配,怎么取得shelllistview中的文件名
- 请教一个Socket相关的简单问题
- thread线程里面可以再创建thread吗?
加上: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;摘自
http://www.cnitblog.com/shuyezi122/archive/2008/12/31/53311.html