发布日期：2025/3/12

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

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）

1. 文本和标签均不需要做任何设置，窗体DDEServer的设置如下：

 

LinkMode：1-Source（表示程序作为服务端）

LinkTopic：窗体的名字（即DDEServer）

1. 生成VB应用程序（注意应用程序名字不能超过8个字符）
2. Realinfo中的组态：

第一步 建立DDE设备

 

定义设备名称：DDE

 

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

 

服务器名称：输入生成的应用程序名

主题名称：VB应用程序窗体名称

 

 

第三步 进入数据库组态

 

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

 

第四步 建立数据连接

 

DDE连接项：输入VB窗体中文本框的名字

四个点分别对应var1、var2、var3和var4

 

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

         

                                                  VB应用程序                                    Realinfo运行系统