分布式系统中通信的设计与实现是至关重要的环节，它的数据采集站可直接与现场带有标准 ＲＳ — ２３２Ｃ 接口的智能仪表、ＰＬＣ和单片机等链接，并可通过扩展控制卡形成一个数据采集子网，以高速准确地获取数据。ＶＢ 的 ＭＳＣＯＭＭ 通信控件具有完善的串口数据发送和接受功能，利用它可以屏蔽对硬件的操作，简易快捷地进行串行通信编程。

 一、实例分析
 本文举分布式系统中两个节点间连接的实例，其中节点 Ａ（ＩＰ地址１９２．１６８．０．１）作为服务器负责某一区域的数据采集与处理，程序内有一名为ＴＣＰＳｅｒｖｅｒ的Ｗｉｎｓｏｃｋ控件；节点Ｂ（ＩＰ地址１９２．１６８．０．２）是同级或上一级的某一节点，作为客户机，其程序内有一名为 ＴＣＰＣｌｉｅｎｔ 的 Ｗｉｎｓｏｃｋ 控件。

 节点Ａ 服务器核心程序如下：

 （１）初始化程序
 ｔｃｐｓｅｒｖｅｒ（０）．ＲｅｍｏｔｅＨｏｓｔＩＰ　＝　１９２．１６８．０．２
 ｔｃｐｓｅｒｖｅｒ（０）．ＬｏｃａｌＰｏｒｔ　＝　１００１　　　＇ｔｃｐｓｅｒｖｅｒ（０）专用于侦听
 ｔｃｐｓｅｒｖｅｒ（０）．Ｌｉｓｔｅｎ

 （２）发送数据程序

 ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ　Ｔｅｘｔ１．Ｔｅｘｔ

 （３）处理客户机连接请求程序

  Ｐｒｉｖａｔｅ　Ｓｕｂ　ＴＣＰＳｅｒｖｅｒ＿ＣｏｎｎｅｃｔｉｏｎＲｅｑｕｅｓｔ（Ｉｎｄｅｘ　ＡｓＩｎｔｅｇｅｒ，　ＢｙＶａｌ　ｒｅｑｕｅｓｔＩＤ　Ａｓ　Ｌｏｎｇ） Ｌｏａｄ　ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ） ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．Ａｃｃｅｐｔ　ｒｅｑｕｅｓｔＩＤ  Ｅｎｄ　Ｓｕｂ

 （４）客户机数据到达处理程序

 Ｐｒｉｖａｔｅ　Ｓｕｂ　ＴＣＰＳｅｒｖｅｒ＿ＤａｔａＡｒｒｉｖａｌ（Ｉｎｄｅｘ　Ａｓ　Ｉｎｔｅｇｅｒ，
ＢｙＶａｌ　ｂｙｔｅｓＴｏｔａｌ　Ａｓ　Ｌｏｎｇ）  Ｄｉｍ　ＲＤ　Ａｓ　Ｓｔｒｉｎｇ  ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＧｅｔＤａｔａ　ＲＤ，　ｖｂＳｔｒｉｎｇ  ｔｘｔＲＤ．ｔｅｘｔ＝ＲＤ
 ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．ＳｅｎｄＤａｔａ　ＲＤ  Ｅｎｄ　Ｓｕｂ

 （５）关闭连接程序
 Ｐｒｉｖａｔｅ　Ｓｕｂ　ＴＣＰＳｅｒｖｅｒ＿Ｃｌｏｓｅ（Ｉｎｄｅｘ　Ａｓ　Ｉｎｔｅｇｅｒ）
 ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）．Ｃｌｏｓｅ
 Ｕｎｌｏａｄ　ｔｃｐｓｅｒｖｅｒ（Ｉｎｄｅｘ）
 Ｅｎｄ　Ｓｕｂ
 以上程序着重说明Ｗｉｎｓｏｃｋ控件的主要属性、方法和事件，如要实现多进程（多个客户程序同时运行），可应用创建控件数 组来代表已连接的控件实例的方法处理。

 节点 Ｂ 客户机核心程序如下：
 Ｐｒｉｖａｔｅ　ＣｏｎｎｅｃｔＦｌａｇ　Ａｓ　Ｂｏｏｌｅａｎ　’

设置判断是否连接标志
 （１）初始化程序
 ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＨｏｓｔ　ＩＰ＝　１９２．１６８．０．１　　

远程计算机ＩＰ地址
 ＴＣＰＣｌｉｅｎｔ．ＲｅｍｏｔｅＰｏｒｔ　＝　１００１　　　　　　　　

远程计算机端口
 ＣｏｎｎｅｃｔＦｌａｇ　＝　Ｆａｌｓｅ

 （２）申请连接程序
 Ｉｆ　　Ｎｏｔ　ＣｏｎｎｅｃｔＦｌａｇ　Ｔｈｅｎ
 ＴＣＰＣｌｉｅｎｔ．Ｃｌｏｓｅ
 ＴＣＰＣｌｉｅｎｔ．Ｃｏｎｎｅｃｔ
 Ｄ ｏ
 ＤｏＥｖｅｎｔｓ
 Ｌｏｏｐ　Ｕｎｔｉｌ　ＴＣＰＣｌｉｅｎｔ．Ｓｔａｔｅ　＝　ｓｃｋＣｏｎｎｅｃｔｅｄ
 ＣｏｎｎｅｃｔＦｌａｇ　＝　Ｔｒｕｅ
 Ｅｎｄ　Ｓｕｂ