D
dazzling
Unregistered / Unconfirmed
GUEST, unregistred user!
注意:不要用什么连接www.163.com之类的方法来实现.
蓝
蓝叶菱
Unregistered / Unconfirmed
GUEST, unregistred user!
检测计算机的 Internet 连接状态
作者： 940801
检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数 InternetCheckConnection来实现；
这个函数的功能是检查是否能够建立 Internet 连接。
它的实现是在 %SystemRoot%/System32/wininet.dll 中，Delphi 调用声明在 WinInet.pas 中，
其 API 声明如下：
BOOL InternetCheckConnection(
IN LPCSTR lpszUrl,
IN DWORD dwFlags,
IN DWORD dwReserved
);
参数的意义是：
lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空；
dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）；
dwReserved： 目前只能为 0。
调用的说明：
如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。
如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，Windows 就从这条纪录中解析出 Host 名然后 Ping 它。
如果能够成功的连接返回 True，否则返回 False；
以下是一个判断当前计算机是否联网的例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;
通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。
这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测；
这个函数的功能是查询指定 Internet 句柄的状态、选项。
其 API 声明如下：
BOOL InternetQueryOption(
IN HINTERNET hInternet,
IN DWORD dwOption,
OUT LPVOID lpBuffer,
IN OUT LPDWORD lpdwBufferLength
);
参数的意义是：
hInternet：查询对象的 Internet 句柄（全局查询时为 nil），
dwOption：查询的项目；
lpBuffer：返回的查询结果；
lpdwBufferLength：查询结果的字节长度（包括 IN 和 OUT）；
查询成功返回 True，否则返回 False;
我们要查询当前计算机的 Internet 连接状态时可以使用查询项目 INTERNET_OPTION_CONNECTED_STATE，
得到的 ConnectState 返回值可能是以下值的一个或几个值之和：
INTERNET_STATE_CONNECTED ：$00000001 连接状态；
INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；
INTERNET_STATE_DISCONNECTED_BY_USER ：$00000010 用户请求的非连接状态
INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲
INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求
以下是一个判断当前计算机是否可以获得 Internet 服务的例子：
function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckOffline then
edit1.text:= 'Connect To ISP'
else
edit1.text:= 'Disconnect To ISP';
end;
需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，
并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，
要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使用。
以上程序在 Win2000, Delphi5.0 下调试通过。
最后要提醒大家注意的是在 uses 中要加上 WinInet。
对于 Windows 2000 中网络掉线的实时检测，猜想是和底层的中断或者某个 Service 有关，
但因为本人才疏学浅，一直没能搞懂该怎样做，还请知情的大侠不吝赐教，先在此谢谢您了。
作者：940801 ，Mail：l940801@yahoo.com
作者： 940801
检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数 InternetCheckConnection来实现；
这个函数的功能是检查是否能够建立 Internet 连接。
它的实现是在 %SystemRoot%/System32/wininet.dll 中，Delphi 调用声明在 WinInet.pas 中，
其 API 声明如下：
BOOL InternetCheckConnection(
IN LPCSTR lpszUrl,
IN DWORD dwFlags,
IN DWORD dwReserved
);
参数的意义是：
lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空；
dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）；
dwReserved： 目前只能为 0。
调用的说明：
如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。
如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，Windows 就从这条纪录中解析出 Host 名然后 Ping 它。
如果能够成功的连接返回 True，否则返回 False；
以下是一个判断当前计算机是否联网的例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;
通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。
这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测；
这个函数的功能是查询指定 Internet 句柄的状态、选项。
其 API 声明如下：
BOOL InternetQueryOption(
IN HINTERNET hInternet,
IN DWORD dwOption,
OUT LPVOID lpBuffer,
IN OUT LPDWORD lpdwBufferLength
);
参数的意义是：
hInternet：查询对象的 Internet 句柄（全局查询时为 nil），
dwOption：查询的项目；
lpBuffer：返回的查询结果；
lpdwBufferLength：查询结果的字节长度（包括 IN 和 OUT）；
查询成功返回 True，否则返回 False;
我们要查询当前计算机的 Internet 连接状态时可以使用查询项目 INTERNET_OPTION_CONNECTED_STATE，
得到的 ConnectState 返回值可能是以下值的一个或几个值之和：
INTERNET_STATE_CONNECTED ：$00000001 连接状态；
INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；
INTERNET_STATE_DISCONNECTED_BY_USER ：$00000010 用户请求的非连接状态
INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲
INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求
以下是一个判断当前计算机是否可以获得 Internet 服务的例子：
function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckOffline then
edit1.text:= 'Connect To ISP'
else
edit1.text:= 'Disconnect To ISP';
end;
需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，
并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，
要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使用。
以上程序在 Win2000, Delphi5.0 下调试通过。
最后要提醒大家注意的是在 uses 中要加上 WinInet。
对于 Windows 2000 中网络掉线的实时检测，猜想是和底层的中断或者某个 Service 有关，
但因为本人才疏学浅，一直没能搞懂该怎样做，还请知情的大侠不吝赐教，先在此谢谢您了。
作者：940801 ，Mail：l940801@yahoo.com
M
Mclkings
Unregistered / Unconfirmed
GUEST, unregistred user!
不用连接 www.163.com这样的方法~~
你是怕局限性~~
其实你可以用winsock单元,做一个tcp连接,连接一个ip 地址,如dns的ip地址,这样的方法很快.
你是怕局限性~~
其实你可以用winsock单元,做一个tcp连接,连接一个ip 地址,如dns的ip地址,这样的方法很快.
W
weiliu
Unregistered / Unconfirmed
GUEST, unregistred user!
话题709944的标题是： 紧急求解,如何判断本机处于上网状态!!!(几个函数用过均无法判断),救救我
(200分)
分类：Internet/TCPIP Joy_Wang (2001-11-06 10:50:00)
本人想下载文件前先判断本机是否已经连上INTERNET,
不料使用几个函数,如INTERNETCHECKCONNECTION,INTERNETGETCONNECTEDSTATE等
都无法判断本机是否已连上,我的机器ADSL方式上网的,是否与这个有关系呢
如是,又该如何判断呢???用PING的办法是否可以解决呢,又如何实现呢?
另外如使用代理服务器的话,我又如何判断我的机器是否已可以上线呀!
不好意思,问题多了些是么,主要是我已用过几个函数了,所以写详细些
用检查注册表的方法也不用试了,因为我是要检查机器是不是上线,而不是能不能
上线.各位高手同志们,看在同道份上,拉兄弟一把吧![]
liangdewei (2001-11-06 10:54:00)
恩，我也想知道：）
Joy_Wang (2001-11-06 10:57:00)
大佬,我好惨呀,你还涮我,呜~~~~~~~~~~
Joy_Wang (2001-11-06 10:59:00)
分数不够,我还可以加分,倾家荡产也可以呀
不过分数也不多,因为我才来不久呀
zbsfg (2001-11-06 11:01:00)
想听听
Joy_Wang (2001-11-06 11:09:00)
是想听解答,还是想听我再详细点问呀[]
zbsfg (2001-11-06 11:12:00)
不好意思,我也有意做类似的软件,但水平有限,所以想借机学习学习
Joy_Wang (2001-11-06 11:17:00)
各位大侠,谁能出手相救呀!
liuql188 (2001-11-06 11:18:00)
如何检测计算机是否已经拨号上网？
在注册表的HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/RemoteAcces分支下，
当未连通因特网时，Remote Connection的键值为00 00 00 00,当连通时，其键值为01 00 00 00,
通过这一键值就可以作出判断。
j_shen2000 (2001-11-06 11:21:00)
你的机器上装的是NC还是IE。
j_shen2000 (2001-11-06 11:24:00)
WinInet.dll is a part of MS Internet Explorer so if you haven't the installed
browser from Microsoft, the code will no workable (you'll receive the
exception message).
function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;
Joy_Wang (2001-11-06 11:27:00)
多谢各位大侠,我用的是IE5.5
星空 (2001-11-06 11:28:00)
检测注册表，那只能在本机拨号上网的情况下才能用(并且是98的机子)。如果是局域网，
根本不起作用。这问题以前曾讨论多次，但没有很好的解决办法。我也想知道
amsea (2001-11-06 11:30:00)
告诉你个路子~！
呼叫左轻侯~！
他的软件已经实现，并且检测好象比较准确~！
Joy_Wang (2001-11-06 11:33:00)
To j_shen2000:
你的方法我以前用过,但是不成功,分析原因,因为我的拨号连接
设置为空,因为是ADSL方式!同时又在局域网内,而且又有代理服务器.
如使用代理服务器上,如代理服务器没上线,用该方法无法判断是否能
连接上网,无论如何都提示online
zhangkan (2001-11-06 11:38:00)
若你是拔号上网,就可正常判断,但若你在局域网内,的确每次检查都是OnLine,这个目前也不
知道用哪种方法最好判断.不过,提一个歪点子,你也可去连接一个绝对有效的地址,如微软的
网址,若能连接就表示互联网是通的,若不能则表示不通.就用函数来判断的方法以前讨论过,
但都没结果.
Joy_Wang (2001-11-06 11:39:00)
各位,不知道,用PING是否可以实现呢?但好象如果用代理服务器的话,是PING不到的,但
又可以浏览网页,可以下载,实际上已经ONLINE了,好痛苦啊
Joy_Wang (2001-11-06 11:45:00)
To zhangkan:
我使用过这种方法过了,用的就是INTERNETCHECKCONNECTION(PCHAR('WWW.263.NET'),0,0)
但返回值无论如何都是FALSE,好伤心,可能是因为我的拨号设置为空,因为ADSL是不用在那里
设置的呀
To amsea:
老兄,怎么呼叫呀,我第二次来大福翁,很多不知道,不好意思
Joy_Wang (2001-11-06 12:38:00)
to 卷起千堆雪tyn:
无法判断,可能对普通拨号上网可以行得通,刚才我断线试了试,都是提示
可以上网哦!anyway,谢了
卷起千堆雪tyn (2001-11-06 12:49:00)
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network')
else
ShowMessage('Machine is not attached to network');
end;
下面的知识值得你去研究：
检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数
InternetCheckConnection来实现；
这个函数的功能是检查是否能够建立 Internet 连接。
它的实现是在 %SystemRoot%/System32/wininet.dll 中，Delphi 调用声明在 WinInet.pas 中，
其 API 声明如下：
BOOL InternetCheckConnection(
IN LPCSTR lpszUrl,
IN DWORD dwFlags,
IN DWORD dwReserved
);
参数的意义是：
lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空；
dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）；
dwReserved： 目前只能为 0。
调用的说明：
如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。
如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，
Windows 就从这条纪录中解析出 Host 名然后 Ping 它。
如果能够成功的连接返回 True，否则返回 False；
以下是一个判断当前计算机是否联网的例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;
通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，
不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。
这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测；
这个函数的功能是查询指定 Internet 句柄的状态、选项。
其 API 声明如下：
BOOL InternetQueryOption(
IN HINTERNET hInternet,
IN DWORD dwOption,
OUT LPVOID lpBuffer,
IN OUT LPDWORD lpdwBufferLength
);
参数的意义是：
hInternet：查询对象的 Internet 句柄（全局查询时为 nil），
dwOption：查询的项目；
lpBuffer：返回的查询结果；
lpdwBufferLength：查询结果的字节长度（包括 IN 和 OUT）；
查询成功返回 True，否则返回 False;
我们要查询当前计算机的 Internet 连接状态时可以使用查询项目 INTERNET_OPTION_CONNECTED_STATE，
得到的 ConnectState 返回值可能是以下值的一个或几个值之和：
INTERNET_STATE_CONNECTED ：$00000001 连接状态；
INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；
INTERNET_STATE_DISCONNECTED_BY_USER ：$00000010 用户请求的非连接状态
INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲
INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求
以下是一个判断当前计算机是否可以获得 Internet 服务的例子：
function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckOffline then
edit1.text:= 'Connect To ISP'
else
edit1.text:= 'Disconnect To ISP';
end;
需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，
并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，
要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使用。
Joy_Wang (2001-11-06 12:47:00)
to 卷起千堆雪tyn:
我早已用过,但结果和我先前说的一样,无法判断,只有在普通拨号设置的机器上有用.
xianjun (2001-11-06 19:12:00)
最简单的办法，Ping网络上的某一台主机
如果你觉得一台不够保险，可以PING多台嘛，只要任一台PING通就说明能上网了！
至于PING的源码，在论坛上找找吧，我就不贴了。
ecfan1 (2001-11-07 2:29:00)
if not InternetGetConnectedState(@types, 0) then
begin
showmessage('本电脑没有联网!');
end;
C-xy (2001-11-07 3:23:00)
Windows中，如果安装了拨号网络，那么在系统目录下，就有两个拨号网络管理程序库
RasApi32.dll和RasApi16.dll，可以利用其中的函数获取拨号信息
function RasenumConnections;externa;'reasapi32.dll' nameRasEnumconnectionsA'
function RasenumConnections(var lprasconn:RASCONN;var lpcb
WORD;
var lpcConnectionsWORD//有效的连接数
)WORD;stdcall;
返回0时表示成功，不然就为错误代码；
可以用得到已经建立的连接信息，包括连接设备名称，数量，类型，连接句柄
Type
RASCON=record
dwsizeWORD;
hrasconnWORD;//活动连接句柄
szEntryName:array[0..256]of char;//....名称
szDerviceType:array[0..16]of char;//....设备类型
szDerviceName:array[0..128]of char;//....设备名称
end;
var
connections[0..4]of RASCON;
//拨号连接数组，假设最多为5个。
ConIndex:Integer;
longsize,intAvailabelConnectionsWORD;
TmpStr:String;
begin
connections[0].dwsize:=sizeof(RASCONN);
longsize:=5*connections[0].dwsize; //接收缓冲区大小
intAvailabelConnections:=0;
dwResult:=RasEnumConnections(connections[0].longSize,intAvailabelConnections);
//获取活动的拨号连接信息
if dwResult<>0 then
ShowMessage('Error'+inttostr(dwResult))
else
begin
tmpstr:='活动连接：'+inttostr(intAvailabelConnections);
for ConIndex:=0 to intAvailabelConnections then
begin
tmpstr:=tmpstr+'连接名称：'+StrPas(connections[].szEntryName)
+#13+'设备类型：'+StrPas(connections[].szDerviceType)
+#13+设备名称：''+StrPas(connections[].szDerviceName)；
end;
ShowMessage(TmpStr);
end;
end;
Joy_Wang (2001-11-09 13:16:00)
大家的方法我以前大部分均已用过，liuql188和xianjun的方法后来试了，也不成功。
不是说大家的方法错误，而是这些方法无法判断ADSL的拨号上网，因为用该设备上网
是无须去Windows的拨号设置里建立连接的。
用ping的方法的话，当我使用代理服务器的时候，可以浏览网址，但却是PING不到该网址
的。
再次请大家注意我的机器环境，ADSL上网，处于NT局域网内，并设置了代理服务器。
但是大家的建议我都表示感谢。另外我发现有一控件webcopy，有一事件onURLNotFound
不知道如何使用，如果当触发该事件时提示没有上网不知效果如何，但不知怎么写该事件
有那位大侠用过，还请指点一二[red][/red]
Joy_Wang (2001-11-13 12:49:00)
看来是没人能解答了,算了
放分了
第一次的问题无疾而终
amsea (2001-11-15 21:07:00)
不知道你有没有订阅邮件，我没有订阅，所以 碰碰运气啦。
不知道你解决没有，尝试从注册表得到点什么吧，因为为软的东西，很多在发生变化
的时候都都去动注册表的。
我没有用宽带，但是，如果你找不到，建议你找个软件：
可以对注册表进行“照相”你首先短开连接，然后获得照相，在连上，在照一次，
然后比较，多做几次就知道在什么位置了，我估计这样可以解决。
祝你好运了~！（这也算你的20分没百拿）
amsea-20,C-xy-25,ecfan1-25,j_shen2000-25,liuql188-25,xianjun-25,zhangkan-25,卷起千堆雪tyn-30,的回答最终被接受。
(200分)分类：Internet/TCPIP Joy_Wang (2001-11-06 10:50:00)
本人想下载文件前先判断本机是否已经连上INTERNET,
不料使用几个函数,如INTERNETCHECKCONNECTION,INTERNETGETCONNECTEDSTATE等
都无法判断本机是否已连上,我的机器ADSL方式上网的,是否与这个有关系呢
如是,又该如何判断呢???用PING的办法是否可以解决呢,又如何实现呢?
另外如使用代理服务器的话,我又如何判断我的机器是否已可以上线呀!
不好意思,问题多了些是么,主要是我已用过几个函数了,所以写详细些
用检查注册表的方法也不用试了,因为我是要检查机器是不是上线,而不是能不能
上线.各位高手同志们,看在同道份上,拉兄弟一把吧![
] liangdewei (2001-11-06 10:54:00)
恩，我也想知道：）
Joy_Wang (2001-11-06 10:57:00)
大佬,我好惨呀,你还涮我,呜~~~~~~~~~~
Joy_Wang (2001-11-06 10:59:00)
分数不够,我还可以加分,倾家荡产也可以呀
不过分数也不多,因为我才来不久呀
zbsfg (2001-11-06 11:01:00)
想听听
Joy_Wang (2001-11-06 11:09:00)
是想听解答,还是想听我再详细点问呀[
] zbsfg (2001-11-06 11:12:00)
不好意思,我也有意做类似的软件,但水平有限,所以想借机学习学习
Joy_Wang (2001-11-06 11:17:00)
各位大侠,谁能出手相救呀!
liuql188 (2001-11-06 11:18:00)
如何检测计算机是否已经拨号上网？
在注册表的HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/RemoteAcces分支下，
当未连通因特网时，Remote Connection的键值为00 00 00 00,当连通时，其键值为01 00 00 00,
通过这一键值就可以作出判断。
j_shen2000 (2001-11-06 11:21:00)
你的机器上装的是NC还是IE。
j_shen2000 (2001-11-06 11:24:00)
WinInet.dll is a part of MS Internet Explorer so if you haven't the installed
browser from Microsoft, the code will no workable (you'll receive the
exception message).
function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;
Joy_Wang (2001-11-06 11:27:00)
多谢各位大侠,我用的是IE5.5
星空 (2001-11-06 11:28:00)
检测注册表，那只能在本机拨号上网的情况下才能用(并且是98的机子)。如果是局域网，
根本不起作用。这问题以前曾讨论多次，但没有很好的解决办法。我也想知道
amsea (2001-11-06 11:30:00)
告诉你个路子~！
呼叫左轻侯~！
他的软件已经实现，并且检测好象比较准确~！
Joy_Wang (2001-11-06 11:33:00)
To j_shen2000:
你的方法我以前用过,但是不成功,分析原因,因为我的拨号连接
设置为空,因为是ADSL方式!同时又在局域网内,而且又有代理服务器.
如使用代理服务器上,如代理服务器没上线,用该方法无法判断是否能
连接上网,无论如何都提示online
zhangkan (2001-11-06 11:38:00)
若你是拔号上网,就可正常判断,但若你在局域网内,的确每次检查都是OnLine,这个目前也不
知道用哪种方法最好判断.不过,提一个歪点子,你也可去连接一个绝对有效的地址,如微软的
网址,若能连接就表示互联网是通的,若不能则表示不通.就用函数来判断的方法以前讨论过,
但都没结果.
Joy_Wang (2001-11-06 11:39:00)
各位,不知道,用PING是否可以实现呢?但好象如果用代理服务器的话,是PING不到的,但
又可以浏览网页,可以下载,实际上已经ONLINE了,好痛苦啊
Joy_Wang (2001-11-06 11:45:00)
To zhangkan:
我使用过这种方法过了,用的就是INTERNETCHECKCONNECTION(PCHAR('WWW.263.NET'),0,0)
但返回值无论如何都是FALSE,好伤心,可能是因为我的拨号设置为空,因为ADSL是不用在那里
设置的呀
To amsea:
老兄,怎么呼叫呀,我第二次来大福翁,很多不知道,不好意思
Joy_Wang (2001-11-06 12:38:00)
to 卷起千堆雪tyn:
无法判断,可能对普通拨号上网可以行得通,刚才我断线试了试,都是提示
可以上网哦!anyway,谢了
卷起千堆雪tyn (2001-11-06 12:49:00)
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network')
else
ShowMessage('Machine is not attached to network');
end;
下面的知识值得你去研究：
检测计算机是否联网比较简单的做法可以通过一个 Win32 Internet(WinInet) 函数
InternetCheckConnection来实现；
这个函数的功能是检查是否能够建立 Internet 连接。
它的实现是在 %SystemRoot%/System32/wininet.dll 中，Delphi 调用声明在 WinInet.pas 中，
其 API 声明如下：
BOOL InternetCheckConnection(
IN LPCSTR lpszUrl,
IN DWORD dwFlags,
IN DWORD dwReserved
);
参数的意义是：
lpszUrl： 需要测试能否建立连接的 URL 地址，可以为空；
dwFlags： 目前只能是 FLAG_ICC_FORCE_CONNECTION（这个常量 Delphi 中没有声明，其值为 $00000001）；
dwReserved： 目前只能为 0。
调用的说明：
如果 lpszUrl 是非空的，Windows 从中解析出 Host 名然后 Ping 这个指定的 Host。
如果 lpszUrl 是空的，并且 WinInet 内部服务器的 database 中有一个关于最近的 Server 的纪录，
Windows 就从这条纪录中解析出 Host 名然后 Ping 它。
如果能够成功的连接返回 True，否则返回 False；
以下是一个判断当前计算机是否联网的例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;
通过上述的方法只能检测出当前计算机是否物理联网，即网线是否接好，网卡是否能顺利工作，
不能确定是否能够实现获得 Internet 服务，即是否能和 ISP 进行 Internet 连接。
这时可以通过另一个 Win32 Internet(WinInet) 函数 InternetQueryOption 来检测；
这个函数的功能是查询指定 Internet 句柄的状态、选项。
其 API 声明如下：
BOOL InternetQueryOption(
IN HINTERNET hInternet,
IN DWORD dwOption,
OUT LPVOID lpBuffer,
IN OUT LPDWORD lpdwBufferLength
);
参数的意义是：
hInternet：查询对象的 Internet 句柄（全局查询时为 nil），
dwOption：查询的项目；
lpBuffer：返回的查询结果；
lpdwBufferLength：查询结果的字节长度（包括 IN 和 OUT）；
查询成功返回 True，否则返回 False;
我们要查询当前计算机的 Internet 连接状态时可以使用查询项目 INTERNET_OPTION_CONNECTED_STATE，
得到的 ConnectState 返回值可能是以下值的一个或几个值之和：
INTERNET_STATE_CONNECTED ：$00000001 连接状态；
INTERNET_STATE_DISCONNECTED ：$00000002 非连接状态（和 INTERNET_STATE_CONNECTED 对应）；
INTERNET_STATE_DISCONNECTED_BY_USER ：$00000010 用户请求的非连接状态
INTERNET_STATE_IDLE ：$00000100 连接状态，并且空闲
INTERNET_STATE_BUSY ：$00000200 连接状态，正在响应连接请求
以下是一个判断当前计算机是否可以获得 Internet 服务的例子：
function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckOffline then
edit1.text:= 'Connect To ISP'
else
edit1.text:= 'Disconnect To ISP';
end;
需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，
并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，
要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使用。
Joy_Wang (2001-11-06 12:47:00)
to 卷起千堆雪tyn:
我早已用过,但结果和我先前说的一样,无法判断,只有在普通拨号设置的机器上有用.
xianjun (2001-11-06 19:12:00)
最简单的办法，Ping网络上的某一台主机
如果你觉得一台不够保险，可以PING多台嘛，只要任一台PING通就说明能上网了！
至于PING的源码，在论坛上找找吧，我就不贴了。
ecfan1 (2001-11-07 2:29:00)
if not InternetGetConnectedState(@types, 0) then
begin
showmessage('本电脑没有联网!');
end;
C-xy (2001-11-07 3:23:00)
Windows中，如果安装了拨号网络，那么在系统目录下，就有两个拨号网络管理程序库
RasApi32.dll和RasApi16.dll，可以利用其中的函数获取拨号信息
function RasenumConnections;externa;'reasapi32.dll' nameRasEnumconnectionsA'
function RasenumConnections(var lprasconn:RASCONN;var lpcb
WORD;var lpcConnections
WORD//有效的连接数)
WORD;stdcall;返回0时表示成功，不然就为错误代码；
可以用得到已经建立的连接信息，包括连接设备名称，数量，类型，连接句柄
Type
RASCON=record
dwsize
WORD;hrasconn
WORD;//活动连接句柄szEntryName:array[0..256]of char;//....名称
szDerviceType:array[0..16]of char;//....设备类型
szDerviceName:array[0..128]of char;//....设备名称
end;
var
connections[0..4]of RASCON;
//拨号连接数组，假设最多为5个。
ConIndex:Integer;
longsize,intAvailabelConnections
WORD;TmpStr:String;
begin
connections[0].dwsize:=sizeof(RASCONN);
longsize:=5*connections[0].dwsize; //接收缓冲区大小
intAvailabelConnections:=0;
dwResult:=RasEnumConnections(connections[0].longSize,intAvailabelConnections);
//获取活动的拨号连接信息
if dwResult<>0 then
ShowMessage('Error'+inttostr(dwResult))
else
begin
tmpstr:='活动连接：'+inttostr(intAvailabelConnections);
for ConIndex:=0 to intAvailabelConnections then
begin
tmpstr:=tmpstr+'连接名称：'+StrPas(connections[].szEntryName)
+#13+'设备类型：'+StrPas(connections[].szDerviceType)
+#13+设备名称：''+StrPas(connections[].szDerviceName)；
end;
ShowMessage(TmpStr);
end;
end;
Joy_Wang (2001-11-09 13:16:00)
大家的方法我以前大部分均已用过，liuql188和xianjun的方法后来试了，也不成功。
不是说大家的方法错误，而是这些方法无法判断ADSL的拨号上网，因为用该设备上网
是无须去Windows的拨号设置里建立连接的。
用ping的方法的话，当我使用代理服务器的时候，可以浏览网址，但却是PING不到该网址
的。
再次请大家注意我的机器环境，ADSL上网，处于NT局域网内，并设置了代理服务器。
但是大家的建议我都表示感谢。另外我发现有一控件webcopy，有一事件onURLNotFound
不知道如何使用，如果当触发该事件时提示没有上网不知效果如何，但不知怎么写该事件
有那位大侠用过，还请指点一二[red][/red]
Joy_Wang (2001-11-13 12:49:00)
看来是没人能解答了,算了
放分了
第一次的问题无疾而终
amsea (2001-11-15 21:07:00)
不知道你有没有订阅邮件，我没有订阅，所以 碰碰运气啦。
不知道你解决没有，尝试从注册表得到点什么吧，因为为软的东西，很多在发生变化
的时候都都去动注册表的。
我没有用宽带，但是，如果你找不到，建议你找个软件：
可以对注册表进行“照相”你首先短开连接，然后获得照相，在连上，在照一次，
然后比较，多做几次就知道在什么位置了，我估计这样可以解决。
祝你好运了~！（这也算你的20分没百拿）
amsea-20,C-xy-25,ecfan1-25,j_shen2000-25,liuql188-25,xianjun-25,zhangkan-25,卷起千堆雪tyn-30,的回答最终被接受。
D
dazzling
Unregistered / Unconfirmed
GUEST, unregistred user!
没有任何有价值的帮助..
金
金卡绣球jk8.com
Unregistered / Unconfirmed
GUEST, unregistred user!
运行下路由命令，看返回结果（时间可能长点），列表长就ok啦，可靠
S
sail_world
Unregistered / Unconfirmed
GUEST, unregistred user!
顶一下