intouch 与Delphi之间的DDE连接.doc

Intouch与Delphi之间的DDE连接
Delphi作为服务器，intouch作为客户端
方法一：
一．在Delphi中的设置
1.新建一个Form，在窗口中添加控件DdeServerItem1，Timer1，Edit1。如下图所示：
DdeServerItem1

2.在Timer1控件中加入以下代码：
procedureTForm1.Timer1Timer(Sender:TObject);
begin
DDEValueItem.Text:=edit1.Text;
end;
二．在Intouch中的设置
1．新建一个访问名，如Test：

2.其设置参数如下：
要使用的协议：DDE
主题名：delphi开发出来的程序的窗口名称
应用程序名：delphi开发出来程序的名称
节点名：电脑名
访问名：自定义

3.建立变量，如下图所示：
注意：这里是最主要的地方。这里填写的是DdeServerItem1控件的名称。不能时其他的名称。一定要注意！！！

方法二：
一．在Delphi中的设置
1.新建一个Form，在窗口中添加控件DdeServerConv1，DdeServerItem1，Timer1，Edit1。如下图所示：

2.在Timer1控件中加入以下代码：
procedureTForm1.Timer1Timer(Sender:TObject);
begin
DDEValueItem.Text:=edit1.Text;
end;
其他地方的设置与上面相同。

二．在Intouch中的设置
1．新建一个访问名，如Test：

2.其设置参数如下：
要使用的协议：DDE
主题名：delphi控件DdeServerConv1的名称
应用程序名：delphi开发出来程序的名称
节点名：电脑名
访问名：自定义

3.建立变量，如下图所示：
注意：这里是最主要的地方。这里填写的是DdeServerItem1控件的名称。不能时其他的名称。一定要注意！！！