• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi检测网络连接状态

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

       有时候,我们做一些小软件就需要检测网络连接状态,比如想给你的软件加上类似QQ那样的系统消息,可是像我这样的穷人肯定是买不起服务器了,那我们只好另想办法,可以读取网页然后用浏览器显示,这个时候就需要判断网络状态。
    我目前采用的判断方式有两种:

1.采用WinInet方式:

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags: DWORD;
begin
  if InternetGetConnectedState(@Flags, 0) then
  begin
    if (Flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then Label1.Caption := '在线:拨号上网';
    if (Flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then Label1.Caption := '在线:局域网上网';
    if (Flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then Label1.Caption := '在线:代理上网';
    if (Flags and INTERNET_CONNECTION_MODEM_BUSY) = INTERNET_CONNECTION_MODEM_BUSY then Label1.Caption := 'Modem被其他网络使用';
  end;
end;

2.采用URL.dll文件提供的InetIsOffline函数:

首先声明函数:
function InetIsOffline(Flag: integer): Boolean; stdcall; external 'URL.dll';
然后调用
procedure TForm1.Button2Click(Sender: TObject);
begin
  if InetIsOffline(1) then
    Label1.Caption := '网络在线!'
  else
    Label1.Caption := '网络不在线!';
end;
不知道是不是我的调用方式有问题,总是显示无连接。

http://www.lsworks.net/article/7.html


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap