2024年5月5日发(作者：)
维普资讯
‘上海煤气》２００２年第２期．４０．
用ＶＢ６．０开发基于ＸＭＯＤＥＭ的通信软件
吴钟 曹如萍
摘要：信息管理系统中，常需接收远程的报表，快速可靠地实现数据的远程传输是其中的关键环节。在
对实时性要求不高的条件下，采用Ｍ０Ｄ删可以通过电话网进行数据的远程传输，这无疑是目前最经济的办
法。文章叙述了整个通信软件的开发过程，包括通信链路的建立：选用利用ＶＢ６ Ｏ开发基于ｘ】Ｉ咖＆协
议的方式传送数据以及数据通信结柬后，取方Ｍ０Ｄ删拆链挂机的程序。目前该通信软件己用于燃气行业
信息管理系统中实践证明是可靠的。
关键词；通信软件 接收 发送 数据远程传输
１前言 过电话网进行数据远程传输 实现计算机之间的
点对点通信，利用现有的电话线传输数据无疑是
在许多信息管理系统中，经常需要接收远程 最经济的方法。实现一网多用，产生良好的经济
的报表数据，如何快速可靠地实现数据的远程传
效益。
输是这些管理系统的关键环节，在实时性要求不
高的情况下，人们采用调制解调器（ＭＯＤＥＭ）通
２管理系统的远程传输数据原理（见图１）
图１远程传输数据的原理示意
在远程终端上，可以在简洁、直观的人机界
３通信软件的开发过程
面上将各类数据进行输入，并将数据存贮，依据
事先设定的条件经过调制解调器自动拨号，与中 ３ｌ通信链路的建立
心的远程主机联接．将有关数据送上电话线，在
为了从远程终端接收数据或向远程终端发命
数据中心则可利用Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０开发基于
令，首先必须与远方远程终端建立传输数据的通
ＸＭＯＤＥＭ协议的接收数据的通信软件，同样各远
信链路，在ＶＢ６，０下建立通信链路的程序如下：
程终端发送数据也采用ＸＭＯＤＥＭ协议，才能保
Ｓｕｂ Ｆｕｎｃｔ ｉｏｎ ｃｏｎｎｅｃｔ ０
证通信双方准确可靠地进行数据传输
ｉｔｈ］￣ｓｃｏｍａｌ
ｌｗｗｗ．ｇ３７７７锄＿Ｉ
维普资讯
‘上海煤气》２００２年第２期 －４１－
．
Ｃｏｍｐｏｒｔｓ＝１
Ｓｅｔｔｉｎｇｓ＝”９６００，Ｎ，８，ｌ”
Ｉｎｐｕｔｌｅｎ＝０
Ｐｏｒｔｏｐｅｎ ｔｒｕｅ
Ｉｎｂｕｆｆｅｒｃｏｕｎｔ ０
字节号
０
１
２
３ １３０
１３１
内容
ｓ叫（块头标识符）
块号：从１到ＦＦ循环
块号的反码（２５５块号）
数据
校验和
．
．
．
．
．
Ｏｕｔｐｕｔ＝“ＡＴＺ”＋ＣＨＲ（１３）
Ｌｏｏｐ：Ｏｏ
ＸＭＯＤＥＭ是简单的文件传输协议，基本的数
据格式如下：
逻辑通信控制字符、物理通信控制字符说明：
Ｄｏｅｖｅｎｔｓ ０
Ｌ００Ｄ ｕｎｔｉｌ．Ｉｎｂｕｆｆｅｒｃｏｕｎｔ＞＝２
Ｉｎｓｔｒ ｉｎｇ￥＝．ｉｎｐｕｔ
ＳＯＨ：这个字符标志为块头信息的开始：此握手
字符的对应值为：＆Ｈｌ
ＥＯＴ：标识数据块结束的位置；此握手字符的对
应值为：＆Ｈ４
Ｉｆ Ｉｎｓｔｒ（ｉｎｓｔｒｉｎｇ￥，“ｏｋ”）ｔｈｅｎ
Ｇｏｔｏ ｌｏｏｐ
Ｅｎｄｉｆ
Ｄｅｌａｙ（１）
．
ＡＣＫ：确认，是对无校验错误的响应：此握手字
符的对应值为：＆Ｈ６
Ｏｕｔｐｕｔ－“＆ＴＱＯＥ１ＶＯ＆Ｋ３’’
ＬＯＯＰ１：．Ｏｕｔｐｕｔ＝“ＡＴＯＰ１１１１８８８８”＋ｃＨＲ（１３）
Ｄｅｌａｙ（５）
Ｉｎｓｔｒｉｎｇ￥＝．Ｉｎｐｕｔ
ＮＡＫ：否定应答；此握手字符的对应值为：＆ＨＩ５
ＣＡＮ：取消：此握手字符的对应值为：＆ＨＩ８
３ ２ ２ＸＭＯＤＥＭ发送与接收
１）发送
Ｉｆ Ｎｏｔ（Ｉｎｓｔｒ（ｉｎｓｔｒｉｎｇ￥。”ｃｏＢｕｅｅｔ ９６００＇’）ｔｈｅｎ
Ｄｅｌａｙ（１）
Ｇｏｔｏ ｌｏｏｐｌ
Ｅｎｄｉｆ
当启动传输协议后，接收端发ＮＡＫ（Ｎｅｇａｔｉｖｅ
Ａｃｋｎｏｗｌｅｄｇｍｅｎｔ），发送端收到后，就把文件数据
按１２８个字节一块扎成数据包，并发送它，再等
Ｍｓｇｂｏｘ“数据链路已成功建立，可以传输数据了”
Ｅｎｄ ｗｉｔｈ
待接收方对此的确认信号 从接收方来的ＡＣＫ信
号意味着信息包被正确接收，也可解释为隐含着
请求发送下一个数据包，而ＮＡＫ信号则是表示请
求重发同一数据包，ＣＡＮ信号是请求无条件地停
止传输过程。如果结束阶段正常结束，则发送方
发送一个单独的ＥＯＴ信号来通知接收方不会再有
数据传来了，接收方用ＡＣＫ信号来确认发送方的
ＥＯＴ信号。接着依次进行关闭操作、关闭文件、
释放内存 如中间阶段是异常结束的，则发送方
就不发送Ｂ０Ｔ信号
２）接收
Ｅｎｄ Ｆｕｎｔｉｏｎ
３ ２数据传输过程
两端正确可靠地建立数据链路后就可以进行
数据通信，通常利用电话线传输数据并没有一种
简单的方法确保数据完整地到达日的地，数据错
误的发生可能由多种原因引起，串行通信的数据
是逐位发送的 即使细微的噪声都可能在多个位
上造成严重错误．当波特率较高时更严重，本文
介绍一种选用ｘＭＯＤＥＭ协议，对所传送数据进
接收方每隔１Ｏ秒发出一个ＮＡＫ信号，而一
个ＳＯＨ信号的到来则表示已经有信息包过来，接
收作如下评价：
Ａ１虽然信息包形式是ＳＯＨ信号来标识一个包的开
始，但在这个位置上若没有一个单独的ＥＯＴ字节
行打包以检测传输过程中出现的错误，理论上讲
如果每个数据包正确地传送，整个数据块也将成
功地传送。
３．２．１ ｘＭＯＤＥＭ的数据包格式及逻辑通信控制字
符、物理通信控制字符
则表明再没有包送来了，这也表示传送阶段结束。
１ｗｗｗ．ｇ３７７７ｃｏｒｎ．Ｉ
维普资讯
《上海煤气》２００２年第２期 ＿４２一
Ｂ）数据包序号的完整性检验。换句话说 接收方
ＭＳＣｏｍｍ１．１ｎＢｕｆｆｅｒＣｏｕｎｔ Ｏ
确定它收到的第二、三区段是否被损坏，典型的
Ｒｎ＝ｄｅｌａｙ（２）
步骤为：这两个连续的区段中的一个取补，再于
ＭＳＣｏｍｍ１．０１１ｔｐｕｔ＝“＋十＋’’
另一个作异或运算 结果为Ｏ，则表示两个区段均
Ｒｎ＝ｄｅｌａｙ（２）
未破坏。如果不为Ｏ，则接收方发出ＮＡＫ信号请
Ｍｓｃｏｍｍ１．Ｏｕｔｐｕｔ＝“ａｔｈ”＋Ｃｈｒ￥（１３）＋Ｃｈｒ￥（１Ｏ）
求同一数据包，并返回等待状态。
Ｓｔａｒｔ＝Ｔｉｍｅ
Ｃ）接着，接收方确定该序号是否是期望的 一般
Ｄｏ Ｗｈｉｌｅ Ｔ［ｍｅｒ Ｓｔａｒｔ（４
来说。若包的序号不正确，则有一种严重的错误
Ｉｆ ｌ｛ＳＣｏｍｍ１．ＩｎＢｕｆｆｅｒＣｏｕｎｔ Ｔｈｅｎ
发生。因接收方没有办法从序号错误中恢复，故
Ｄａｔａ
—
ｒｅ￥－Ｄａｔａ
＿
ｒｅ￥＋ＭＳＣｏ￣１．Ｉｎｐｕｔ
要发送一个ＣＡＮ信号来中断并结束传送
Ｉｆ ＩｎＳｔｒ（Ｄａｔａ—ｒｅ￥，“ｏｋ ）Ｔｈｅｎ
Ｄ）最后，接收方只计算数据区段的算术和（按２５６
Ｉ－ｌａｎｇｕｐ＝０
取模）并与数据包中的校验值比较，若相等，则
Ｅｘｉｔ Ｓｕｂ
接收方发送ＡＣＫ信号，否则发送ＮＡＫ信号。
Ｅｎｄ ｉｆ
如果接收方传送正常结束 则它按顺序执行
Ｅｎｄ ｉｆ
关闭操作、关闭文件、释放内存等 如果在关闭
Ｌｏｏｐ
操作中没有错误出现，就发送一个ＡＣＫ信号来确
Ｎｅｘｔ Ｉ
认发送方的ＥＯＴ信号，并结束传送过程。
Ｈａｎｇｕｐ １
Ｅｎｄ Ｆｕｎｅｔ ｉｏｎ
３ ３数据通信结束
通过上述三个过程能够可靠地将数据通过电
数据通信结束后，双方ＭＯＤＥＭ要拆链挂
话线传输，在开发的过程种用ＶＢ６０编程对
机 向ＭＯＤＥＭ发送“＋一。。＂是实现数据传输状态
ＭＯＤＥＭ进行正确设置是关键：在发送握手信号
转为命令状态的ＡＴ指令，它的前后必须有一段时
时，通信双方需适当的延时程序配合。
问延时，当ＭＯＤＥＭ变为命令状态时，可以用ＡＴＨＯ
来实现挂机 ＶＢ下实现挂机的程序如下：
４结束语
Ｆｕｎｅｔｉｏｎ ｈａｎｇｕｐ０ Ａｓ Ｉｎｔｅｇｅｒ
Ｄｉｍ Ｓｔａｒｔ．Ｒｎ．Ｉ
本通信软件已经在燃气行业信息管理系统中
Ｄｉｍ Ｄａｔａ ｒｅ￥＝…
得到应用，经过实践证明，ＸＭＰＤＥＭ协议通过电
Ｆｏｒ Ｉ＝１ ｔＯ １０
话网进行远距离的发送台接收数据是可靠的．能
Ｄａｔａ ｒｅ￥－…
够满足计算机点对点数据传输要求。
Ｄｅｖａｌｏｐｍｅｎｔ Ｏｏｍｍｕｎｉｃａｔｉｏｎ Ｓｏｆｔｗａｒｅ ｂａｓｅｄ ｏｎ Ｘ啪ＤＥＭ ｗｉｔｈ ＶＢ６．０
Ⅵ，ｕ Ｚｈｏｎｇ Ｃａｏ Ｒｕｐｌｎｇ
Ａｂｓｔｒａｃｔ：Ｒｅｍｏｔｅ－ｒｅｃｅｔｒｉｎｇ ｉｓ ｖｅｒｙ－ｉｍｐｏｒｔａｎｔ ｉｎ ＭＩＳ ｓｙｓｔｅｍ，ａｎｄ ｔｈｅ ｋｅｙ
ｉｓ ｈｏｗ ｔｏ ｒｅａｌｉｚｅ ｔｒａｎｓｍｉｓｓｉｏｎ ｑｍｃ￣ｙ
＿
ａｎｄ ｒｅｌｉａｂ Ｔｈｉｓ ｐａｐｅｒ ｄｅｓｃｒｉｂｅｓ ｄｅ￣ｌｏｐｍｅｍ ｏｆ ｓｕｃｈ ａ ｃｏｍｍｕｎｉｃａｔｉｏｎ ｓｏｆ ｅ ｕｓｉｎｇＶＢ６ ０
，
ａｎｄ ｂａｓｃｄ ｏｎ
ＸＭＯＤＥＭ‘ｓ ｃｏｍｍｕｎｉｃａｔｉｏｎ ａ￣ｅｅｍｃｎｔ
Ｋｅｙｗｏｒｄｓ： ｃｏｍｍｕｎｉｃａｔｉｏｎ ｓｏｆｔｗａｒｅ ｒｃｃｃｉ ｎｇ ａｎｄ ｓｅｎｄｉｎｇ ｄａｔｕｍ ｒｅｍｏｔｅ ｔｒａｎｓｍｉｓｓｉｏｎ
致歉：因工作疏忽，上期的Ｒ３３与Ｒ３４重复印刷，现将文章重印于此 井向作者与读者表示歉意
《上海煤气》期刊社
１ｗｗｗ．８３７７７ ｃｏｒｎ－Ｉ
发布评论