用delphi实现ping |
|
|
|
sos_admin
版主   發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
看了好多次有网友的提出关于用delphi实现ping的问题，今天又看到了；
所以就将这个功能写成一个类，并且提供一个函数方便大家的使用！
参考文献：
Delphi编程实现Ping操作 [张泰立]
各位网友的技巧
函数
procedure pinghost(ip:string;var info:string);
ip:目标ＩＰ地址；
info:ping了以后产生的信息(1)或(2)；
(1)成功信息
ip 发送测试的字符数 返回时间
(2)出错信息
Can not find host! 使用
uses ping; procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
ping:Tping;
begin
ping:=Tping.create ;//一定要初试化哦
ping.pinghost('127.0.0.1',str);
memo1.Lines.Add(str);
ping.destroy ;
end; 下载后将文件保存为ping.pas 發表人 - sos_admin 於 2003/08/27 15:40:01
 附加檔案：36409_ping.pas
|
發表時間：2003-08-27 15:35:32
IP:61.155.xxx.xxx 未訂閱
系統時間：2024-06-06 2:34:14
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |