在DELPHI程序中撥號(hào)上網(wǎng)

2019-11-18 18:58:02

字體：大中小

供稿：網(wǎng)友

用MODEM撥號(hào)上網(wǎng)，仍是大多數(shù)個(gè)人網(wǎng)民選擇上網(wǎng)的方式．如果能在我們的應(yīng)用程序中啟動(dòng)撥號(hào)連接（如IE瀏覽器程序中的自動(dòng)撥號(hào)功能），無(wú)疑將會(huì)方便我們的軟件用戶（不用再切換應(yīng)用程序，運(yùn)行撥號(hào)網(wǎng)絡(luò)），提高我們的軟件的友好性從而提高軟件的競(jìng)爭(zhēng)力．
　　在WIN9X下，如果安裝了撥號(hào)網(wǎng)絡(luò)，則在WINDOWS系統(tǒng)的系統(tǒng)目錄System下將有兩個(gè)撥號(hào)網(wǎng)絡(luò)管理程序庫(kù)RasApi32.DLL和RasApi16.DLL，我們可利用其中的函數(shù)來(lái)創(chuàng)建、修改撥號(hào)連接，并利用指定的撥號(hào)連接進(jìn)行撥號(hào)上網(wǎng)。

一、新建撥號(hào)連接
　　當(dāng)WIN9X系統(tǒng)中已經(jīng)建立了撥號(hào)連接，則可利用現(xiàn)成的撥號(hào)連接。如果沒(méi)有撥號(hào)連接，則需要新建一個(gè)撥號(hào)連接。RasAPI中提供了相應(yīng)的函數(shù)，其函數(shù)名為RasCreatePhonebookEntryA，函數(shù)原型為：
function RasCreatePhonebookEntryA( hwnd : THandle;lpszPhonebook: pchar ) : DWord;
stdcall; { 位于interface部分 }
function RasCreatePhonebookEntryA ; external ’Rasapi32.dll’;{ 位于implementation部分 }
　　參數(shù)：
　　　　hwnd（THandle）：新建撥號(hào)連接窗口的父窗口的句柄，可以為T(mén)Form的Handle，為NIL表；Windows桌面(DeskTop)
　　　　lpszPhonebook（pchar）：電話本名稱,在Win9X下無(wú)作用,可設(shè)為空字符串
　　函數(shù)返回值：
　　　　0表示執(zhí)行成功；否則為錯(cuò)誤．

　　　　下面是一個(gè)新建撥號(hào)連接的例子．
{ 新建撥號(hào)連接 }
PRocedure TForm1.Button1Click(Sender: TObject);
var
   dwResult : DWORD;
begin
     //在當(dāng)前窗口中新建撥號(hào)連接
     dwResult := RasCreatePhonebookEntryA( handle, ’’ );
     if dwResult = 0 then
        memo1.lines.add(’新建撥號(hào)連接成功!’)
     else
        memo1.lines.add(’新建撥號(hào)連接失敗!’)
end;

二、修改指定撥號(hào)連接的屬性
　　如果用戶需要修改撥號(hào)連接的屬性如電話號(hào)碼、國(guó)家及區(qū)號(hào)、連接方式、服務(wù)器類型等，可以用RasAPI函數(shù)來(lái)實(shí)現(xiàn)，其函數(shù)名為RasEditPhonebookEntryA，函數(shù)原型為：
function RasEditPhonebookEntryA( hwnd : THandle; lpszPhonebook: pchar;
lpszEntryName: pchar ) : DWORD;stdcall; { 位于interface部分 }
function RasEditPhonebookEntryA; external ’Rasapi32.dll’;{ 位于implementation部分 }
　　參數(shù)：
　　　　hwnd（THandle）：新建撥號(hào)連接窗口的父窗口的句柄，可以為T(mén)Form的Handle，為NIL表示
                         Windows桌面(DeskTop)
　　　　lpszPhonebook（pchar）：電話本名稱,在Win9X下無(wú)作用,可設(shè)為空字符串
        lpszEntryName:（ pchar）：要修改的撥號(hào)連接的名稱，如’163’、’169’等
　　函數(shù)返回值：
　　　　0表示執(zhí)行成功；否則為錯(cuò)誤．

　　　　下面是一個(gè)修改指定撥號(hào)連接屬性的例子．
{ 修改指定撥號(hào)連接屬性 }
procedure TForm1.Button2Click(Sender: TObject);
var
   dwResult : DWORD;
   strDialName : string;
begin
     strDialName := ’163’;//撥號(hào)連接的名稱設(shè)為163
     //在當(dāng)前窗口中指定修改撥號(hào)連接的屬性
     dwResult := RasEditPhonebookEntryA( handle, ’’, PChar( strDialName ) );
     if dwResult = 0 then
        memo1.lines.add(’修改撥號(hào)連接’ + strDialName + ’成功!’)
     else
        memo1.lines.add(’修改撥號(hào)連接’ + strDialName + ’失敗!’)
end;

