C
cat.yy
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个DDE对话的联系,打开客户程序时 服务程序也打开了,但服务程序死活不肯
把数据传给客户程序。
客户/服务 程序中都加上了“会话部件”和“项目部件”,都采用默认名称
服务器的设置如下:
程序名 server.exe
DDEServerItem1。DdeConv := DDEServerConv;
服务器窗体只有一个EDIT1,
procedure TServerForm.Edit1Change(Sender: TObject);
begin
DDEServerItem1.Text := Edit1.Text;
end;
客户机的设置如下:
DDEClientItem1.DdeConv := DDEClientConv;
DDEClientConv1.ConnectMode := DDEManual;
客户机窗体只有一个EDIT1,
procedure TClientForm.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DDEClientItem1.Text;
end;
//
procedure TClientForm.FormCreate(Sender: TObject);
begin
if DDEClientConv1.SetLink('Server','DDEServerConv1') then
begin
DDEClientItem1.DdeItem := 'DDEServerItem1';
if DDEClientConv1.ConnectMode=DDEManual then
DDEClientConv1.OpenLink;
end;
end;
怎么搞??
把数据传给客户程序。
客户/服务 程序中都加上了“会话部件”和“项目部件”,都采用默认名称
服务器的设置如下:
程序名 server.exe
DDEServerItem1。DdeConv := DDEServerConv;
服务器窗体只有一个EDIT1,
procedure TServerForm.Edit1Change(Sender: TObject);
begin
DDEServerItem1.Text := Edit1.Text;
end;
客户机的设置如下:
DDEClientItem1.DdeConv := DDEClientConv;
DDEClientConv1.ConnectMode := DDEManual;
客户机窗体只有一个EDIT1,
procedure TClientForm.DdeClientItem1Change(Sender: TObject);
begin
Edit1.Text := DDEClientItem1.Text;
end;
//
procedure TClientForm.FormCreate(Sender: TObject);
begin
if DDEClientConv1.SetLink('Server','DDEServerConv1') then
begin
DDEClientItem1.DdeItem := 'DDEServerItem1';
if DDEClientConv1.ConnectMode=DDEManual then
DDEClientConv1.OpenLink;
end;
end;
怎么搞??