在DELPHI程序管理撥號網絡 (2000年8月21日) 

本站更新  分類:   作者:深圳王發軍  推薦:   閱讀次數:824  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
　　用MODEM撥號上網，仍是大多數個人網民選擇上網的方式．如果能在我們的應用程序中管理撥號網絡（如
Foxmail、Sygate中的撥號功能），無疑將會方便我們的軟件用戶（不用再切換應用程序，運行撥號網
絡），提高我們的軟件的友好性從而提高軟件的競爭力．
　　在WIN9X下，如果安裝了撥號網絡，則在WINDOWS系統的系統目錄System下將有兩個撥號網絡管理程序庫
RasApi32.DLL和RasApi16.DLL，我們可利用其中的函數來獲取和設置撥號連接網絡的信息。在Delphi幫助
文件中，有相關函數的說明。

　　在此，我們要討論的管理項目有：
　　　　１、獲取當前系統中可用的撥號連接名稱
　　　　２、新建撥號連接、修改撥號連接的屬性
　　　　３、獲取和設置撥號連接的撥號參數
　　　　４、用指定的撥號連接撥號、掛斷指定的撥號連接
　　　　５、獲取當前活動的連接及其連接狀態

一、獲取當前系統中可用的撥號連接名稱
　　即獲取系統中已建立的撥號連接的名稱，可用來讓用戶選擇使用哪個撥號連接進行撥號．
　　可以用兩種方法來實現．一種是利用RasAPI函數；另一種是不用RasAPI函數，直接在注冊表中查詢．

　　１、不用RasAPI函數，直接在注冊表中查詢
　　　　在注冊表的HKEY_USERS\.Default\RemoteAccess\Addresses下，列出了已經在撥號網絡中建立
　　了的撥號連接的名稱及其屬性設置，其中各項目的名稱即為可用的撥號連接的名稱；各項目的值即
　　為各撥號連接的屬性設置，不過是二進制串，筆者還看不懂．由此可見，我們只要讀出各項目的名
　　稱即可獲取當前系統中可用的撥號連接名稱．
var
registryTemp : TRegistry;
stringsTemp : TStringlist;
begin
registryTemp := TRegistry.Create;
stringsTemp := TStringlist.Create;
with registryTemp do
begin
RootKey := HKEY_USERS;//根鍵設置為HKEY_USERS
//如果存在子鍵.Default\RemoteAccess\Addresses
if OpenKey('.Default\RemoteAccess\Addresses',false) then
GetValueNames( stringsTemp );//讀出各項目的名稱，即撥號連接名稱
end;
combobox1.Items.assign( stringsTemp );//顯示，供選擇
end;

　　２、用RasAPI函數
RasAPI函數RasEnumEntries可獲取當前系統中可用的撥號連接名稱．其函數原型為
function RasEnumEntries(
reserved : PChar;//保留字段,必須為NIL
lpszPhonebook : PChar;//電話本名稱,在Win9X下無作用,可為空字符串
lprasentryname : LPRASENTRYNAME;//接收撥號連接名稱的緩沖區,是一個RASENTRYNAME類型數組的指針
var lpcb : DWORD;//接收撥號連接名稱的緩沖區的大小(Bytes)
var lpcEntries: DWORD//實際獲得的撥號連接名稱的數目
) : DWORD; stdcall;
function RasEnumEntries;external RasApiDll name 'RasEnumEntriesA';

參數lprasentryname提供了一個RASENTRYNAME類型數組的指針，指向一個接收撥號連接名稱的緩沖
　　區，其中RASENTRYNAME及LPRASENTRYNAME的類型說明如下：

LPRASENTRYNAME = ^RASENTRYNAME;
RASENTRYNAME = record
dwSize : DWORD;//該結構所占內存的大小(Bytes),一般設置為SizeOf(RASENTRYNAME)
szEntryName : array [ 0..RAS_MaxEntryName ] of char;//撥號連接名稱
end;
　　　　lpcb為緩沖區的大小，一般設置為dwSize的倍數，倍數為可能有的連接的個數．
　　　　lpcEntries實際的連接的個數．

