计算机世界日报: 用PowerBuilder 5.0 开发DDE应用程序

综合要闻
企业&人.com
产品与技术
网络与通信
市场与渠道
99全文检索

网络世界
微电脑世界
IT经理世界
CCW展览
信息服务中心家用电脑世界

电子与信息化
今日电子
中国新闻科技
电子知识产权
电子产品世界

Linux园地
友情链接
冬涛谈法
Dongtao on Law

实用技巧

用PowerBuilder 5.0 开发DDE 应用程序

请作者和我们联系：zhou_haoli@ccw.com.cn

---- 摘要： PB 5.0 具备快速开发DDE 服务器应用程序和DDE 客户应用程序的功能，只须掌握少量几个关于DDE 的系统函数和窗口事件便可以了。

---- 关键字：DDE（动态数据交换，Dynamic Data Exchange)，DDE 服务器应用程序(DDE Server Application),DDE 客户应用程序(DDE Client Application)，冷链接(Cold Link), 温链接(Warm Link), 热链接(Hot Link).

---- 在WINDOWS 环境中，可以同时运行多道应用程序，DDE 是这些应用程序之间进行数据交换的方便方法。提供数据的应用程序叫做DDE 服务器应用程序，接收数据的应用程序叫做客户应用程序，下面分别简称为服务器和客户。DDE 包括三种链接方式，(1) 冷链接，(2) 温链接，(3) 热链接。下面分三种情况分述。

---- ( 一) 冷链接。

---- 在服务器和客户之间只有单个命令时使用。

---- 服务器端的编程：

---- 在这种方式下，服务器不能主动地通知客户自己的数据变化，只能被动地在被触发Rem-oteExec,RemoteRequest,RemoteSend 事件之后在这些事件的Script 中对客户进行回应。不能在其它地方调用DDE 函数来主动地与客户联络。不可能触发热链接的事件RemoteHotLinkStart, RemoteHotL-inkStop, 当然属于客户的事件HotLinkAlarm 也不可能触发。

---- (1) 在某个窗口的OPEN 事件或其它的事件中调用StartServerDDE 函数来指定此应用程序充当服务器，该窗口称为服务器窗口。

---- (2) 在服务器窗口的RemoteExec 事件中调用GetCommandDDEOrigin,GetCommandDDE 函数来获取客户发来的命令及命令源，调用RespondRemote 函数来表示命令可否接受，并对命令进行处理。该事件是由客户调用 ExecRemote 函数触发。

---- (3) 在服务器窗口的RemoteSend 事件中调用GetDataDDEOrigin,GetDataDDE 函数来获取客户发来的数据及数据源，调用RespondRemote 函数来表示数据可否接受，并对数据进行处理。该事件由客户端调用SetRemote 函数触发。

---- (4) 在服务器窗口的RemoteRequest 事件中调用SetDataDDE 函数来向客户发送数据，并调用RespondRemote 函数来通知客户是否应允这个请求。

---- (5) 在想结束DDE 时调用 StopServerDDE 函数中止。

---- 客户端的编程：

---- 在这种方式下，客户端只能调用ExecRemote,GetRemote,SetRemote 三个函数分别来向服务器发送命令，请求数据，发送数据，不会有RemoteExec,RemoteSend,RemoteRequest,RemoteHot-LinkStop,RemoteHotLinkStart,HotLinkAlarm 等任何DDE 事件被触发。在这种方式下，因为通讯的双方没有建立通道，客户在做出通讯请求后WINDOWS 将轮流查询所有打开了的应用，直到得到回应为止，故这种方式的效率较低。

---- 注意：PowerBuilder 的Application 对象的属性DDETimeOut 决定了做为客户的应用程序向服务器请求回应的最大等待时间。

---- ( 二) 温链接。

---- 在服务器和客户之间不只有单个命令时使用。服务器端的编程：完全和冷链接一样。

---- 客户端的编程：

---- 大致和冷链接一样，具体区别如下：

---- (1) 先调用OpenChannel 函数打开通道，再开始调用上面所说的那三个函数与服务器通讯。

---- (2) 通讯完之后调用CloseChannel 关闭通道。 (

---- 3) 调用ExecRemote,SetRemote,GetRemote 函数时使用温链接的语法格式。

---- (4) 因为打开了专门的通道，故WINDOWS 不必轮流查询所有打开的应用程序，效率会比冷链接高。

