delphi中DDE通信技术
2016-05-05 22:59
686 查看
DDE可实现进程与进程之间的通讯
服务端需要放2个空间。 DDE conver 会话上下文。 还有一个DDEitem ;; 将 ddeitem 志向 DDe conver;
然后运行程序; DDE服务器就启动了;
在 ddeitem 这个方法中就可以获取数据了
procedure TForm1.ddepxbitemPokeData(Sender: TObject);
var
str: string;
begin
str := ddepxbitem.Lines.Text;
str := ddepxbitem.Lines.Strings[0];
end;
DDE客户端,也有 conver 与 item 2个控件
其中 ddeconv 需要指定DDE服务程序 与 DDe主题,也就是DDEserver 控件名字;
ddeconver 指向 DDe conver; ddeitem 指向 DDE服务的 item 组件。
一个会话下面可以挂多个item; 多个ITEM可以同时监听。
if not dde1.SetLink('project1','ddepxb') then
Exit;
dde1.OpenLink;
s := TStringList.Create;
s.Add('pxb');
s.Add('zrtt');
try
if not dde1.PokeDatalines('ddepxbitem',s) then
exit;
finally
FreeAndNil(s);
end;
closelink; 关闭连接
这几个方法,是想DDE服务发送数据;
服务端需要放2个空间。 DDE conver 会话上下文。 还有一个DDEitem ;; 将 ddeitem 志向 DDe conver;
然后运行程序; DDE服务器就启动了;
在 ddeitem 这个方法中就可以获取数据了
procedure TForm1.ddepxbitemPokeData(Sender: TObject);
var
str: string;
begin
str := ddepxbitem.Lines.Text;
str := ddepxbitem.Lines.Strings[0];
end;
DDE客户端,也有 conver 与 item 2个控件
其中 ddeconv 需要指定DDE服务程序 与 DDe主题,也就是DDEserver 控件名字;
ddeconver 指向 DDe conver; ddeitem 指向 DDE服务的 item 组件。
一个会话下面可以挂多个item; 多个ITEM可以同时监听。
if not dde1.SetLink('project1','ddepxb') then
Exit;
dde1.OpenLink;
s := TStringList.Create;
s.Add('pxb');
s.Add('zrtt');
try
if not dde1.PokeDatalines('ddepxbitem',s) then
exit;
finally
FreeAndNil(s);
end;
closelink; 关闭连接
这几个方法,是想DDE服务发送数据;
相关文章推荐
- delphi7如何实现 科学计数的转换。 比如我输入2,触发之后会转换成2.000000E+00.求赐教
- Delphi 调用串口例子
- VS2015编写能够被vb\delphi等调用的dll
- Delphi与C语言类型转换对照
- Delphi使用FindClass实现动态建立对像(有点像反射)
- Delphi使用TStringHash实现建立类(有点像反射)
- DELPHI数组,指针,字符串转换的例子
- Delphi字符串、PChar与字符数组之间的转换
- delphi string,pchar,char的比较
- delphi dispose释放内存的方法 New 和 GetMem 的区别
- Delphi下使用指针的简单总结
- delphi.指针.PChar
- delphi.指针.应用----应用重要 多看 多练
- Delphi : Opendialog 文件过滤类型,文件多选, 使用多文件
- delphi 实现vip126发邮件
- Delphi 的绘图功能[10] - TFONT 类
- delphi.memory.分配及释放---New/Dispose, GetMem/FreeMem及其它函数的区别与相同
- delphi SQL操作
- Delphi New,Getmem,ReallocMem联系与区别
- 死亡历险,Delphi以Json方式一次传递多张图片通过WebService到Java保存