如何获取拨号IP(100分)

Z

zyqks

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何分别在98,2000,XP下获取动态拨号IP?
 
文摘:


获取拨号连接的动态IP地址
1999年8月16日《电脑与生活》版刊登了一篇文章,讨论了如何用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';
这两个函数的返回值为0时表示执行成功,非0表示错误代码。

三、下面要讨论如何用上面的两个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;

以上程序在PWIN98+Delphi3.0下调试通过。
 
这种方法好象只能在WIN9X中通过, 不知在WIN2000或XP下能否用?
 
IPCONFIG查一下就好了
 
to 杰克:我指的是在DELPHI程序中如何获取?
 
顶部