不调用拨号网络在程序中拨号

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

用拨号连接拨号的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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航