紫金桥软件

关键词：DDE通讯，VB应用程序，数据交换

　　DDE(Dynamic Data Exchange)技术是实现Windows下的应用程序之间的数据交换，通讯时，其中一应用程序作为客户端（Client）,另一应用程序作为服务端（Server）,或两者均可。
一、VB应用程序访问Realinfo(VB应用程序为客户端，Realinfo作为服务端)的编程步骤:

　　在窗体中绘制四个标签，分别为Label1、Label2、Label3、Label4
　　在窗体中绘制四个文本，分别为Text1、Text2、Text3、Text 4
　　2．标签不需要做任何设置，文本框的设置如下（例Text1）：

　　Realinfo的应用程序名为DB，话题名为DB，数据连接项为数据库变量名。
　　LinkItem：a1.PV（数据库变量名）
　　LinkMode：0,1,2,3
　　LinkTopic：DB|DB
　　（注：LinkMode初始为0，当Realinfo已启动可设置为1）

　　Text2、Text3、Text4的LinkItem的分别为a2.PV、a3.PV、a4.PV，其它设置和Text1相同。
　　3．在Form_Load()中编写如下脚本：

　　将各个文本设置为自动连接方式，运行时应先启动Realinfo，否则报错。
　　4．Realinfo中的组态：在DB数据库组态中建立四个数据库点，分别为a1、a2、a3和a4（与VB中文本LinkItem的属性值一致）
　　5．先运行Realinfo，再启动VB程序，效果图如下：

　　Realinfo运行系统 　　VB程序

二、Realinfo访问VB应用程序访 (VB应用程序为服务端，Realinfo作为客户端)的编程步骤:

　　1． 新建工程项目，将窗体更名为DDEServer：

　　在窗体中绘制四个标签，分别为Label1、Label2、Label3、Label4
　　在窗体中绘制四个文本，分别为var1、var2、var3、var 4（四个属性值初始为1.00000）
　　2． 文本和标签均不需要做任何设置，窗体DDEServer的设置如下：

　　LinkMode：1-Source（表示程序作为服务端）
　　LinkTopic：窗体的名字（即DDEServer）
　　3． 生成VB应用程序（注意应用程序名字不能超过8个字符）
　　4． Realinfo中的组态：

第一步 建立DDE设备

　　定义设备名称：DDE

第二步 输入服务和主题名称

　　服务器名称：输入生成的应用程序名
　　主题名称：VB应用程序窗体名称

第三步 进入数据库组态

　　建立四个数据库点：a1、a2、a3和a4

第四步 建立数据连接

　　DDE连接项：输入VB窗体中文本框的名字
　　四个点分别对应var1、var2、var3和var4

　　5． 先启动VB程序，再启动Realinfo运行效果如下：

VB应用程序 Realinfo运行系统