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。