用Delphi即时判断当前的网络的连接方式

最新推荐文章于 2020-11-29 13:42:38 发布

网上de坏人

最新推荐文章于 2020-11-29 13:42:38 发布

阅读量3.5k

点赞数 1

本文链接：https://blog.youkuaiyun.com/chinazhd/article/details/45060081

版权

本文介绍了两种在Delphi中判断网络连接状态的方法：一是使用InternetGetConnectedState函数，可检测拨号、局域网和代理连接；二是使用IsNetworkAlive函数，适用于即时判断。此外，还提到了URL.DLL中的InetIsOffline函数，用于检查系统是否已连接到互联网。

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

分类： 



判断网络的是否连接或者连接方式，比较重要的一点就是是不是即时判断，如果你明明无连接，判断出来却说你有，连接上了，却说你还未连接，下面要介绍的两个方法中 InternetGetConnectedState就是不怎么够即时的API函数，而第二个使用的是IsNetworkAlive这个API函数，这个没有InternetGetConnectedState的那种问题，但是可能需要安装SDK，也就是.Net框架。

 

 

一、InternetGetConnectedState

 

在DELPHI中 引用wininet这个单元就可以直接使用 InternetGetConnectedState函数了，下面给出一个判断当前网络连接状态的函数，在注释中会一一解释它的一些相关返回值的含义。

 

uses wininet; //这个已经说了 必须引用它才可以使用InternetGetConnectedState函数

 

function ConnectionKind :boolean; 
var flags: dword; 
begin 
  Result := InternetGetConnectedState(@flags, 0); 
    if Result then 
      begin 
        if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then showmessage('在线：拨号上网'); 
        if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then showmessage('在线：通过局域网'); 
        if (flags and INTERNET_CONNECTION_PROXY) &