---- ( 三) 热链接。

---- 在服务器端的数据有变化时服务器主动地通知客户时使用。

---- 服务器端的编程：

---- (1) 最先调用StartServerDDE, 结束时调用StopServerDDE.

---- (2) 在数据发生变化时调用SetDataDDE 函数通知客户，这将触发客户端的HotLinkAlarm 事件。

---- (3) 不要在其它的事件中编程，也不要再调用其它的函数。

---- 客户端的编程：

---- (1) 先调用StartHotLink 函数建立热链接，最后调用StopHotLink 中止。

---- (2) 在建立热链接地窗口的HotLinkAlarm 事件中调用GetDataDDEOrigin,GetDataDDE 函数来获得发送来的数据和数据的源，并对收到的数据进行处理。再调用RespondRemote 回答是否接受。

---- (3) 不要在其它的事件中编程，也不要再调用其它的函数。

---- ( 四) 一个三种方式都可进行的例子

---- 这个例子在WINDOW95，PB 5 环境下调试通过，你可以同时运行DDESERVER.EXE 和 DDECLIENT.EXE 两个应用，前者为服务器，后者为客户，在客户端可以任意地建立一种链接，并与服务器交换数据。具体过程如下：

---- (1) 进入PB5.0 开发环境，建立一个名字叫ddeserver.pbl 的新PBL 库文件。

---- (2) 在刚建立的PBL 中建立一个名字叫ddeserver 的Application 对象。

---- (3) 按下面的界面建立一个新的窗口。

---- (4) 它是名字叫sle_Name 的单行编辑文本框。

---- (5) 它是名字叫sle_Sex 的单行编辑文本框。

---- (6) 它是名字叫st_LinkType 的静态文本框。

---- (7) 它是名字叫st_Status 的静态文本框。

---- (8) 它是名字叫cb_Close 的按钮。

---- (9) 把新建的窗口以名字 w_DDEServer 存盘。

---- (10) 在ddeserver Application 对象的OPEN 事件Script 中写入语句：Open(w_DDEServer)

---- (11) 为窗口w_DDEServer 定义实例变量：

	Protected:
	String 	is_NeedType=name'	//name'
					//ex'
	String 	is_LinkType=oldLink'//oldLink'
					//armLink'
					//otLink'

---- (12) 为窗口w_DDEServer 的OPEN 事件 Script 写入下面的程序：

//============================================================
//	The Window w_DDEServer	Open Event
//	Start DDE Server
//============================================================
Integer li_Temp

//Start This Application As A DDE Server,In This Window
st_Status.Text='Start DDE Server ...... !'
li_Temp=StartServerDDE(w_DDEServer,
'MySampleDDEServer','StudentInformation',&
	'StudentName','StudentSex')
	
	//The ApplicationName IS 'MySampleDDEServer'
	//The Topic IS 'StudentInformation'
	//The Item Has TWO,'StudentName' And 'StudentSex'
	
If li_Temp=1 Then
	
	st_Status.Text='Start DDE Server Successfully !'
Else
	st_Status.Text='Start DDE Server Failed !'
	MessageBox(DDEServer.DisplayName,&
		'Start DDE Server Failed ,Cannot Continue !',&
		StopSign!&
		)
	Halt Close
End If

st_Status.Text='Ready'

---- (13) 为窗口w_DDEServer 的CLOSE 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	Close Event
//	Close DDE Server
//==========================================================
Integer li_Temp

li_Temp=StopServerDDE(w_DDEServer,'MySampleDDEServer',&
	'StudentInformation')

If li_Temp<>1 Then
	Beep(100)
End If

---- (14) 为窗口w_DDEServer 的RemoteRequest 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	RemoteRequest  Event
//	Send Data To The  DDE Client
//==========================================================
Integer li_Temp

st_Status.Text='DDE Client Requesting'


If is_NeedType='Name' Then
	//Name
	li_Temp=SetDataDDE(sle_Name.Text)
	If li_Temp=1 Then
		st_Status.Text='Send Name Data Ok !'
		li_Temp=RespondRemote(True)
	Else
		st_Status.Text='Send Name Data Error !'
		li_Temp=RespondRemote(False)
	End If