　　　　下面是一個應用例子，列出了當前系統中可用的撥號連接名稱．
注意，應在RASENTRYNAME緩沖區的第一個RASENTRYNAME結構中設置dwSize．
const
MaxPhoneEntries = 10;//最多的撥號連接數目
var
intIndex : integer;
PhoneEntries : array[ 0..MaxPhoneEntries - 1 ] of RASEntryName;
dwSize, dwEntries, dwResult : DWORD;
begin
//在RASENTRYNAME緩沖區的第一個RASENTRYNAME結構中設置dwSize
PhoneEntries[ 0 ].dwSize := sizeof( RASEntryName );

dwSize := MaxPhoneEntries * sizeof( RASEntryName );//為緩沖區的大小
//調用RasAPI函數，獲取當前系統中可用的撥號連接名稱
dwResult := RasEnumEntries ( NIL,'',@PhoneEntries[ 0 ],dwSize, dwEntries );

if dwResult <> 0 then
begin//RasAPI函數，執行錯誤
memo1.lines.add('RasEnumEntries錯誤:' + GetRasError( dwResult ));
exit;
end;

//顯示當前系統中可用的撥號連接名稱
memo1.lines.add('共有' + inttostr( dwEntries ) + '個RAS連接，如下所示');
for intIndex := 0 to dwEntries -1 do
memo1.lines.add( strpas( PhoneEntries[ intIndex ].szEntryName ) );
end;

　　３、獲取默認的撥號連接的名稱
　　　　默認的撥號連接，即用戶在瀏覽器中設置的撥號連接，該連接可以認為是用戶最常用
　　的撥號連接．
　　　　在注冊表的HKEY_USERS\.Default\RemoteAccess位置，有一個字符串名Profile，它對應
　　字符值即為HKEY_USERS\.Default\RemoteAccess\Addresses．

二、新建撥號連接、修改撥號連接的屬性
　　RasAPI函數RasCreatePhonebookEntry、RasEditPhonebookEntry通過調用Win9X的
新建撥號連接、修改撥號連接的設置界面，允許用戶新建撥號連接、修改撥號連接，具體
的設置操作還要由系統來完成．
　　１、新建撥號連接
　　　　新建撥號連接的RasAPI函數為RasCreatePhonebookEntry，其函數原型為：
function RasCreatePhonebookEntry(
hwnd : THandle; //新建撥號連接窗口的父窗口的句柄，為NIL表示桌面(DeskTop)
lpszPhonebook: pchar//電話本名稱,在Win9X下無作用,可為空字符串
) : DWORD;stdcall;
function RasCreatePhonebookEntry;external RasApiDll name 'RasCreatePhonebookEntryA';

　　　　函數返回值為0表示執行成功；否則為錯誤代碼．

　　　　下面是一個應用例子，允許用戶新建一個撥號連接．
var
dwResult : DWORD;
begin
//在當前窗口中新建撥號連接
dwResult := RasCreatePhonebookEntry( handle, '' );
if dwResult = 0 then
memo1.lines.add('新建撥號連接成功!')
else
memo1.lines.add('新建撥號連接失敗：!' + GetRasError( dwResult ))
end;

　　２、修改撥號連接的屬性
　　　　修改撥號連接的屬性的RasAPI函數為RasEditPhonebookEntry，其函數原型為：
function RasEditPhonebookEntry(
hwnd : THandle; //新建撥號連接窗口的父窗口的句柄，為NIL表示桌面(DeskTop)
lpszPhonebook: pchar;//電話本名稱，在Win9X下無作用,可為空字符串
lpszEntryName: pchar//撥號連接的名稱，如'163'、'169'等
) : DWORD; stdcall;
function RasEditPhonebookEntry;external RasApiDll name 'RasEditPhonebookEntryA';

　　　　函數返回值為0表示執行成功；否則為錯誤代碼．
　　　　下面是一個應用例子，允許用戶修改指定撥號連接的屬性．
var
dwResult : DWORD;
begin
//在當前窗口中修改撥號連接的屬性
dwResult := RasEditPhonebookEntry( handle, '', '163' );
if dwResult = 0 then
memo1.lines.add('修改撥號連接成功!')
else
memo1.lines.add('修改撥號連接失敗：!' + GetRasError( dwResult ))
end;

