delphi 判斷網路是否連線正常
檢測計算機是否聯網比較簡單的做法可以通過一個 Win32 Internet(WinInet) 函式 InternetCheckConnection來實現;
這個函式的功能是檢查是否能夠建立 Internet 連線。
它的實現是在 %SystemRoot%\System32\wininet.dll 中,Delphi 呼叫宣告在 WinInet.pas 中,
其 API 宣告如下:
BOOL InternetCheckConnection(
IN LPCSTR lpszUrl,
IN DWORD dwFlags,
IN DWORD dwReserved
);
引數的意義是:
lpszUrl: 需要測試能否建立連線的 URL 地址,可以為空;
dwFlags: 目前只能是 FLAG_ICC_FORCE_CONNECTION(這個常量 Delphi 中沒有宣告,其值為 $00000001);
dwReserved: 目前只能為 0。
呼叫的說明:
如果 lpszUrl 是非空的,Windows 從中解析出 Host 名然後 Ping 這個指定的 Host。
如果 lpszUrl 是空的,並且 WinInet 內部伺服器的 database 中有一個關於最近的 Server 的紀錄,Windows 就從這條紀錄中解析出 Host 名然後 Ping 它。
如果能夠成功的連線返回 True,否則返回 False;
以下是一個判斷當前計算機是否聯網的例子:
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;
通過上述的方法只能檢測出當前計算機是否物理聯網,即網線是否接好,網絡卡是否能順利工作,不能確定是否能夠實現獲得 Internet 服務,即是否能和 ISP 進行 Internet 連線。
這時可以通過另一個 Win32 Internet(WinInet) 函式 InternetQueryOption 來檢測;
這個函式的功能是查詢指定 Internet 控制代碼的狀態、選項。
其 API 宣告如下:
BOOL InternetQueryOption(
IN HINTERNET hInternet,
IN DWORD dwOption,
OUT LPVOID lpBuffer,
IN OUT LPDWORD lpdwBufferLength
);
引數的意義是:
hInternet:查詢物件的 Internet 控制代碼(全域性查詢時為 nil),
dwOption:查詢的專案;
lpBuffer:返回的查詢結果;
lpdwBufferLength:查詢結果的位元組長度(包括 IN 和 OUT);
查詢成功返回 True,否則返回 False;
我們要查詢當前計算機的 Internet 連線狀態時可以使用查詢專案 INTERNET_OPTION_CONNECTED_STATE,
得到的 ConnectState 返回值可能是以下值的一個或幾個值之和:
INTERNET_STATE_CONNECTED :$00000001 連線狀態;
INTERNET_STATE_DISCONNECTED :$00000002 非連線狀態(和 INTERNET_STATE_CONNECTED 對應);
INTERNET_STATE_DISCONNECTED_BY_USER :$00000010 使用者請求的非連線狀態
INTERNET_STATE_IDLE :$00000100 連線狀態,並且空閒
INTERNET_STATE_BUSY :$00000200 連
接狀態,正在響應連線請求
以下是一個判斷當前計算機是否可以獲得 Internet 服務的例子:
function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
StateSize: DWORD;
begin
ConnectState:= 0;
StateSize:= SizeOf(ConnectState);
result:= false;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then result:= true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckOffline then
edit1.text:= 'Connect To ISP'
else
edit1.text:= 'Disconnect To ISP';
end;
需要說明的是 InternetQueryOption 函式的檢測結果只能表明當前的 Internet 設定是可用的,
並不能表示計算機一定能訪問 Internet,例如網線掉了,網絡卡突然壞了之類的錯誤就沒法檢測出來,
要想檢測當前計算機是否能夠獲得 Internet 服務了必須兩個函式結合起來使用。
以上程式在 Win2000, Delphi5.0 下除錯通過。
最後要提醒大家注意的是在 uses 中要加上 WinInet。