關(guān)鍵詞:DDE通訊,VB應(yīng)用程序,數(shù)據(jù)交換
DDE(Dynamic Data Exchange)技術(shù)是實現(xiàn)Windows下的應(yīng)用程序之間的數(shù)據(jù)交換,通訊時,其中一應(yīng)用程序作為客戶端(Client),另一應(yīng)用程序作為服務(wù)端(Server),或兩者均可。
一、VB應(yīng)用程序訪問Realinfo(VB應(yīng)用程序為客戶端,Realinfo作為服務(wù)端)的編程步驟:
1.新建工程項目,將窗體命名為DDEClient:
在窗體中繪制四個標(biāo)簽,分別為Label1、Label2、Label3、Label4
在窗體中繪制四個文本,分別為Text1、Text2、Text3、Text 4
2.標(biāo)簽不需要做任何設(shè)置,文本框的設(shè)置如下(例Text1):
Realinfo的應(yīng)用程序名為DB,話題名為DB,數(shù)據(jù)連接項為數(shù)據(jù)庫變量名。
LinkItem:a1.PV(數(shù)據(jù)庫變量名)
LinkMode:0,1,2,3
LinkTopic:DB|DB
(注:LinkMode初始為0,當(dāng)Realinfo已啟動可設(shè)置為1)
Text2、Text3、Text4的LinkItem的分別為a2.PV、a3.PV、a4.PV,其它設(shè)置和Text1相同。
3.在Form_Load()中編寫如下腳本:
將各個文本設(shè)置為自動連接方式,運行時應(yīng)先啟動Realinfo,否則報錯。
4.Realinfo中的組態(tài):在DB數(shù)據(jù)庫組態(tài)中建立四個數(shù)據(jù)庫點,分別為a1、a2、a3和a4(與VB中文本LinkItem的屬性值一致)
5.先運行Realinfo,再啟動VB程序,效果圖如下:
Realinfo運行系統(tǒng) VB程序
二、Realinfo訪問VB應(yīng)用程序訪 (VB應(yīng)用程序為服務(wù)端,Realinfo作為客戶端)的編程步驟:
1. 新建工程項目,將窗體更名為DDEServer:
在窗體中繪制四個標(biāo)簽,分別為Label1、Label2、Label3、Label4
在窗體中繪制四個文本,分別為var1、var2、var3、var 4(四個屬性值初始為1.00000)
2. 文本和標(biāo)簽均不需要做任何設(shè)置,窗體DDEServer的設(shè)置如下:
LinkMode:1-Source(表示程序作為服務(wù)端)
LinkTopic:窗體的名字(即DDEServer)
3. 生成VB應(yīng)用程序(注意應(yīng)用程序名字不能超過8個字符)
4. Realinfo中的組態(tài):
第一步 建立DDE設(shè)備
定義設(shè)備名稱:DDE
第二步 輸入服務(wù)和主題名稱
服務(wù)器名稱:輸入生成的應(yīng)用程序名
主題名稱:VB應(yīng)用程序窗體名稱
第三步 進入數(shù)據(jù)庫組態(tài)
建立四個數(shù)據(jù)庫點:a1、a2、a3和a4
第四步 建立數(shù)據(jù)連接
DDE連接項:輸入VB窗體中文本框的名字
四個點分別對應(yīng)var1、var2、var3和var4
5. 先啟動VB程序,再啟動Realinfo運行效果如下:
VB應(yīng)用程序 Realinfo運行系統(tǒng)