三、獲取當(dāng)前系統(tǒng)中可用的撥號(hào)連接名稱
　　為了讓用戶選擇使用撥號(hào)連接進(jìn)行撥號(hào)，我們需要獲取系統(tǒng)中已建立的撥號(hào)連接的名稱。在建立了撥號(hào)連接后，WIN9X將撥號(hào)連接的名稱和屬性寫(xiě)在了注冊(cè)表中，我們可以從注冊(cè)表中獲取當(dāng)前系統(tǒng)中可用的撥號(hào)連接名稱及在Internet Explorer中設(shè)置的默認(rèn)連接名稱。
　　在注冊(cè)表的HKEY_USERS.DefaultRemote accessAddresses下，列出了已經(jīng)在撥號(hào)網(wǎng)絡(luò)中建立了的撥號(hào)連接的名稱及其屬性設(shè)置，其中各項(xiàng)目的名稱即為可用的撥號(hào)連接的名稱；各項(xiàng)目的值即為各撥號(hào)連接的屬性設(shè)置．我們只要讀出各項(xiàng)目的名稱即可獲取當(dāng)前系統(tǒng)中可用的撥號(hào)連接名稱．
　　如果在Internet Explorer中設(shè)置了默認(rèn)連接名稱（查看＝》Internet選項(xiàng)＝》連接＝》連接＝》設(shè)置＝》使用以下?lián)芴?hào)網(wǎng)絡(luò)連接），則在注冊(cè)表的HKEY_USERS.DefaultRemoteAccess下，有一個(gè)字符串類型的鍵值，鍵值名InternetProfile，其值即為Internet Explorer中設(shè)置的默認(rèn)連接名稱。

　　　　下面是一個(gè)獲取當(dāng)前系統(tǒng)中可用的撥號(hào)連接名稱的例子．
{ 注意在Uses中增加Registry單元，用于操作注冊(cè)表 }
{ 獲取當(dāng)前系統(tǒng)中可用的撥號(hào)連接名稱 }
procedure TForm1.Button3Click(Sender: TObject);
var
   registryTemp : TRegistry;
   stringsTemp : TStringlist;
   intIndex : integer;
begin
       registryTemp := TRegistry.Create;
       stringsTemp := TStringlist.Create;
       with registryTemp do
            begin
                 RootKey := HKEY_USERS;//根鍵設(shè)置為HKEY_USERS
         //如果存在子鍵.DefaultRemoteAccessAddresses
                 if OpenKey(’.DefaultRemoteAccessAddresses’,false) then
                    GetValueNames( stringsTemp );//讀出各項(xiàng)目的名稱，即撥號(hào)連接名稱
                 CloseKey;
            end;
       //當(dāng)前系統(tǒng)中可用的撥號(hào)連接
       memo1.lines.add( ’******************當(dāng)前系統(tǒng)中有’+ IntToStr( stringsTemp.count )
                       +’個(gè)可用的撥號(hào)連接如下****************’);
       for intIndex := 0 to stringsTemp.count - 1 do
           memo1.lines.add( stringsTemp.strings[ intIndex ] );

       //列出Internet Explorer中設(shè)置的默認(rèn)連接名稱
       if registryTemp.OpenKey(’.DefaultRemoteAccess’,false) then
          memo1.lines.add( ’Internet Explorer中設(shè)置的默認(rèn)連接名稱為’ +
                           registryTemp.ReadString(’InternetProfile’) );

       //釋放內(nèi)存
       registryTemp.free;
       stringsTemp.free;
end;

四、用指定的撥號(hào)連接撥號(hào)
　　以上的三個(gè)工作的目的就是為了撥號(hào)上網(wǎng)，現(xiàn)在就來(lái)看看如果用指定的撥號(hào)連接撥號(hào)上網(wǎng)。最好的方法就是調(diào)用WIN9X的撥號(hào)網(wǎng)絡(luò)服務(wù)了，就是運(yùn)行WIN9X下的現(xiàn)成程序。
　　在Delphi程序中可以用如下代碼實(shí)現(xiàn)撥號(hào)上網(wǎng)：
　　winexec(’rundll32.exe rnaui.dll,RnaDial 163’,SW_SHOWNORMAL);
　　其中字符串中的最后一個(gè)參數(shù)“163”為撥號(hào)連接的名稱。

　　下面是一個(gè)用指定的撥號(hào)連接撥號(hào)上網(wǎng)的例子．
{ 用指定的撥號(hào)連接撥號(hào)上網(wǎng) }
procedure TForm1.Button4Click(Sender: TObject);
var
   strDialName : string;
begin
     strDialName := ’163’;//撥號(hào)連接的名稱設(shè)為163
     memo1.lines.add( ’******************用撥號(hào)連接’+ strDialName
                     +’實(shí)現(xiàn)撥號(hào)上網(wǎng)****************’);
     winexec( PChar(’rundll32.exe rnaui.dll,RnaDial ’ + strDialName),SW_SHOWNORMAL);
end;

以上程序在PWIN98+Delphi3.0下調(diào)試通過(guò)。

上一篇：在Delphi中處理數(shù)據(jù)庫(kù)日期型字段的顯示與輸入

下一篇：Delphi第三方控件大測(cè)評(píng)

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門(mén)圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注