Delphi编程培训第17讲：IP与网络状态检测方法.pdfVIP

Delphi软件编程培训班第17节

1、介绍：内容；

快速获取本机IP地址

检查网络状态

获取网卡地址

2、说明：

快速获取本机IP地址

IdIPWatch1的HistoryEnabled的属性设为False

IdIPWatch1.LocalIP//本地IP

提示：若IdIPWatch1的HistoryEnabled的属性设为True，则会在程序时，自动生成一个文件(文件名为HistoryFileName属性设定的值)

记录当前的IP地址。

检查网络状态：

ifGetSystemMetrics(SM_NETWORK)and$0001=$0001then

edtStatus.text:=你的电脑已与网络连接

else

edtStatus.text:=你的电脑未与网络连接;

end;

GetSystemMetrics(SM_NETWORK)and$0001=$0001

含义是判断GetSystemMetrics(SM_NETWORK)的返回值的最低位是否是1

useswininet

Types:Integer;

Types:=INTERNET_CONNECTION_MODEM+

INTERNET_CONNECTION_LAN+

INTERNET_CONNECTION_;

//检查三种网络状况

ifInternetGetConnectedState(@types,0)then

edtStatus.Text:=你的电脑已与网络连接

Delphi软件编程培训班第17节

1，：内容;IP地址地

址地址检查网络状态

2，：

快速获取本机IP地址

IDIPWATCH1的histortAbled的属性设为falseIDIPWatch1.localip//本地IP提示：若IDIPWATCH1trimeNabledtrue，true，则

会在程序时，自动生成一个文件（文件名为historyfileName属性设定的值）记录当前的

检查网络状态：如果GetSystemMetrics

（

SM_NETWORK）和$0001=$0001，则edtstatus.text：

你的电脑已与网络连接elseedtstatus.text：结尾;

getSystemmetrics（sm_network）和$0001=$0001含义是判

断getSystemmetrics（sm_network）的返回值的最低位是否是1

使用Wininet类

型：整数；

类型：=Internet_connection_modem+

Internet_connection_lan+

Internet_connection_;

//检查三种网络状况如果

InternetgetConnectedState（@Types，0），

则edtstatus.text：=你的电脑已与网络连接