We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you two Citrix podcasts. Learn about 2020 trends and get answers to your biggest Citrix questions!Listen Now

x

How do I use DDE with Delphi 2 ?

xoz
xoz asked
on
Medium Priority
1,801 Views
Last Modified: 2010-08-05
How do I send a text from a client to a server?
I can't get it to work.
Do I need both the conv and item thing?

Can you give me a source for a button on the server, that when clicked send a text line to the client, and a source for a button on the client which gets the text and puts it in an edit box?
Comment
Watch Question

sample of dde for opening a new word document and inserting 2 lines in it, In this case Word is the server. Code for Using Delphi application as a server will be displayed soon.

uses ddeman;

procedure TForm1.Button1Click(Sender: TObject);
var
  DdeClientConv1: TDdeClientConv;
  DdeClientItem1: TDdeClientItem;
  Buf: PChar;
begin
  DdeClientConv1:=TDdeClientConv.Create(Form1);
  DdeClientItem1:=TDdeClientItem.Create(Form1);
  DDEClientItem1.DDEConv := DDEClientConv1;
  GetMem(Buf,100);
  Buf[0]:=#0;
  with DdeClientConv1 do
  begin
    ConnectMode := ddeManual;
    SetLink('WinWord','System');
    OpenLink;
    StrCat(Buf,'[FileNewDefault][Insert "Example for     dde"][InsertPara][Insert "from Delphi"]');
    ExecuteMacro(Buf,False);
    CloseLink;
  end;
  FreeMem(Buf,100);
  DDEClientItem1.Free;
  DdeClientConv1.Free;
end;


xoz

Author

Commented:
Thanks.

I'm waiting for an example of a Dephi application as a server.
How should I use the SetLink then ?
How do I pass text and not a macro?

BTW: Are you from Israel? Me too...

Yes I am.
To pass a text use pokedata. You will get the answer for the server tomorrow.
xoz

Author

Commented:
This is my client's source:
------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
     DDEClientItem1.DDEConv := DDEClientConv1;
     with DdeClientConv1 do
     begin
          ConnectMode := ddeManual;
          DdeService := 'ddesproj';
          ServiceApplication := 'ddesproj';
          DdeTopic := 'DDEServerConv1';
          if SetLink('ddesproj','DDEServerConv1') then
             MessageDlg('Link Established.', mtInformation, [mbOK],0);
          OpenLink;
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     Edit1.Text:=DdeClientItem1.Text;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     DdeClientConv1.CloseLink;
end;

procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
  Edit1.Text:=DdeClientItem1.Text;
end;


This is my server's source:
--------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
     DdeServerItem1.ServerConv := DdeServerConv1;
     DdeServerItem1.Text := 'abcde';
end;

When I run the client and press button1 the link is established, and if the server is not
running, the client runs it.

Then I press button1 on the server, and expect the edit1.text in the client to change,
becuase of the DdeClientItem1Change procedure, but it doesn't.
If I try pressing button2 on the client edit1.text just turns empty...

Maybe my problem has to do with DdeclientItem1.DdeItem what should I set it to ?
The help is very unclear about it.

Thanks,

Yogev ascalar@netvision.net.il
Didn't look much at your source code. Try the following Example which works:

On this example when you press a button on a client application,
then the contents of the edit box in this client application are shown in an edit box in the server application.

1. Create a project and call it Project1 (the client application).
2. Create a button and an edit box.
3. write the following code:
procedure TForm1.Button1Click(Sender: TObject);
var
         DdeClientConv1: TDdeClientConv;
       DdeClientItem1: TDdeClientItem;
    Buf: PChar;
begin
   DdeClientConv1:=TDdeClientConv.Create(Form1);
   DdeClientItem1:=TDdeClientItem.Create(Form1);
   DdeClientItem1.DdeItem := 'DdeServerItem1';
   DDEClientItem1.DDEConv := DDEClientConv1;
   GetMem(Buf,100);
   with DdeClientConv1 do
   begin
      ConnectMode := ddeManual;
      SetLink('Project2','DdeServerConv1');
      OpenLink;
      StrPCopy(Buf, Edit1.Text);
      ExecuteMacro(Buf,True);
      CloseLink;
   end;
   FreeMem(Buf,100);
   DDEClientItem1.Free;
   DdeClientConv1.Free;
end;

4. Create a project on the same directory as project1 and call it Project2 (the server application).
5. Create a TDdeServerConv with the name DdeServerConv1.
6. Create a TDdeServerItem with the name DdeServerItem1.
7. Set DdeServerItem1.ServerConv to DdeServerConv1.
8. Create an edit box.
9. write the following code on the OnExecuteMacro Event:
procedure Tform1.DdeServerConv1ExecuteMacro(Sender: TObject;
  Msg: TStrings);
begin
  Edit1.Text:=Msg[0];
end;

10. First run project2 then run project1.
11. Press the button on project1. The contents of the edit box in the client will be shown on the edit box in the server.

12. If this doesn't work, then let me Know.
13. I use exeutemacro because it is more stable then pokedata and doesn't create access violations.
14. There is an example in the demos directory in Delphi1.

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts
xoz

Author

Commented:
Thanks, I'll try it now.

I wanted to send text from the server to client, I'll try to chnage your code to do so.

I've got Delphi 2, there's no demo example for the DDE there, and the documentation and help about the DDE is very bad.

Commented:
Hey, that makes us 3 Israelis on Delphi experts list...
pro...thanks for sharing this..
can i transfer a TObject or TRecord to there?
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.