开发学院软件开发Delphi 谈用Delphi程序获取拨号连接的动态IP地址 阅读

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

 2006-02-04 13:28:15 来源:WEB开发网   
核心提示:在WIN9X下,如果安装了拨号网络,谈用Delphi程序获取拨号连接的动态IP地址,则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息,具体请参见以下程序片段和注释信息, procedu
在WIN9X下,如果安装了拨号网络,则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态ip地址了。在Delphi帮助文件中,有相关RAS函数的详细说明。

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

constRAS_MaxDeviceType = 16;//设备类型名称长度RAS_MaxEntryName = 256;//连接名称最大长度RAS_MaxDeviceName = 128;//设备名称最大长度RAS_MaxIpAddress = 15;//IP地址的最大长度Rasp_PppIp = $8021;//拨号连接的协议类型,该数值表示PPP连接typeHRASCONN = 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;

Tags:谈用 Delphi 程序

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接