Delphi怎么判断是否联网的函数

最新推荐文章于 2025-04-22 14:41:54 发布

原创最新推荐文章于 2025-04-22 14:41:54 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #internet #function

Delphi 专栏收录该内容

21 篇文章

订阅专栏

本文提供了两种使用Delphi检查网络连接状态的方法。第一种方法通过InternetQueryOption函数获取连接状态；第二种方法利用InternetGetConnectedState函数结合多种连接标志来判断是否在线。

有两种判断方式：

1：

function CheckOffline:boolean;
var
ConnectState, 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;

2：

function CheckOffline:boolean;
var
dwFlags: DWORD;
begin
dwFlags := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY ;
result := InternetGetConnectedState(@dwFlags, 0);
end;