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:(数据库变量名)
LinkMode:0,1,2,3
LinkTopic:DB|DB
(注:LinkMode初始为0,当Realinfo已启动可设置为1)
Text2、Text3、Text4的LinkItem的分别为、、,其它设置和Text1相同。
3.在Form_Load()中编写如下脚本:
将各个文本设置为自动连接方式,运行时应先启动Realinfo,否则报错。
fo中的组态:在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个字符)
fo中的组态:
第一步 建立DDE设备
定义设备名称:DDE
第二步 输入服务和主题名称
服务器名称:输入生成的应用程序名
主题名称:VB应用程序窗体名称
第三步 进入数据库组态
建立四个数据库点:a1、a2、a3和a4
第四步 建立数据连接
DDE连接项:输入VB窗体中文本框的名字
四个点分别对应var1、var2、var3和var4
5.先启动VB程序,再启动Realinfo运行效果如下:
VB应用程序
Realinfo运行系统
(转载)