网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
如何Delphi中操纵拨号网络
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
而需要提供接受消息的方式和处理消息的函数.当其值为$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;


2、挂断指定的拨号连接

挂断拨号连接的RasAPI函数为RasHangUp,其函数原型为:

function RasHangUp(

hRasConn : DWORD//要挂断的拨号连接的句柄

) : DWORD; stdcall;

function RasHangUp;external RasApiDll name ''RasHangUpA'';

函数返回值为0表示执行成功;否则为错误代码.

下面是一个应用例子,挂断由RasDial建立的拨号连接.


//挂断由RasDial建立的拨号连接

dwResult := RasHangUp( RasCon );

if dwResult <> 0 then //挂断失败

memo1.lines.add( ''挂断失败:'' + GetRasError( dwResult ))

else

memo1.lines.add( ''挂断成功!'');


五、获取当前活动的连接及其连接状态

1、获取当前活动的连接

获取当前活动的连接的RasAPI函数为RasEnumConnections,其函数原型为:

DWORD RasEnumConnections(
  LPRASCONN lprasconn,     // buffer to receive connections
                           //  data
  LPDWORD lpcb,            // size in bytes of buffer
  LPDWORD lpcConnections   // number of connections written
                           //  to buffer
); 

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号