Else//Sex
	li_Temp=SetDataDDE(sle_Sex.Text)
	If li_Temp=1 Then
		st_Status.Text='Send Sex Data Ok !'
		li_Temp=RespondRemote(True)
	Else
		st_Status.Text='Send Sex Data Error !'
		li_Temp=RespondRemote(False)
	End If

End If

---- (15) 为窗口w_DDEServer 的RemoteSend 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	RemoteSend  Event
//	Get Data Which Sent From The  DDE Client
//==========================================================

Integer li_Temp

String ls_AppName,ls_TopicName,ls_ItemName
String ls_StudentName,ls_StudentSex

st_Status.Text='DDE Client Sending'

//Get The Data Origin
li_Temp=GetDataDDEOrigin
(ls_AppName,ls_TopicName,ls_ItemName)

If li_Temp=1 Then
	If ls_AppName='MySampleDDEServer' And &
		ls_TopicName='StudentInformation' And &
		ls_ItemName='StudentName' Then
		//Get The Name 
		li_Temp=GetDataDDE(ls_StudentName)
		If li_Temp=1 Then
			li_Temp=RespondRemote(True)
			sle_Name.Text=ls_StudentName
		Else
			//Error
			li_Temp=RespondRemote(False)
			st_Status.Text='Get Data Error !'
		End If
	Else
		If ls_AppName='MySampleDDEServer' And &
			ls_TopicName='StudentInformation' And &
			ls_ItemName='StudentSex' Then
			//Get The Sex
			li_Temp=GetDataDDE(ls_StudentSex)
			IF li_Temp=1 Then
				li_Temp=RespondRemote(True)
				sle_Sex.Text=ls_StudentSex
			Else
				//Error
				st_Status.Text='Get Data Error !'
				li_Temp=RespondRemote(False)
			End If
		Else
			//Other DDE Item
			li_Temp=RespondRemote(False)
			st_Status.Text='Other DDE Item'
		End If
	End If
	
Else
	st_Status.Text='Get DDE Origin Error !'
End If

(16) 为窗口w_DDEServer 的RemoteExec 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	RemoteExec  Event
//	Get Command Which Sent From The  DDE Client And Process
//==========================================================
Integer li_Temp
String ls_Command,ls_AppName

st_Status.Text='DDE Client Sent Command'

//Get The Command Origin
li_Temp=GetCommandDDEOrigin(ls_AppName)

If li_Temp=1 Then
	If ls_AppName='MySampleDDEServer' Then
		//Get The Command
		li_Temp=GetCommandDDE(ls_Command)
		If li_Temp=1 Then
			li_Temp=RespondRemote(True)
			//Process The Command
			CHOOSE CASE ls_Command
				CASE 'BeginColdLink'
			is_LinkType='ColdLink'
      		st_LinkStatus.Text='Cold Link'
			st_Status.Text='Begin Cold Link'
	CASE 'BeginWarmLink'
     		is_LinkType='WarmLink'
			st_LinkStatus.Text='Warm Link'
			st_Status.Text='Begin Warm Link'
	CASE 'ClearTheName'
			sle_Name.Text=''
			st_Status.Text='Cleared The Name'
	CASE 'ClearTheSex'
			sle_Sex.Text=''
			st_Status.Text='Cleared The Sex'
	CASE 'Name'
			is_NeedType='Name'
			st_Status.Text='Need  The Name'
			CASE 'Sex'
				is_NeedType='Sex'
				st_Status.Text='Need The Sex'
			
			CASE ELSE
			st_Status.Text='Other Command'
			END CHOOSE

		Else
			//Error
			li_Temp=RespondRemote(False)
			st_Status.Text='Get Data Error !'
		End If
	Else
		//Other App
		li_Temp=RespondRemote(False)
		st_Status.Text='Other Application Command'
	End If
	
Else
	st_Status.Text='Get DDE Command Origin Error !'
End If

---- (17) 为窗口w_DDEServer 的RemoteHotLinkStart 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	RemoteHotLinkStart  Event
//	Know The Link Type Is HotLink
//==========================================================
is_LinkType='HotLink'
st_LinkStatus.Text='Hot Link'
st_Status.Text='Started Hot Link'

---- (18) 为窗口w_DDEServer 的RemoteHotLinkStop 事件 Script 写入下面的程序：

//==========================================================
//	The Window w_DDEServer	RemoteHotLinkStop  Event
//	Know The Hot Link Stopped
//==========================================================
st_Status.Text='Stopped Hot Link'

