?? 再談用delphi程序獲取撥號連接的動態ip地址.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0052)http://cgwh.myetang.com/document/delphiqa/tel_ip.htm -->
<HTML><HEAD><TITLE>再談用Delphi程序獲取撥號連接的動態IP地址</TITLE>
<SCRIPT language=JavaScript
src="再談用Delphi程序獲取撥號連接的動態IP地址.files/pop-up.js"></SCRIPT>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.3700.6699" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff text=#000000>
<P align=center> <FONT color=#0000c0></P>
<H2 align=center>再談用Delphi程序獲取撥號連接的動態IP地址 </FONT></H2>
<H3 align=center>王發軍 </H3>
<P><FONT color=#ffffff>----</FONT>
《計算機世界》１９９９年８月１６日《電腦與生活》版刊登了一篇文章，討論了如何用Delphi程序獲取撥號連接的動態IP地址。本文則討論用另一個方法獲取撥號連接的動態IP地址。
</P>
<P><FONT color=#ffffff>----</FONT>
在WIN9X下，如果安裝了撥號網絡，則在WINDOWS系統的系統目錄System下將有兩個撥號網絡管理程序庫RasApi32.DLL和RasApi16.DLL，我們可利用其中的RAS系列函數來獲取和設置撥號連接網絡的信息。當然是可以獲取撥號連接的動態IP地址了。在Delphi幫助文件中，有相關RAS函數的詳細說明。
</P>
<P><FONT color=#ffffff>----</FONT> <B>一、先解釋一些要用到的數據常量和數據結構。</B> </P><PRE>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;</PRE>
<P><FONT color=#ffffff>----</FONT> <B>二、接著要解釋要用到的兩個RAS函數。</B> </P><PRE>//獲取所有活動的撥號連接的信息（連接句柄和設置信息）
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';</PRE>
<P> 這兩個函數的返回值為０時表示執行成功，非０表示錯誤代碼。 </P>
<P><FONT color=#ffffff>----</FONT> <B>三、下面要討論如何用上面的兩個RAS函數獲取撥號連接的動態IP地址</B> </P>
<P><FONT color=#ffffff>----</FONT>
首先，要用函數RasEnumConnections列出已建立的活動撥號連接的信息，其中包括連接名稱、連接句柄、連接設備類型和設備名稱；然后根據連接句柄用函數RasGetProjectionInfo獲取連接對應的一個TRASPPPIP結構，其中包括一個成員屬性szIpAddress即為動態IP地址。具體請參見以下程序片段和注釋信息。
</P><PRE>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;</PRE>
<P>以上程序在PWIN98+Delphi3.0下調試通過。 </P></BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -