在DELPHI程序管理撥號網(wǎng)絡(luò) (2000年8月21日) 

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

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

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

一、獲取當(dāng)前系統(tǒng)中可用的撥號連接名稱
　　即獲取系統(tǒng)中已建立的撥號連接的名稱，可用來讓用戶選擇使用哪個(gè)撥號連接進(jìn)行撥號．
　　可以用兩種方法來實(shí)現(xiàn)．一種是利用RasAPI函數(shù)；另一種是不用RasAPI函數(shù)，直接在注冊表中查詢．

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

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

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

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

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

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

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

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

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

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

　　　　函數(shù)返回值為0表示執(zhí)行成功；否則為錯(cuò)誤代碼．

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

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

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

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

參數(shù)pRASDIALPARAMS是一個(gè)RASDIALPARAMS類型的指針，指向一個(gè)撥號連接的撥號參數(shù)數(shù)據(jù)
的緩沖區(qū)，其中RASDIALPARAMS及LPRASDIALPARAMS的類型說明如下：
LPRASDIALPARAMS = ^RASDIALPARAMS;
RASDIALPARAMS = record
dwSize : DWORD;//該結(jié)構(gòu)所占內(nèi)存的大小(Bytes),一般設(shè)置為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;
　　　　函數(shù)返回值為0表示執(zhí)行成功；否則為錯(cuò)誤代碼．
　　　　下面是一個(gè)應(yīng)用例子，獲取指定撥號連接的撥號參數(shù)．
var
dwResult : DWORD;
RASDIALPARAMSData : RASDIALPARAMS;
NeedPWD : WordBool;
begin
//指定撥號連接的名稱
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//結(jié)構(gòu)大小
szEntryName := '163';//指定撥號連接的名稱
szUserName := '';//其它五個(gè)參數(shù)初始化
szPassword := '';
szDomain := '';
szCallbackNumber := '';
szPhoneNumber := '';
end;
NeedPWD := true;//需要用戶密碼

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

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