如何在DELPHI中使用PING这条命令

Question

我在编程中遇到一个问题，就是需要在一个应用程序中PING很多的IP地址看他们是否
是通的，在命令行中这当然是可行的，但在应用程序当中如何去做，我就不得而知了，请各位大虾指教。我在此谢谢各位

Answer 1

d6 demo中就有请大家去 http://www.new7wonders.com/c/voting.php 投长城一票

Answer 2

转贴：
Delphi编程实现Ping操作　　张泰立 　　 使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件， 一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协 议中的一个功能，即向所指定的计算机发送一个请求，收到请求的计算机返回一 个应答，借此来判断该计算机是否在网上运行或者检查网络连接是否稳定可靠。 在Ping程序执行过程中，双方计算机所耗费的资源都很少，因此，它是一个非常 实用的工具。 　 我们可以通过编程来实现“Ping”操作，对其加以改进，使之具有Windows的界面风格，显示比DOS更加直观。　　首先，对编程中需要的动态链接库作一简要说明：在Windows的System目录下 ，你可以找到Icmp.dll文件，该动态链接库提供了ICMP协议的所有功能，我们的 编程就建立在对该动态链接库的调用上。Icmp.dll文件内的调用函数说明如下：　　1、IcmpCreateFile 　　打开一个句柄，通过该句柄你可以发送ICMP的请求 回送报文。　　2、IcmpCloseHandle 　　关闭你通过IcmpCreateFile函数打开的句柄。　　3、IcmpSendEcho 　　通过你打开的句柄发送ICMP请求，在超时或应答报 文接收后返回。其参数基本上和它的帧结构一致，可参看下面的程序部分，其具体含意你可以参看有关ICMP协议的书籍。　　初步了解了上述的三个函数后，我们就可以开始编程了。　　首先，我们的程序运行后应该有如图1所示的基本功能。为此，我们可先在 Delphi的窗口中放入右上图中所示的控件，如按钮、编辑框和文本显示框等。　　然后，在程序的开始部分（FormCreate）对WinSocket进行初始化，其作用是 申明使用的版本信息，同时调入Icmp.dll库。　　type　　 PIPOptionInformation = ^TIPOptionInformation; 　　 TIPOptionInformation = packed record 　　　　 TTL: Byte; 　　TOS: Byte;　　 Flags: Byte; 　　　 OptionsSize: Byte;　　 OptionsData: PChar; 　　 end;　　 PIcmpEchoReply = ^TIcmpEchoReply; 　　 TIcmpEchoReply = packed record　　 Address: DWORD;　　 Status: DWORD;　　 RTT: DWORD; 　　　　 DataSize: Word;　　 Reserved: Word; 　　　　 Data: Pointer; 　　　　 Options: TIPOptionInformation ;　　 end; 　　 TIcmpCreateFile = function: THandle; stdcall; 　　 TIcmpCloseHandle = function(IcmpHandle: THandle):Boolean;stdcall;TIcmpSendEcho=function(IcmpHandle:THandle;DestinationAddress:DWORD; RequestData:Pointer;RequestSize:Word;RequestOptions:IPOptionInformation;　　 ReplyBuffer: Pointer;ReplySize: DWord;Timeout: DWord): DWord; stdcall;　　 TMyPing = class(TForm)　　 Panel1: TPanel;　　Label1: TLabel;　　 PingEdit: TEdit;　　 ExeBtn: TButton;　　 Button2: TButton;　　 Button3: TButton;　　 StatusShow: TMemo;　　 procedure Button3Click(Sender: TObject);　　 procedure FormCreate(Sender: TObject);　　 procedure ExeBtnClick(Sender: TObject);　　 private 　　 { Private declarations }　　 hICMP: THANDLE;　　 IcmpCreateFile : TIcmpCreateFile;　　 IcmpCloseHandle: TIcmpCloseHandle;　　 IcmpSendEcho: TIcmpSendEcho;　　 public 　　 { Public declarations }　　end; 　　 procedure TMyPing.FormCreate(Sender: TObject); var 　　　　WSAData: TWSAData;　　 hICMPdll: HMODULE; 　　 begin　　 // Load the icmp.dll stuff 　　　　 hICMPdll := LoadLibrary('icmp.dll'); 　　@ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); 　　　　 @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle'); 　　　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho'); 　　　　 hICMP := IcmpCreateFile; 　　　　 StatusShow.Text := ''; 　　　　 StatusShow.Lines.Add('目的IP地址 字节数 返回时间(毫秒)'); 　　 end; 　　 //接下来，就要进行如下所示的Ping操作的实际编程过程了。 　　 procedure TMyPing.ExeBtnClick(Sender: TObject); 　　var 　　　　 IPOpt:TIPOptionInformation;// IP Options for packet to send 　　　　 FIPAddress:DWORD; 　　　　 pReqData,pRevData:PChar; 　　　　 pIPE:PIcmpEchoReply;// ICMP Echo reply buffer 　　　　 FSize: DWORD; 　　　　 MyString:string; 　　　　 FTimeOut:DWORD; 　　　　 BufferSize:DWORD; 　　 begin 　　　　 if PingEdit.Text <> '' then 　　　　 begin 　　　　 FIPAddress := inet_addr(PChar(PingEdit.Text)); 　　　　 FSize := 40; 　　　　 BufferSize := SizeOf(TICMPEchoReply) + FSize; 　　GetMem(pRevData,FSiz e); 　　　　 GetMem(pIPE,BufferSize); 　　　　 FillChar(pIPE^, SizeOf(pIPE^), 0); 　　　　 pIPE^.Data := pRevData; 　　　　 MyString := 'Hello,World'; 　　　　 pReqData := PChar(MyString); 　　　　 FillChar(IPOpt, Sizeof(IPOpt), 0); 　　　　 IPOpt.TTL := 64; 　　　　 FTimeOut := 4000; 　　　　 IcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString), @IPOpt, pIPE, BufferSize, FTimeOut); 　　　　 if pReqData^ = pIPE^.Options.OptionsData^ then 　　begin 　　　　 StatusShow.Lines.Add(PChar(PingEdit.Text) + ' ' +IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT)); 　　　　 end; 　　　　 FreeMem(pRevData); 　　　　 FreeMem(pIPE); 　　　　 end 　　 end; 　　 通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还 有很多，都可以通过对Icmp.dll的函数调用来实现。

Answer 3

winexec('command.com /c ping '+host,sw_show);
或者你可以把结果写到text文档里面
temp:='c:\ping.txt';
host:=edit1.text;//要ping的主机
winexec('command.com /c ping '+host+'>'+temp,sw_hide);