---- (19) 进入sle_Name 的script 画屏，定义用户事件，名字ue_KeyUp,EventID 为

---- pbm_KeyUp

---- (20) 在sle_Name 的 ue_KeyUp 事件的Script 中写入下面的程序：

//==========================================================
//	The Control sle_Name	us_KeyUp  Event
//	Send Data To Client When HotLink
//==========================================================
Integer li_Temp
If is_LinkType='HotLink' Then
	li_Temp=SetDataDDE(This.Text,'MySampleDDEServer',&
		'StudentInformation','StudentName')
	
	If li_Temp=1 Then
		st_Status.Text='Set DDE Data Name Successfully !'
	Else
		st_Status.Text='Set DDE Data Name Failed !'
	End If

End If

---- (21) 进入sle_Sex 的script 画屏，定义用户事件，名字ue_KeyUp,EventID 为

---- pbm_KeyUp

---- (22) 在sle_Sex 的 ue_KeyUp 事件的Script 中写入下面的程序：

//==========================================================
//	The Control sle_Sex	us_KeyUp  Event
//	Send Data To Client When HotLink
//==========================================================
Integer li_Temp
If is_LinkType='HotLink' Then
	li_Temp=SetDataDDE(This.Text,'MySampleDDEServer',&
		'StudentInformation','StudentSex')
	
	If li_Temp=1 Then
		st_Status.Text='Set DDE Data Sex Successfully !'
	Else
		st_Status.Text='Set DDE Data Sex Failed !'
	End If

End If

---- (23) 在sle_Sex 的 ue_KeyUp 事件的Script 中写入下面的程序：

//==========================================================
//	The Control cb_Close	Clicked  Event
//	Close The Window w_DDEServer
//==========================================================
Close(Parent)

---- (24) 建立一个新的Project, 名字 ddeserver, 并生成EXE 文件，ddeserver.exe.

---- (25) 用类似的方法建立PBL 库 ddeclient.pbl,ddeclient Application 对象，w_DDEClient 窗口，ddeclient 工程对象 Project，ddeclient.exe 界面如下：

//==========================================================
//The Control Name List:
//==========================================================
SingleLinkEdit:	sle_Name		sle_Sex

RadioButton:	rb_1	 rb_2	 rb_3

CommandButton: cb_1	 cb_2  cb_3 cb_4
	cb_5  cb_6  cb_7  cb_Close

---- (26) 程序如下：

//============================================================
//	The Window w_DDEClient	Instance Variables Define
//	
//
//============================================================
Protected:
String 	is_LinkType=扖oldLink'//扖oldLink'
				//扺armLink'
				//扝otLink'
String 	is_NeedType=扤ame'	//扤ame'
				//扴ex'
Long 	il_ChannelHandle	//Used For WarmLink Channel Handle

//============================================================
//	The Window w_DDEClient	HotLinkAlarm	Event
//	Get Data Sent Form The DDE Sever
//
//============================================================
Integer li_Temp
String ls_AppName,ls_TopicName,ls_ItemName
String ls_Name,ls_Sex//The Get Data From The DDE Server

Beep(300)
li_Temp=GetDataDDEOrigin(ls_AppName,ls_TopicName,ls_ItemName)

If li_Temp=1 Then
	If ls_AppName='MySampleDDEServer' And &
		ls_TopicName='StudentInformation' And &
		ls_ItemName='StudentName' Then
		
		li_Temp=GetDataDDE(ls_Name)
		
		If li_Temp=1 Then
			
			sle_Name.Text=ls_Name
		Else
			st_Status.Text='Get DDE Data  Failed !'
		End If
	Else
		If ls_AppName='MySampleDDEServer' And &
			ls_TopicName='StudentInformation' And &
			ls_ItemName='StudentSex' Then
			
			li_Temp=GetDataDDE(ls_Sex)
			If li_Temp=1 Then
				sle_Sex.Text=ls_Sex
			Else
			st_Status.Text='Get DDE Data Failed !'
			End If
		Else
		st_Status.Text='Else Item Changes !'
		End If
	End If
Else
	
	st_Status.Text='Get DDE Origin Failed !'
End If
//=========================================================
//	The Control cb_7		Clicked	Event
//	Send Sex Data
//	Send Sex Data To The DDE Server
//==========================================================
Integer li_Temp
String ls_Sex

SetPointer(HourGlass!)
ls_Sex=sle_Sex.Text
If is_LinkType='ColdLink' Then
	
	li_Temp=SetRemote('StudentSex',ls_Sex,&
		'MySampleDDEServer','StudentInformation')
	
	If li_Temp=1 Then
		st_Status.Text='Send Data To Server Successfully !'
	Else
		st_Status.Text='Send Data To Server Failed !'
	End If
Else
	li_Temp=SetRemote('StudentSex',ls_Sex,&
		il_ChannelHandle)
	
	If li_Temp=1 Then
		st_Status.Text='Send Data To Server Successfully !'
	Else
		st_Status.Text='Send Data To Server Failed !'
	End If
	
End If

SetPointer(Arrow!)
//===========================================================
//	The Control cb_6		Clicked	Event
//	Send Sex Command
//	Send Sex Command To The DDE Server
//===========================================================
Integer li_Temp
String ls_Command
If is_NeedType='Sex' Then
	Return 1
End If

SetPointer(HourGlass!)
ls_Command='Sex'
If is_LinkType='ColdLink' Then
	li_Temp=ExecRemote(ls_Command,'MySampleDDEServer',&
		'StudentInformation')
	If li_Temp=1 Then
		is_NeedType='Sex'		
		st_Status.Text='Execute Send 
'+ls_Command+'Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
Else
	li_Temp=ExecRemote(ls_Command,il_ChannelHandle)

	If li_Temp=1 Then
		is_NeedType='Sex'		
		st_Status.Text='Execute Send 
'+ls_Command+' Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
	
End If

SetPointer(Arrow!)
//==========================================================
//	The Control cb_5		Clicked	Event
//	Send Name Command
//	Send Name Command To The DDE Server
//==========================================================
Integer li_Temp
String ls_Command

If is_NeedType='Name' Then
	Return 1
End If

SetPointer(HourGlass!)
ls_Command='Name'
If is_LinkType='ColdLink' Then
	li_Temp=ExecRemote(ls_Command,'MySampleDDEServer',&
		'StudentInformation')
	If li_Temp=1 Then
		is_NeedType='Name'
		st_Status.Text='Execute Send 
'+ls_Command+'Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
Else
	li_Temp=ExecRemote(ls_Command,il_ChannelHandle)

	If li_Temp=1 Then
		is_NeedType='Name'		
		st_Status.Text='Execute Send 
'+ls_Command+' Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
	
End If

SetPointer(Arrow!)

//=========================================================
//	The Control cb_4		Clicked	Event
//	Send ClearTheSex Command
//	Send ClearTheSex Command To The DDE Server
//=========================================================
Integer li_Temp
String ls_Command

SetPointer(HourGlass!)
ls_Command='ClearTheSex'
If is_LinkType='ColdLink' Then
	li_Temp=ExecRemote(ls_Command,'MySampleDDEServer',&
		'StudentInformation')
	If li_Temp=1 Then
		st_Status.Text='Execute Send 
'+ls_Command+'Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
Else
	li_Temp=ExecRemote(ls_Command,il_ChannelHandle)

	If li_Temp=1 Then
		st_Status.Text='Execute Send 
'+ls_Command+' Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
	
End If

SetPointer(Arrow!)
//===========================================================
//	The Control cb_3		Clicked	Event
//	Send Name Data
//	Send Name Data To The DDE Server
//===========================================================
Integer li_Temp
String ls_Name

SetPointer(HourGlass!)
ls_Name=sle_Name.Text
If is_LinkType='ColdLink' Then
	
	li_Temp=SetRemote('StudentName',ls_Name,&
		'MySampleDDEServer','StudentInformation')
	
	If li_Temp=1 Then
		st_Status.Text='Send Data To Server Successfully !'
	Else
		st_Status.Text='Send Data To Server Failed !'
	End If
Else
	li_Temp=SetRemote('StudentName',ls_Name,&
		il_ChannelHandle)
	
	If li_Temp=1 Then
		st_Status.Text='Send Data To Server Successfully !'
	Else
		st_Status.Text='Send Data To Server Failed !'
	End If
	
End If

SetPointer(Arrow!)
//===========================================================
//	The Control cb_2		Clicked	Event
//	Request Data
//	
//===========================================================
Integer li_Temp
String ls_Name,ls_Sex

