谈用Delphi程序获取拨号连接的动态IP地址

页面导航:首页 > 软件编程 > Delphi > 谈用Delphi程序获取拨号连接的动态IP地址

谈用Delphi程序获取拨号连接的动态IP地址

来源: 作者: 时间:2016-02-05 11:47 【

在WIN9X下,如果安装了拨号网络,则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。

 


在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;//指定活动连接的句柄
   rrojection : 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;

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <