请问有没有与PING效果类似的方法或控件？

Question

到delphi深度历险去找，很多。

Answer 1

到delphi深度历险去找，很多。

Answer 2

找一个叫做 ics的控件包。

Answer 3

ICS在：
http://www.rtfm.be/fpiette/indexuk.htm

Answer 4

下载一个hiping就好了,何必再编呢?  

Answer 5

对应的函数如下：
function IcmpCreateFile:Integer;stdcall;external 'ICMP.DLL';
function IcmpCloseHandle(ICMPHandle:Integer):boolean;stdcall;external 'ICMP.DLL';
function IcmpSendEcho( IcmpHandle:integer; DestinationAddress:Integer;RequestData:PChar; RequestSize: WORD;RequestOptions:Pointer;ReplyBuffer:PChar;ReplySize:DWORD;Timeout:DWORD):DWORD;stdcall external 'ICMP.DLL';function Ping(var sDestAddr:String):boolean;{ you can use the link to be a param of sDestAddr}
var
echoHandle:Integer;
echoReplyBuffer:array [0..255] of Char;
destAddr:Integer;
echoRequestData:String;
begin
Result:=false;
echoRequestData:='AAAAAAAAAA';
echoHandle:=IcmpCreateFile;
          destAddr:=inet_addr(PChar(SDestAddr));
          if IcmpSendEcho(echoHandle,destAddr,PChar(echoRequestData),Length(echoRequestData),nil,echoReplyBuffer,255,200)=0 then
            Result:=true else Result:=false;
IcmpCloseHandle(echoHandle);
end;

Answer 6

我有ping的控件，你要吗？？？

Answer 7

yijun2000()：说的ics的控件包也有。  

Answer 8

现成的ping程序代码也有，留个e-mail吧？？？