SetPointer(HourGlass!)

If is_LinkType='ColdLink' Then
	//--------------------------------------------------
	If is_NeedType='Name' Then
		//----------------------------------------------
		li_Temp=GetRemote('StudentName',ls_Name,&
			'MySampleDDEServer','StudentInformation')
	
		If li_Temp=1 Then
			sle_Name.Text=ls_Name
			st_Status.Text='Get Remote Successfully !'
		Else
			st_Status.Text='Get Remote Failed !'
		End If
	Else//Sex
		//----------------------------------------------
		li_Temp=GetRemote('StudentSex',ls_Sex,&
			'MySampleDDEServer','StudentInformation')
	
		If li_Temp=1 Then
			sle_Sex.Text=ls_Sex
			st_Status.Text='Get Remote Successfully !'
		Else
			st_Status.Text='Get Remote Failed !'
		End If
		
	End If
	
	
Else//WarmLink
	//--------------------------------------------------
	
	If is_NeedType='Name' Then
		//----------------------------------------------
		li_Temp=GetRemote('StudentName',ls_Name,&
			il_ChannelHandle)
	
		If li_Temp=1 Then
			sle_Name.Text=ls_Name
			st_Status.Text='Get Remote Successfully !'
		Else
			st_Status.Text='Get Remote Failed !'
		End If
	Else//Sex
		//----------------------------------------------
		li_Temp=GetRemote('StudentSex',ls_Sex,&
			il_ChannelHandle)
	
		If li_Temp=1 Then
			sle_Sex.Text=ls_Sex
			st_Status.Text='Get Remote Successfully !'
		Else
			st_Status.Text='Get Remote Failed !'
		End If
		
	End If

End If
SetPointer(Arrow!)
//======================================================
//	The Control cb_1		Clicked	Event
//	Send ClearTheName Command
//	Send ClearTheName Command To The DDE Server
//======================================================
Integer li_Temp
String ls_Command

SetPointer(HourGlass!)
ls_Command='ClearTheName'
If is_LinkType='ColdLink' Then
	li_Temp=ExecRemote(ls_Command,'MySampleDDEServer',&
		'StudentInformation')
	If li_Temp=1 Then
		st_Status.Text='Execute Send 
'+ls_Command+'Command Successfully !'
	Else
		st_Status.Text='Execute Send
 '+ls_Command+' Command Failed !'
	End If
Else
	li_Temp=ExecRemote(ls_Command,il_ChannelHandle)

	If li_Temp=1 Then
		st_Status.Text='Execute Send 
'+ls_Command+' Command Successfully !'
	Else
		st_Status.Text='Execute Send 
'+ls_Command+' Command Failed !'
	End If
	
End If

SetPointer(Arrow!)

//======================================================
//	The Control rb_3		Clicked	Event
//	Begin HotLink
//	
//=========================================================
Integer li_Temp
If is_LinkType<>'HotLink' Then
	If is_LinkType='WarmLink' Then//Warm Link
		li_Temp=CloseChannel(il_ChannelHandle)
	End If
	
	li_Temp=StartHotLink('StudentName',&
		'MySampleDDEServer','StudentInformation')
	li_Temp+=StartHotLink('StudentSex',&
		'MySampleDDEServer','StudentInformation')
	If li_Temp=2 Then
		is_LinkType='HotLink'
		st_Status.Text='Start Hot Link Successfully !'
		cb_1.Enabled=False
		cb_2.Enabled=False
		cb_3.Enabled=False
		cb_4.Enabled=False
		cb_5.Enabled=False
		cb_6.Enabled=False
		cb_7.Enabled=False		
	Else
		st_Status.Text='Start Hot Link Failed !'
	End If
	