三、獲取和設置撥號連接的撥號參數
　　用RasAPI函數RasGetEntryDialParams、RasSetEntryDialParams可以直接獲取和設置指定撥號連接的
撥號參數，其中包括用戶名稱和用戶密碼！
　　１、獲取撥號連接的撥號參數
　　　　獲取撥號連接的撥號參數RasAPI函數為RasGetEntryDialParams，其函數原型為：
function RasGetEntryDialParams(
lpszPhonebook: pchar;//電話本名稱，在Win9X下無作用,可為空字符串
pRASDIALPARAMS:LPRASDIALPARAMS;//撥號參數，是一個RASDIALPARAMS類型的指針
var lpfPassword : WordBool//是否需要用戶密碼
) : DWORD; stdcall;
function RasGetEntryDialParams;external RasApiDll name 'RasGetEntryDialParamsA';

參數pRASDIALPARAMS是一個RASDIALPARAMS類型的指針，指向一個撥號連接的撥號參數數據
的緩沖區，其中RASDIALPARAMS及LPRASDIALPARAMS的類型說明如下：
LPRASDIALPARAMS = ^RASDIALPARAMS;
RASDIALPARAMS = record
dwSize : DWORD;//該結構所占內存的大小(Bytes),一般設置為SizeOf(RASDIALPARAMS)
szEntryName : array[0..RAS_MaxEntryName] of char;//撥號連接名稱
szPhoneNumber : array[0..RAS_MaxPhoneNumber] of char;//撥號號碼
szCallbackNumber : array[0..RAS_MaxCallbackNumber] of char;//回叫號碼
szUserName : array[0..UNLEN] of char;//用戶名稱
szPassword : array[0..PWLEN] of char;//用戶密碼
szDomain : array[0..DNLEN] of char;//域名
end;
　　　　函數返回值為0表示執行成功；否則為錯誤代碼．
　　　　下面是一個應用例子，獲取指定撥號連接的撥號參數．
var
dwResult : DWORD;
RASDIALPARAMSData : RASDIALPARAMS;
NeedPWD : WordBool;
begin
//指定撥號連接的名稱
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//結構大小
szEntryName := '163';//指定撥號連接的名稱
szUserName := '';//其它五個參數初始化
szPassword := '';
szDomain := '';
szCallbackNumber := '';
szPhoneNumber := '';
end;
NeedPWD := true;//需要用戶密碼

//獲取指定撥號連接的撥號參數
dwResult := RasGetEntryDialParams( '',@RASDIALPARAMSData,NeedPWD );

if dwResult <> 0 then //獲取指定撥號連接的撥號參數失敗
memo1.lines.add( '獲取'+StrPAS(RASDIALPARAMSData.szEntryName )+'撥號參數失敗：' 
+ GetRasError( dwResult ))
else
begin//顯示指定撥號連接的撥號參數
memo1.lines.add( StrPAS(RASDIALPARAMSData.szEntryName )+'撥號參數如下');
memo1.lines.add( '用戶名稱：' + StrPAS(RASDIALPARAMSData.szUserName ));
memo1.lines.add( '用戶密碼：' + StrPAS(RASDIALPARAMSData.szPassword ));
memo1.lines.add( '域 名：' + StrPAS(RASDIALPARAMSData.szDomain ));
memo1.lines.add( '回叫號碼：' + StrPAS(RASDIALPARAMSData.szCallbackNumber ));
memo1.lines.add( '撥號號碼：' + StrPAS(RASDIALPARAMSData.szPhoneNumber ));
end;
end;
　　２、設置撥號連接的撥號參數
　　　　設置撥號連接的撥號參數RasAPI函數為RasSetEntryDialParams，其函數原型為：
function RasSetEntryDialParams(
lpszPhonebook: pchar;//電話本名稱，在Win9X下無作用,可為空字符串
pRASDIALPARAMS:LPRASDIALPARAMS;//撥號參數，是一個RASDIALPARAMS類型的指針
var lpfPassword : WordBool//是否刪除用戶密碼
) : DWORD; stdcall;