如何用Delphi 完成进程之间的通讯: 应用动态数据交换(DDE),需要实例???
如何用Delphi 完成进程之间的通讯:
应用动态数据交换(DDE),
需要实例
1, 需要一个 DDE SERVER
2. 需要一个 DDE CLIENT
3, 互相接收,发送数据
问题点数：100、回复次数：3Top
1 楼gouer（狗儿）回复于 2000-11-03 19:58:00 得分 0
我做过这方面的开发,给你一个范例,注意收Top
2 楼johnpei（）回复于 2000-11-04 12:35:00 得分 100
最简单的程序范例：
以下是SERVER的源代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DdeMan;
type
TForm1 = class(TForm)
DdeServerItem1: TDdeServerItem;
Edit1: TEdit;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1Change(Sender: TObject);
begin
DdeServerItem1.Text := EDIT1.TEXT;
end;
end.
以下是Client的源代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DdeMan;
type
TForm1 = class(TForm)
DdeClientItem1: TDdeClientItem;
DdeClientConv1: TDdeClientConv;
Edit1: TEdit;
procedure DdeClientItem1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
EDIT1.Text := DdeClientItem1.TEXT ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
IF DdeClientConv1.SetLink('Server','Server') THEN
BEGIN
ShowMessage('CONNECTED') ;
DdeClientItem1.DdeItem := 'DdeServerItem1' ;
END
else
ShowMessage('Error') ;
end;
end.
//注意：此例正常运行的前提：把SERVER端的可执行文件名：SERVER；窗口标题也为SERVER，即可。主要是为了保证
IF DdeClientConv1.SetLink('Server','Server') THEN
为真。
祝你成功！有什么不明白的1MEIER TO ME！Top
3 楼supershan（）回复于 2000-11-04 21:04:00 得分 0
看delphi的demoTop
