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

zhengbo2006

于 2010-11-10 17:58:00 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi internet function

本文链接：https://blog.youkuaiyun.com/zhengbo2006/article/details/6000908

Delphi 专栏收录该内容

21 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有两种判断方式：

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;