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

[bigbai]

我想在程序中了解网络中某个已知IP地址的计算机是否存在，请问有没有与PING效果类似的方法或控件？

[tchaikov]

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

[IAmKylix]

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

[yijun2000]

找一个叫做 ics的控件包。

[StarRainBow]

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

[shdshd]

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

[InsideDelphi]

对应的函数如下：
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;

[wen_zang]

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

[wen_zang]

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

[wen_zang]

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