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

下载本文示例代码
p>　　在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下调试通过。 p>　　在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下调试通过。 下载本文示例代码


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