How do I use DDE with Delphi 2 ?

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?
xozAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ronit051397Commented:
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;


0
xozAuthor 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...

0
ronit051397Commented:
Yes I am.
To pass a text use pokedata. You will get the answer for the server tomorrow.
0
OWASP: Threats Fundamentals

Learn the top ten threats that are present in modern web-application development and how to protect your business from them.

xozAuthor 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
0
ronit051397Commented:
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.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
xozAuthor 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.

0
ygolanCommented:
Hey, that makes us 3 Israelis on Delphi experts list...
0
amateur83Commented:
pro...thanks for sharing this..
0
amateur83Commented:
can i transfer a TObject or TRecord to there?
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.