到delphi深度历险去找,很多。
解决方案 »
- 北京天地纵横软件有限公司诚聘Delphi程序开发人员
- 用StringGrid组件向表中输入数据
- 求AgentObjects_TLB控件
- listview的问题!
- 求助:用delphi怎样做IIS组件????
- 关于Access的问题,我问过摩托,可我还是没有解决,请高手们帮忙,我天天在线,得到答案就给分
- 求助:有关于用bde+odbc连接mysql不能连接的问题!!!!!
- DELPHI6的那两个UPDATE用打吗?
- 关于控件闪烁的问题!
- 一个小问题,我实在不想动脑筋了,已经2天没睡了
- DBGRID的多选问题?请和位大侠帮忙!!!
- 关于 From DB2 To Oracle 的数据转换问题(相关;序列),求教!(只让给20分不好意思!)
http://www.rtfm.be/fpiette/indexuk.htm
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;