Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

DDE, MS Access send request to Delphi App want response.

Posted on 2004-08-11
4
Medium Priority
?
215 Views
Last Modified: 2010-04-05
Well Hello Again,

I know I should be using OLE or COM but I don't know how, and at the moment don't have time to fit the learning in.  So here's my teaser.

I want to send a DDE message from Access to my Delphi App and receive a response back in Access.  How do I do that?  If I use DDEExecute then Access only receives notification from my app that the data was received successfully.  DDEPoke does'nt work.

I want to send a request saying 'are you busy', I want my Delphi App to respond.  My Access App can then send a second DDE command depending on the result.

As always help is mucho appreciated.

Regards

Sean
0
Comment
Question by:seancaddell
2 Comments
 

Author Comment

by:seancaddell
ID: 11782315
I found Solution after a bit more POKING around and a good nights sleep.

Using the following code in Access.

Private Sub Command0_Click()
  chan = DDEInitiate("myapp", "DDEServer")   'exe name, Name of DDEServerConv in my Delphi App
  Text1.SetFocus
  Cmd = "Run=" + Text1.Text
  Tpc = "DDETopic"       ' name of DDEServerItem in my Delphi App
  DDEPoke chan, Tpc, CMd
  Text5.SetFocus
  Text5.Text = CMd
  Text3.SetFocus
  Text3.Text = DDERequest(chan, Tpc)
 

  DDETerminateAll
End Sub



In Delphi the following code:

procedure TForm1.DDETopicPokeData(Sender: TObject);
begin
  If not processing then DDETopic.Text := 'YES'
  else
    DDETopic.Text := 'NO';
end;

0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 13404423
PAQed with points refunded (500)

modulo
Community Support Moderator
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Integration Management Part 2
Screencast - Getting to Know the Pipeline
Suggested Courses
Course of the Month14 days, 22 hours left to enroll

577 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question