FoxPro下实现拨号通信的小程序

Author: 姜升 Date: 1997-01-01
　　Ｆｏｘｐｒｏ包含一个可对各种类型文件进行读写操作的集合函数，即低层文件输入／输出函数（Ｌｏｗ－Ｌｅｖｅｌ　ｆｉｌｅ　Ｉ／Ｏ　Ｆｕｎｃｔｉｏｎ），它们不但可以建立、打开、读取并写入各种类型的文件，还可以对通讯口（Ｃｏｍｍｕｎｉｃａｔｉｏｎ　Ｐｏｒｔｓ）进行数据存取，基于此，我们可通过这些底层文件函数对通讯口的访问来实现数据的异步通讯。
　　下面举一简单例子，其功能是通过ＭＯＤＥＭ实现电话拨号和挂断电话，程序的实现过程为：首先，通过ＤＯＳ的内部命令ＭＯＤＥ对ＣＯＭ端口的波特率、停止位、奇偶校验位等进行设置，然后打开此通讯口，向其传送拨号命令进行拨号，程序源代码如下：
　　ｓｅｔ　ｔａｌｋ　ｏｆｆ
　　ｃｌｅａｒ
　　ｄｈ＝ｓｐａｃｅ（１５）
　　＠１０，１０　ｓａｙ　　＂请输入电话号码：＂
　　ｇｅｔ　ｄｈ
　　ｒｅａｄ
　　ｗａｉｔ　ｗｉｎｄ　＂请打开ＭＯＤＥＭ，按任意键开始拨号＂
　　ｄｈ＝ａｌｌｔｒｉｍ（ｄｈ）
　　！ｍｏｄｅ　ｃｏｍ１：２４００，ｎ，８，１　　　＊启动通讯接口ＣＯＭ１，２４００为传输率，ｎ表示不要奇偶校验，８为被传输符号使用的ｂｉｔ数，１表示传输符号使用的ｂｉｔ数
　　ｈｄ＝ｆｏｐｅｎ（＂ｃｏｍ１＂，１２）　　　　　＊打开通讯口ＣＯＭ１
　　ｉｆ　ｆｅｒｒｏｒ（）＝－１
　　ｗａｉｔ　ｗｉｎｄ　＂无法打开通讯口＂
　　ｒｅｔｕｒｎ
　　ｅｎｄｉｆ
　　＝ｆｐｕｔｓ（ｈｄ，＂ＡＴＤＴ＂＋ｄｈ）　　　　＊传送命令进行拨号
　　ｗａｉｔ　ｗｉｎｄ　＂按任意键取消与ＭＯＤＥＭ的联接，并退出＂
　　＝ｆｐｕｔｓ（ｈｄ，＂ＡＴＺＨ＂）　　＊取消联接
　　＝ｆｃｌｏｓｅ（ｈｄ）
　　ｒｅｔｕｒｎ