不調用撥號網絡在程序中撥號

2019-11-17 05:37:19

字體：大中小

來源：轉載

供稿：網友

　　用撥號連接撥號的RasAPI函數為RasDial，其函數原型為：
function RasDial(PRasDialExtensions : LPRASDIALEXTENSIONS;//在WIN9X下無用,可
設置為NIL
lpszPhonebook : PChar;//電話本名稱，在Win9X下無作用,可為空字符串
lpRasDialParams : LPRASDIALPARAMS;//撥號參數
dwNotifierType : DWord;//消息通知方式
handle : TRasDialFunc;//消息處理事件
var lphRasConn : DWORD//返回的成功連接的連接句柄
) : DWORD; stdcall;
function RasDial;external RasApiDll name 'RasDialA';

　　　　參數pRASDIALPARAMS的說明同RasGetEntryDialParams．
　　　　參數dwNotifierType表示消息通知方式．在撥號過程中，
系統發出撥號事件消息可以通知撥號
　　進度，因而需要提供接受消息的方式和處理消息的函數．當其
值為$FFFFFFFF時，則參數handle被
　　視為一個窗口的句柄，事件消息被發生該窗口處理；當其值為0
時，handle被視為TRasDialFunc類型
　　的函數的指針；當其值為1時，handle被視為TRasDialFunc1類
型的函數的指針．
　　　　參數handle表示消息處理函數指針，其類型可以THandle、
TRasDialFunc、TRasDialFunc1．當該
　　參數不為NULL或NIL時，其代表的消息處理函數指針將接受撥號
進度通知消息；為NIL時，撥號過程由
　　異步方式變為同步方式，直到撥號過程成功或失敗后RasDial函
數才返回．具體可參見Delphi幫助文件
　　中關于RasDial函數的幫助。
　　　　當撥號連接成功時，lphRasConn將表示其連接句柄．

　　　　函數返回值為0表示執行成功；否則為錯誤代碼．
　　　　下面是一個應用例子，按指定的撥號參數撥號．

var
RASDIALPARAMSData : RASDIALPARAMS;
dwResult : DWord;
RasCon : DWord;
begin
//指定撥號連接的撥號參數
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//結構大小
szEntryName := '163';//指定撥號連接的名稱
szUserName := 'MyName';//指定用戶名稱
szPassword := 'MyPassword';//指定用戶密碼
szDomain := 'MyDomain';//指定域名
szCallbackNumber := '';//指定回叫號碼
szPhoneNumber := '';//指定撥號號碼
end;

//用指定的撥號參數撥號，采用同步撥號方式
dwResult := RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon
);

if dwResult < > 0 then //設置指定撥號連接的撥號參數失敗
memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName
)+'撥號失敗：'
+ GetRasError( dwResult ))
else
memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName
)+'撥號成功！' );
end;

上一篇：猜數游戲

下一篇：編程入門:淺談C語言的可變參數