Delphi 检测网络是否连通

本文整理自网络，侵删。

 
uses WinInet;

////网络是否连通
function InternetConnected: Boolean;
const
  // local system uses a modem to connect to the Internet.
  INTERNET_CONNECTION_MODEM      = 1;
  // local system uses a local area network to connect to the Internet.
  INTERNET_CONNECTION_LAN        = 2;
  // local system uses a proxy server to connect to the Internet.
  INTERNET_CONNECTION_PROXY      = 4;
  // local system's modem is busy with a non-Internet connection.
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
      + INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

{=================================================================
  功  能: 检测机器是否登入网络
  参  数: 无
  返回值: 成功:  True  失败:  False
=================================================================}
Function NetCheckMacAttachNet: Boolean;
begin
  Result := False;
  if GetSystemMetrics(SM_NETWORK) <> 0 then  //所有连入网的
    Result := True;
end;


procedure SaveLog(const sMsg:string);
var
  sList:TStringList;
  fn:string;
begin
  sList := TStringList.Create;
  fn := ExtractFilePath(ParamStr(0))+'SysLog.txt';
  try
    if FileExists(fn) then
      sList.LoadFromFile(fn);
    if sList.Count>1000 then
      sList.Clear;
    sList.Add(FormatDateTime('yyyy-mm-dd hh:nn:ss',Now)+' '+sMsg);
    sList.SaveToFile(fn);
  finally
    sList.Free;
  end;
end;


调用：

 try
    if NetCheckMacAttachNet and InternetConnected then
     //
    else
    begin
    //  SaveLog('检测到网络连接中断！');
    end;
  except
    on e:Exception do
     // SaveLog(e.Message);
  end;

 

相关阅读 >>

Delphi 复制文件到全盘

Delphi crc算法的实现

Delphi fdconnection1 获取数据库总记录数

Delphi 获得网页乱码

Delphi tstreamwriter tstreamreader 流操作3

Delphi webbrowser1去边框

Delphi 字符串、文件路径 排序算法

Delphi在richedit控件中插入gif动画表情

Delphi vcl tmemo加速字符串读取

Delphi如何获得当前操作系统语言环境

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检测网络是否连通