-
-
手机阅读
关键词：DDE通讯，VB应用程序，数据交换
DDE(Dynamic Data Exchange)技术是实现Windows下的应用程序之间的数据交换，通讯时，其中一应用程序作为客户端（Client）,另一应用程序作为服务端（Server）,或两者均可。
一、VB应用程序访问Realinfo(VB应用程序为客户端，Realinfo作为服务端)的编程步骤:
1．新建工程项目，将窗体命名为DDEClient：
在窗体中绘制四个标签，分别为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运行系统