News And Information
-技术与支持-
微信公众号-关注紫金桥
了解软件最新资讯
销售热线:
400-678-6601
售后热线:
13304891586
0459-8151391
0459-8151518
VB与Realinfo之间的DDE通讯
VB与Realinfo之间的DDE通讯
关键词: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运行系统