Delphi編程實現(xiàn)Ping操作

2019-11-18 19:00:45

字體：大中小

供稿：網(wǎng)友

Delphi編程實現(xiàn)Ping操作
　　張?zhí)┝?

　　使用過網(wǎng)絡(luò)的用戶都熟悉“Ping”這個指令，它是一個DOS下的可執(zhí)行文件，一般用它來檢查網(wǎng)絡(luò)連接的好壞程度。其基本原理是利用TCP/ip協(xié)議包中ICMP協(xié)議中的一個功能，即向所指定的計算機(jī)發(fā)送一個請求，收到請求的計算機(jī)返回一個應(yīng)答，借此來判斷該計算機(jī)是否在網(wǎng)上運行或者檢查網(wǎng)絡(luò)連接是否穩(wěn)定可靠。在Ping程序執(zhí)行過程中，雙方計算機(jī)所耗費的資源都很少，因此，它是一個非常實用的工具。

　　我們可以通過編程來實現(xiàn)“Ping”操作，對其加以改進(jìn)，使之具有Windows的界面風(fēng)格，顯示比DOS更加直觀。

　　首先，對編程中需要的動態(tài)鏈接庫作一簡要說明：在Windows的System目錄下，你可以找到Icmp.dll文件，該動態(tài)鏈接庫提供了ICMP協(xié)議的所有功能，我們的編程就建立在對該動態(tài)鏈接庫的調(diào)用上。

　　Icmp.dll文件內(nèi)的調(diào)用函數(shù)說明如下：

　　1、IcmpCreateFile

　　打開一個句柄，通過該句柄你可以發(fā)送ICMP的請求回送報文。

　　2、IcmpCloseHandle

　　關(guān)閉你通過IcmpCreateFile函數(shù)打開的句柄。

　　3、IcmpSendEcho

　　通過你打開的句柄發(fā)送ICMP請求，在超時或應(yīng)答報文接收后返回。其參數(shù)基本上和它的幀結(jié)構(gòu)一致，可參看下面的程序部分，其具體含意你可以參看有關(guān)ICMP協(xié)議的書籍。

　　初步了解了上述的三個函數(shù)后，我們就可以開始編程了。

　　首先，我們的程序運行后應(yīng)該有如圖1所示的基本功能。為此，我們可先在Delphi的窗口中放入右上圖中所示的控件，如按鈕、編輯框和文本顯示框等。

　　（G72.JPG）

　　例程運行示意圖

　　然后，在程序的開始部分（FormCreate）對WinSocket進(jìn)行初始化，其作用是申明使用的版本信息，同時調(diào)入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: PIPOptionInformation;

　　 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

　　 WSAStartup($101, WSAData);

　　 // 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地址字節(jié)數(shù) 返回時間(毫秒)');

　　end;

　　接下來，就要進(jìn)行如下所示的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,FSize);

　　 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;

　　通過上面的編程，我們就實現(xiàn)了Ping功能的界面操作。實際上，ICMP協(xié)議的功能還有很多，都可以通過對Icmp.dll的函數(shù)調(diào)用來實現(xiàn)。

上一篇：通用Delphi數(shù)據(jù)庫輸入控件DBPanel的實現(xiàn)

下一篇：用Delphi實現(xiàn)遠(yuǎn)程屏幕抓取