关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 网络通讯 ->详细
相关内容  
 
 
在Delphi程序中应用IE浏览器控件
 
【新品推荐】

  详细内容
 

不调用拨号网络在程序中拨号
作者: 评价: 上站日期: 2002-05-30
内容说明:
来源:

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

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> delphi -> 开发技巧 -> 网络通讯 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0