End If
//=======================================================
//	The Control rb_2		Clicked	Event
//	Begin WarmLink
//	
//=======================================================
Integer li_Temp
If is_LinkType<>'WarmLink' Then

	//Stop Hot Link
	If is_LinkType='HotLink' Then
	
		li_Temp=StopHotLink('StudentName',&
			'MySampleDDEServer','StudentInformation')
		li_Temp+=StopHotLink('StudentSex',&
			'MySampleDDEServer','StudentInformation')
		If li_Temp=2 Then
			st_Status.Text='Stop DDE
 Server Hot Link Seccessfully !'
			cb_1.Enabled=True
			cb_2.Enabled=True
			cb_3.Enabled=True
			cb_4.Enabled=True
			cb_5.Enabled=True
			cb_6.Enabled=True
			cb_7.Enabled=True		
			
		Else
			st_Status.Text='Stop DDE
 Server Hot Link Failed !'
		End If
	End If
	
	//Open Channel
	il_ChannelHandle=OpenChannel('MySampleDDEServer',&
		'StudentInformation')
	If il_ChannelHandle>0 Then
		is_LinkType='WarmLink'
		li_Temp=ExecRemote('BeginWarmLink',il_ChannelHandle)
		st_Status.Text='Start Warm Link Ok !'
		cb_1.Enabled=True
		cb_2.Enabled=True
		cb_3.Enabled=True
		cb_4.Enabled=True
		cb_5.Enabled=True
		cb_6.Enabled=True
		cb_7.Enabled=True		
		
	Else
		st_Status.Text='Open Channel Error !'
	End If

End If
//========================================================
//	The Control rb_1		Clicked	Event
//	Begin ColdLink
//	
//=========================================================
Integer li_Temp

If is_LinkType<>'ColdLink' Then
	
	If is_LinkType='HotLink' Then//Hot Link
	
		li_Temp=StopHotLink('StudentName',&
			'MySampleDDEServer','StudentInformation')
		li_Temp+=StopHotLink('StudentSex',&
			'MySampleDDEServer','StudentInformation')
		If li_Temp=2 Then
			is_LinkType='ColdLink'
			st_Status.Text='Start Cold Link OK !'
			li_Temp=ExecRemote('BeginColdLink',&
			'MySampleDDEServer','StudentInformation')
			cb_1.Enabled=True
			cb_2.Enabled=True
			cb_3.Enabled=True
			cb_4.Enabled=True
			cb_5.Enabled=True
			cb_6.Enabled=True
			cb_7.Enabled=True		
		Else
			st_Status.Text='Start Cold Link Error !'
		End If
		
	Else//Warm Link
		li_Temp=CloseChannel(il_ChannelHandle)
		If li_Temp=1 Then
			is_LinkType='ColdLink'
			li_Temp=ExecRemote('BeginColdLink',&
			'MySampleDDEServer','StudentInformation')
			st_Status.Text='Start Cold Link Ok !'	
			cb_1.Enabled=True
			cb_2.Enabled=True
			cb_3.Enabled=True
			cb_4.Enabled=True
			cb_5.Enabled=True
			cb_6.Enabled=True
			cb_7.Enabled=True		

		Else
			st_Status.Text='Start Cold Link Error !'
		End If

	End If
	
End If
//=========================================================
//	The Control cb_Close		Clicked	Event
//	Close Link And Window
//	
//=========================================================
Integer li_Temp
If is_LinkType='WarmLink' Then
	li_Temp=CloseChannel(il_ChannelHandle)
		
ElseIf is_LinkType='HotLink' Then
	li_Temp=StopHotLink('StudentName',&
		'MySampleDDEServer','StudentInformation')
	li_Temp+=StopHotLink('StudentSex',&
		'MySampleDDEServer','StudentInformation')
End If

If is_LinkType<>'ColdLink' Then
	li_Temp=ExecRemote('BeginColdLink',&
		'MySampleDDEServer','StudentInformation')
End If
Close(Parent)

免费订阅

实用技巧分类

编者的话

在日常的工作生活中，我们对计算机软硬件技术的应用开发肯定有许多的心得体会，拿来和众人分享：让别人得到他们想要的，使自己找到苦苦寻觅的；小的点点滴滴，大的工程系统，这里都需要。投稿的关键在“技巧”二字，知他人所不知，这样的稿件本栏最最欢迎! 大家公认的好文章自然会有好的奖励。希望每个人在这里都有所收获...

中国惠普
 3Com中国
 Motorola中国
 CA中国
 Cabletron
Sony在中国
 西门子WinCC
爱普生中国
 中国建设银行
 德州仪器(TI)
问博医药

用PowerBuilder 5.0 开 发DDE 应 用 程 序

请 作 者 和 我 们 联 系：zhou_haoli@ccw.com.cn

用PowerBuilder 5.0 开发DDE 应用程序

请作者和我们联系：zhou_haoli@ccw.com.cn