此為轉貼資料 用Delphi程式獲取撥號連接的動態IP位址 http://www.cx66.com/cxgzs/program/delphi/168.htm 作者： 評價： 上站日期: 2001-05-10 內容說明： 來源： -------------------------------------------------------------------------------- 在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; function 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 < > 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; 以上程式在PWIN98 Delphi3.0下調試通過。 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind