如何获得Internet连接状态？(100分)

如何获得Internet连接状态？

1. ping
2. 读注册表
3. resapi

计算机世界日报上的，看看吧

再谈用Delphi程序获取拨号连接的动态IP地址
王发军
---- 《计算机世界》１９９９年８月１６日《电脑与生活》版刊登了一篇文章，讨论了
如何用Delphi程序获取拨号连接的动态IP地址。本文则讨论用另一个方法获取拨号连接
的动态IP地址。

---- 　　在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有
两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数
来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi
帮助文件中，有相关RAS函数的详细说明。

---- 一、先解释一些要用到的数据常量和数据结构。

const
RAS_MaxDeviceType = 16;//设备类型名称长度
RAS_MaxEntryName = 256;//连接名称最大长度
RAS_MaxDeviceName = 128;//设备名称最大长度
RAS_MaxIpAddress = 15;//IP地址的最大长度
RASP_PppIp = $8021;//拨号连接的协议类型，该数值表示PPP连接

type
HRASCONN = DWORD;//拨号连接句柄的类型
RASCONN = record//活动的拨号连接的句柄和设置信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN;//活动连接的句柄
szEntryName : array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType : array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName : array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;
TRASPPPIP = record//活动的拨号连接的动态IP地址信息
dwSize : DWORD;//该结构所占内存的大小(Bytes),
一般设置为SizeOf(TRASPPPIP)
dwError : DWORD;//错误类型标识符
szIpAddress : array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;

---- 二、接着要解释要用到的两个RAS函数。

//获取所有活动的拨号连接的信息（连接句柄和设置信息）
function RasEnumConnections( var lprasconn : RASCONN ;
//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
) : DWORD; stdcall;
function RasEnumConnections;external 'Rasapi32.dll'
name 'RasEnumConnectionsA';
//获取指定活动的拨号连接的动态IP信息
function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
) : DWORD;stdcall;
function RasGetProjectionInfo;external
'Rasapi32.dll' name 'RasGetProjectionInfoA';

　　这两个函数的返回值为０时表示执行成功，非０表示错误代码。
---- 三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址

---- 　　首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中
包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数
RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性
szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。

procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1] of RASCONN;
//拨号连接数组
longSize : dword;
intAvailabelConnections : dword;
//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections * connections[ 0 ].dwSize;
//接收活动连接的缓冲区大小
intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
dwResult := RasEnumConnections( connections[ 0 ],
longSize,intAvailabelConnections );
if 0 < > dwResult then
memo1.lines.add( '错误:' + inttostr( dwResult ) )
else
begin
memo1.lines.add( '现有的活动连接有' +
IntToStr( intAvailabelConnections ) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+ StrPAS( connections[ intIndex ].szEntryName )
+ '，设备类型：'
+ StrPAS( connections[ intIndex ].szDeviceType )
+ '，设备名称：'
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
( connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 < > dwResult then
memo1.lines.add(
'错误:' + inttostr( dwResult ))
else
memo1.lines.add(
'动态地址:' + StrPas(RASpppIP.szIPAddress));
end;
end;
end;

还是在 ping 啊 ：-）

可以自己用一个拨号控件将状态取出来，因为只能有一个拨号过程。。这是就重要的，
控件名:dailup
有需要请mail to: loopy@netease.com

仔细找找，这个问题被回答了N次了

试试WNetGetConnection
DWORD WNetGetConnection(
LPCTSTR lpLocalName, // local name
LPTSTR lpRemoteName, // buffer for remote name
LPDWORD lpnLength // buffer size
);

-----------------------------------------------------------------------------
该问题的URL是：http://www.gislab.ecnu.edu.cn/delphibbs/dispq.asp?LID=302404
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network')
else
ShowMessage('Machine is not attached to network');
end;

同意beta
2. 读注册表:
首先在程序的Uses部分添上Registry，然后编写如下函数：
function HasInternetConnect:boolean;
var reg:Tregistry;
dat:array[0..3] of char;
begin
reg:=tregistry.create;
reg.rootkey:=Hkey_Local_Machine;
reg.openkey('Syetem/currentcontrolset/services/remoteaccess', false);
reg.readbinarydata('remote connection',dat,4);
reg.free;
result:=(dat[0]=#1); end;
最后在程序中用这个函数返回的Boolean值来判断即可！

不会有比这个更好的答案了！！！
包括了代理服务器等各种情况。
拿去，别忘了给分！呵呵


uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

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;

begin
if not GetOnlineStatus then ShowMessage('Not Connected');
end;

To: All
各位所说，在有代理服务器时都不行，请各位在测试后再发帖子。谢谢！

以前有讨论了吧

用注册表不保险，因为当本次上线后，若中途死机，下次开机测试第一次的结果正好相反。

多人接受答案了。