Delphi編程實現Ping操作
張泰立 http://fnyygt.blog.hexun.com/23343756_d.html
使用過網絡的用戶都熟悉「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: 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地址 字節數 返回時間(毫秒)');
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,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;
通過上面的編程,我們就實現了Ping功能的界面操作。實際上,ICMP協議的功能還有很多,都可以通過對Icmp.dll的函數調用來實現。