用delphi檢查網絡連接狀態3種方式
用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。
功 能: 檢測計算機是否上網
參 數: 無
返回值: 成功: True 失敗: False;
備 注: uses Wininet
版 本: 1.0 2003/08/10
=================================================================}
////網絡是否連通
function InternetConnected: Boolean;
const
// local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM = 1;
// local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_LAN = 2;
// local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4;
// local system's modem is busy with a non-Internet connection.
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes : DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
{=================================================================
功 能: 檢測機器是否登入網絡
參 數: 無
返回值: 成功: True 失敗: False
備 注:
版 本:
1.0 2002/10/03 09:55:00
=================================================================}
Function TPub.NetCheckMacAttachNet: Boolean;
begin
Result := False;
if GetSystemMetrics(SM_NETWORK) <> 0 then //所有連入網的
Result := True;
end;
分類：
|
用delphi檢查網絡連接狀態 功 能: 檢測計算機是否上網 {=================================================================
功 能: 檢測機器是否登入網絡
參 數: 無
返回值: 成功: True 失敗: False
備 注:
版 本:
1.0 2002/10/03 09:55:00
=================================================================}
Function TPub.NetCheckMacAttachNet: Boolean;
begin
Result := False;
if GetSystemMetrics(SM_NETWORK) <> 0 then //所有連入網的
Result := True;
end;
|