|
在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;
ction 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 $#@60; $#@62;
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 $#@60; $#@62;
dwResult then
memo1.lines.add(
错误: + inttostr( dwResult
))
else
memo1.lines.add(
动态地址: +
StrPas(RASpppIP.szIPAddress));
end;
end;
end;
以上程序在PWIN98+Delphi3.0下调试通过。
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
