FoxProforWindows远程拨号通讯功能的设计与实现
目录
1. 设计思想?
2. FoxTools.FLL的导入
3.注册与执行API函数方法?
3. 1注册API函数?
3. 2执行API函数?
4. 调制解调器设计函数?
4. 1 〖ZK(〗打开通讯信道函数OpenComm (
4. 2 [ZK(]传递通讯信息函数WriteComm()\=
4. 3关闭通讯信道函数CloseComm(
5. 设计实例?
S="ATH O"+ch r(13)\=
6.结束语?
正文
计算机远程传输系统是实现不同区域信息联接的信息系统采用以计算机、 调制解调器(MO DEM)并通过电话线路组建设计算机远程传输系统不失为一种廉价而且有效的构造方案。采用这种硬件构造方案必须配套以相应的传输工作软件实现不同区域的信息协调工作。 目前F ox Pro for Windows的流行使之日益成为我们程序设计的首选语言但FoxPro for Windows语言本身并未提供远程拨号通讯的设计功能。本文就此提出一种简单、实用的解决方案。
1.设计思想?
在FoxPro for Windows提供了一类特殊动态连接库
FoxTools.f ll。在这个动态连接库中提供了几十种实用的函数其中最为实用的是它提供了可直接调用Windows API的接口函数 RegFn()和CallFn () 。 Windows在其API提供了丰富的函数调用功能其中包含了如OpenComm() 、 Wr i teComm() 、 Clo se Comm()等实用的通讯函数功能。 FoxToo ls.FLL架起了它们之间沟通的桥梁。基于此我们就可以驾驭这些AP I函数实现我们所需要的通讯功能。
2. FoxTool s.FLL的导入
FoxTool s.FLL提供于FoxPro for Windows的安装目录FOXPROW的一级子目录下在编程过程中我们宜将FoxTool s.FLL放置于应用程序的主程序的开始部分 以便于后继程序的调用。通常对
FoxTools.f ll的导入命令格式如下
SET LIbrARY TO “FOXTOOLS.FLL” ADDITIVE?
如果我们在工程文件PROJECT中能用ADD命令加入库(L ibrary)文件将FoxTools.Fll的置于所生成的EXE文件中就可以避免在提交EXE文件时也必须附带FoxTool s.FLL的繁琐。
3.注册与执行AP I函数方法?
3. 1注册API函数?
采用FoxTools.FLL的RegFn()可以实现Windows API的函数的注册命令格式如下
R e gFn(AP I函数名称 参数类型 返回值类型 API函数库名称)
其中 〖ZK(〗AP I函数名称为我们所要登记的AP I函数名称。
参数类型为所要传递的参数类型共有六种
①I整型?
②L长型?
③S传址方式字符型?
④C传值方式字符型?
⑤F浮点型?
⑥D双精度型?
返回值类型为本函数调用返回值的类型有以下五种
①I整型?
②L长型?
③S传址方式字符型?
④F浮点型?
⑤D双精度型?
API函数库名称为容含所注册API函数库的名称注意需写明包括扩展名在内的全称如GD I.EXE等。
3.2执行API函数?
采用FoxTools.FII的CallFn()可以执行已注册成功的WindowsAPI的函数语法格式如下 ?
CallFn(API函数注册名称 调用参数1 调用参数
2
其中 API函数注册名称为我们在Re gFn()注册API函数后返回的名称。
调用参数为调用该AP I函数所需要的参数。
4.调制解调器设计函数?
Windows API函数中有关通讯的函数原型如下
4. 1 〖ZK(〗打开通讯信道函数OpenComm (
OpenComm(LPSTR 1pCommName WORD wInQueue WORD wOutQueue)
其中 1pCommName为通讯端口名称如LPT1、 COM1等?
wInQueue为所接受的数据队列的长度一般置为1024。
wOutQueue同上?
4.2 [ZK(]传递通讯信息函数Wr i teComm()\=
WriteComm(int nCid LPSTR 1pBuf int Size)\=
其中 nC id为OpenComm()函数返回的信道标志?
1pBuf为传输的缓冲内容?
Size为传输的缓冲大小?
4.3关闭通讯信道函数CloseComm(
CloseComm(nCid)
其中 nC id为OpenComm()函数返回的信道标志。
5.设计实例?
我们根据上述设计思想设计了一段程序说明远程通讯功能的具体实现方法该程序只是简单地完成一个通过电话线拨号功能。
Set Library to "Foxtools.fll" Additive &&打开数据库?
Open=RegFn("OpenComm" "CI I" "I") &&注册Open函数\=
Write=RegFn("Wri teComm" "ICI" "I") &&注册Wri te函数?
Close=RegFn("CloseComm" "I" "I") &&注册Close函数?
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
*调用O p en函数打开C OM2通讯端口?
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
Com2=Cal lFn(Open "COM2" 100 100)\=
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
*设置拨号电话号码?
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
Telno="ATTD 3608511"+chr(13)\=
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
*调用Wr i t e函数拨号?
*[CDD 19*2] [CDD 19*2] [HJ 1.6mm]
Restcall=CallFn(Write Com2 Telno len(Telno))\=If Restcall0?
Wait Window "传输故障请检查线路!
Endif\=
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
*调用Wr i t e函数结束传输?
*[CDD 19*2]?[CDD 19*2] [HJ1.6mm]
S="ATHO"+c hr(13)\=
Restcall=CallFn(Write Com2 S len(S))\=
If Restcall0?
Wait Window "传输故障请检查线路!
Endif\=
Restcall=CallFn(Close Com2)=
If Restcall0?
Wait Window "线路关闭故障请检查线路!
Endif?
6.结束语?
根据上述的设计思想我们可以实现基本的计算机远程拨号通讯功能。文中所述在中文Wind ows 3.2环境下用FoxPro for Windows
2.5b程序设计语言实现并通过。 ?
提速啦的来历提速啦是 网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑 由赣州王成璟网络科技有限公司旗下赣州提速啦网络科技有限公司运营 投资1000万人民币 在美国Cera 香港CTG 香港Cera 国内 杭州 宿迁 浙江 赣州 南昌 大连 辽宁 扬州 等地区建立数据中心 正规持有IDC ISP CDN 云牌照 公司。公司购买产品支持3天内退款 超过3天步退款政策。提速啦的市场定位提速啦主...
JUSTG,这个主机商第二个接触到,之前是有介绍到有提供俄罗斯CN2 GIA VPS主机活动的,商家成立时间不久看信息是2020年,公司隶属于一家叫AFRICA CLOUD LIMITED的公司,提供的产品为基于KVM架构VPS主机,数据中心在非洲(南非)、俄罗斯(莫斯科),国内访问双向CN2,线路质量不错。有很多服务商实际上都是国人背景的,有的用英文、繁体搭建的冒充老外,这个服务商不清楚是不是真...
关于Linode,这是一家运营超过18年的VPS云主机商家,产品支持随时删除(按小时计费),可选包括美国、英国、新加坡、日本、印度、加拿大、德国等全球十多个数据中心,最低每月费用5美元($0.0075/小时)起。目前,注册Linode的新用户添加付款方式后可以获得100美元赠送,有效期为60天,让更多新朋友可以体验Linode的产品和服务。Linode的云主机产品分为几类,下面分别列出几款套餐配置...