您现在的位置: 中国男护士网 >> 考试频道 >> 计算机等级 >> 二级辅导 >> VFP >> 辅导 >> 正文    
  在VFP中调用API实现拨号上网 【注册男护士专用博客】          

在VFP中调用API实现拨号上网

www.nanhushi.com     佚名   不详 

  在Visual FoxPro 中实现拨号上网功能,难点在于如何调用相应的WINDOWS API函数。与拨号网络相关的几个API函数需要复杂的结构类型的参数,在VFP帮助文件“程序员指南—访问API”中有相关说明,但较为简单,不足以解决问题,在此作进一步探讨。希望通过本文能解决实现拨号上网的实际问题,更希望通过这个例子帮助了解如何在VFP环境下调用参数复杂的API函数,以扩展VFP的应用。

  因篇幅所限,本文仅论述关键部分,相关细节说明请参阅参考文件。

  WINDOWS API中RasDial函数可实现拨号上网功能,可在MSDN帮助中查到,其参数简述如下:

DWORD RasDial( // 返回四字节整数,对应VFP的INTEGER型变量
 LPRASDIALEXTENSIONS lpRasDialExtensions, // 指针,置NULL即可
 LPCTSTR lpszPhonebook, // 指针,置NULL即可
 LPRASDIALPARAMS lpRasDialParams,
 // 指针,指向参数结构变量RASDIALPARAMS
 DWORD dwNotifierType, // 四字节整数,置0即可
 LPVOID lpvNotifier, // 指针,置NULL即可
 LPHRASCONN lphRasConn // 指针,指向远程访问连接句柄HRASCONN。
 // 调用RasDial前需先置HRASCONN为NULL
);

  其中结构RASDIALPARAMS描述如下:

typedef struct _RASDIALPARAMS {
 DWORD dwSize; // 4字节,值为本结构占用总字节数
 // 调用此函数前必须给此变量赋值
 TCHAR szEntryName[RAS_MaxEntryName + 1];
 // 257字节,拨号网络电话簿中连接名,
 // 为空则在第一个MODEM端口上,用下述电话号码、用户名、密码建立连接
 TCHAR szPhoneNumber[RAS_MaxPhoneNumber + 1]; // 129字节,电话号码
 TCHAR szCallbackNumber[RAS_MaxCallbackNumber + 1];
 // 129字节,回叫号码,置空
 TCHAR szUserName[UNLEN + 1]; // 257字节,用户名
 TCHAR szPassword[PWLEN + 1]; // 257字节,密码
 TCHAR szDomain[DNLEN + 1] ; // 16字节,域名,置空
 #if (WINVER >= 0x401) // 缺省情况下,WINVER=Ox400,无以下两项
  DWORD dwSubEntry;
  DWORD dwCallbackId;
 #endif
} RASDIALPARAMS;

  以上RAS_MaxEntryName等预定义值,可从RAS.H与LMCONS.H中查出。难点在于dwSize值的确定:将结构中各变量字节长度累加应为1049字节,但将1049代入dwSize去调用RasDial函数却返回错误。启动VC++6.0定义了一个RASDIALPARAMS型结构变量后,发现其长度为1052字节,即最接近1049且能被4(DWORD所占字节数)整除的值。


  分析至此,函数RasDial的各项参数已清楚,VFP中调用程序如下:

  *!* 先注册函数

DECLARE INTEGER RasDial in rasapi32 ;
INTEGER , ; && lpRasDialExtensions
INTEGER , ; && lpszPhonebook
STRING @ , ; && 指向RasDialParams
INTEGER , ; && dwNotifierType
INTEGER , ; && lpvNotifier
INTEGER @ && 指向hRasConn
*!* 给结构变量RasDialParams中各变量赋初值
dwSize= CHR(28)+ CHR(4)+ CHR(0)+ CHR(0) && 即4*256+28=1052
szEntryName=REPLICATE(CHR(0), 257) && 不使用电话簿
sTemp="95963" && 服务器(INTERNET服务商或自建)的电话号码
TszPhoneNumber = sTemp +REPLICATE(CHR(0),129-LEN(sTemp)) && 补足129字节
szCallbackNumber=REPLICATE(CHR(0), 129) && 回拨号码,置空
sTemp="263" && 用户名
szUserName = sTemp +REPLICATE(CHR(0),257-LEN(sTemp)) && 补足字节数
sTemp="263" && 密码
szPassword = sTemp +REPLICATE(CHR(0),257-LEN(sTemp)) && 补足字节数
szDomain=REPLICATE(CHR(0), 16) && 如为自建服务器,可填入相应域名
*!* 生成结构变量RasDialParams初值
RasDialParams=dwSize+szEntryName+TszPhoneNumber+szCallbackNumber ;
+szUserName+szPassword+szDomain +REPLICATE(CHR(0), 3)
hRasConn=0 && 远程访问连接句柄,初值为0
DialResult=RasDial(0,0, @RasDialParams,0,0,@hRasConn)

  断线的程序如下:

DECLARE INTEGER RasHangUp in rasapi32 INTEGER
HangResult=RasHangUp(hRasConn)

  注意以下几点:

  * 指针参数(p或lp开头)通常按引用传递。NULL指针为特殊情况,其值为0,在VFP中对应值为0的INTEGER类型变量。句柄参数(H开头)对应INTERGER变量。

  * API函数中空字符的ASCII码为0,即CHR(0)。

  本文中的程序在Visual FoxPro 6.0下编译通过,在WINDOWS98、WINDOWS2000下运行成功。

 

文章录入:杜斌    责任编辑:杜斌 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
     

    联 系 信 息
    QQ:88236621
    电话:15853773350
    E-Mail:malenurse@163.com
    免费发布招聘信息
    做中国最专业男护士门户网站
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    专 题 栏 目

      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)                            【进男护士社区逛逛】
    姓 名:
    * 游客填写  ·注册用户 ·忘记密码
    主 页:

    评 分:
    1分 2分 3分 4分 5分
    评论内容:
  • 请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。
  • 严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
  • 用户需对自己在使用本站服务过程中的行为承担法律责任(直接或间接导致的)。
  • 本站管理员有权保留或删除评论内容。
  • 评论内容只代表网友个人观点,与本网站立场无关。