VFP中实现电话拨号

来源：作者：出处：综艺读书 2006-10-13

关键词：通信设计

用ＶＦＰ管理名片簿、通信录时，经常要用到电话拨号程序。如直接使用Ｗｉｎｄｏｗｓ９８自带的拨号程序，ＶＦＰ程序的完整性和界面一致性都将受到影响。
设计思想

要实现拨号，只需让程序往串口写入ａｔ命令。利用ＶＦＰ对ＭｉｃｒｏｓｏｆｔＣｏｍｍＣｏｎｔｒｏｌ控件的支持可以方便地控制电话。假设有一数据表Ｃｏｍｍｕｎｉｃａｔｉｏｎ．ｄｂｆ，内容如下：姓名电话号码其他张三１２３４５６７ＥＴＣ……将上述表引入表单Ｆｏｒｍ１的数据环境之后，在Ｆｏｒｍ１上加入下列控件，如下所示：
控件名称控件类型控件属性值
Ｔｅｘｔ１ＴｅｘｔＣｏｎｔｒｏｌＳｏｕｒｃｅ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ．姓名
Ｔｅｘｔ２ＴｅｘｔＣｏｎｔｒｏｌＳｏｕｒｃｅ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ．电话号码
Ｃｏｍｍａｎｄ１ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“拨号”
Ｃｏｍｍａｎｄ２ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“挂断”
Ｃｏｍｍａｎｄ３ＣｏｍｍａｎｄＢｕｔｔｏｎＣａｐｔｉｏｎ＝“下条记录”
在表单中加入ＯＬＥ容器控件，当提示菜单出现时，选择ＩｎｓｅｒｔＣｏｎｔｒｏｌ，在ＣｏｎｔｒｏｌＴｙｐｅ（控件类型）栏内找到并双击ＭｉｃｒｏｓｏｆｔＣｏｍｍＣｏｎｔｒｏｌ，这时表单上会出现一个带电话标志的图标，设定该控件的名称为Ｔｅｌｅｐｈｏｎｅ，这就是在ＶＦＰ中实现电话拨号的核心部件。选择Ｔｅｌｅｐｈｏｎｅ控件，单击鼠标右键，选择ＭＳＣｏｍｍＰｒｏｐｅｒｔｉｅｓ菜单项，可以更加灵活地控制该控件。
设定事件代码
在Ｆｏｒｍ１的Ｉｎｉｔ事件中加入下列代码：
ｇｏｔｏｐ
＊设定通讯端口号，可根据你的实际情况设定
＊笔者的Ｍｏｄｅｍ是接在Ｃｏｍ３上的ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ＣｏｍｍＰｏｒｔ＝３
＊设定端口的通讯速率（波特率）、通讯字长以及是否进行校验
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．Ｓｅｔｔｉｎｇｓ＝″９６００，ｎ，８，１″
在Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ事件中加入下述代码：
ｔｈｉｓ．ｅｎａｂｌｅｄ＝．ｎｏｔ．ｔｈｉｓ．ｅｎａｂｌｅｄ
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．ｔ．
＊打开通信端口，准备工作
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｐｏｒｔｏｐｅｎ＝．ｔ．
＊ＡＴＤＴ表示执行ＡＴ命令中的ＤＴ指令，Ｄ表
示首先挂断电话
＊Ｔ表示使用音频拨号，如果你的电话使用的
是脉冲方式拨号
＊请将Ｔ改为Ｐ，ＣＨＲ（１３）表示发送命令完毕
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｏｕｔｐｕｔ＝″ＡＴＤＴ″＋电话号码＋
ｃｈｒ（１３）
ｗａｉｔｗｉｎｄ″正在拨号，请稍候″ｎｏｗａ
在Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ事件中写入下列代码：
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ＝．ｔ．
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．ｆ．
＊关闭通信端口
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ．ｐｏｒｔｏｐｅｎ＝．ｆ．
在Ｃｏｍｍａｎｄ３的Ｃｌｉｃｋ事件中写入下列代码：
ｓｋｉｐ ｉｆｅｏｆ（）
ｇｏｔｏｐ
ｅｎｄｉ
ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ
经过上面几个步骤，大功告成了。戴上耳机，对着话筒。

（四川省新都县国家税务局６１０５００）

进入讨论组讨论。

【收藏此文】【大中小】【打印】【关闭】

较早的文章：VFP中实现超链接

较新的文章：VFP中使用“宏”来提高编程效率

站内各频道最新更新文档

形形色色的台湾特产

怀念“黛玉”妹妹

·如何设置路由器
·照片合成处理软件
·RedHat6.2服务配置之Apache
·提升电脑性能的方法
·电脑无法正常启动的问题
·delphi两种方法使用xml文档
·证券行业交易平台解决方案
·三星人寿保险Sybase案例

·东软商业保险系统解决方案
·CSO向Sun平台应用移植解决..
·东软税务全面整体解决方案
·珠海国地税KILL安全系统案例
·友讯：D-Link助昆明市公安..
·江苏邮政票据打印机系统方案
·浪潮：云南国税备份系统案例
·CSS 标签属性

站内最新制作专题

·ACDSEE专题教程-下载使用
·迅雷专题教程-下载使用
·Windows XP频道
·Windows Vista频道
·Windows 2000频道
·win2003频道
·Freebsd频道
·Oracle频道

·Linux频道
·Windows频道
·邮件服务器专题
·协议大全
·数据恢复指南教程
·FreeBSD使用教程
·Linux数据库宝典
·Linux基础知识

热门关键字导读

Photoshop教程：照片处理照片制作 PS快捷键抠图
计算机故障：XP系统修复
艺术与设计：设计流媒体设计欣赏边框
计算机安全：ARP

站内频道文章精选

新闻资讯	电脑技巧
· 秘密:Vista隐蔽的动态屏保 · 腾讯开发新电子宠物--QQ熊 · 惠普否认2999元PC有价无货	· 驱逐Win系统“流氓”文件 · WinXP中获取未使用的IP地址 · 尝试format C:格式化硬盘？
操作系统	常用软件
· 在DOS下恢复回收站中的文件 · 拯救WinXP崩溃的救命稻草 · Linux系统中超级权限的应用	· 搜狗PK谷歌：谁能代言拼... · 昨日重现，一键GHOST轻松.. · 实现Web迅雷在空闲时杀毒
桌面开发	网络编程
· AVIFile函数制做AVI文件 · VC中链接动态链接库的方法 · 熊猫烧香核心源码(Delphi)	· DateDiff函数祥解 · JavaScript去除空格的三种 · js效果图片加载进度实时..
数据库	图像处理
· SQL Server数据库优化方案 · Oracle的初学者入门心得 · JSP连接Mysql数据库	· Photoshop为美女做艺术处理 · 用Freehand创建发光字特效 · 设计自己的个性QQ动态表情

百度推荐，商机无限

搜索您感兴趣的内容