DDE client/server ?

Jeg ville lede ca her:

\marco\md5code\Part4\15\TESTCOM

Downloading the book and the code
After a tentative publication as HTML,
the book is now available in a single
file in PDF format. The download it bigger,
but you'll benefit from having the entire
book easily available on your local computer
in one file, rather than having to handle
multiple chapters with many files for the figures.

So you can download the file Essential Delphi_103.pdf
(which is almost 1.3 Mbytes). You can also download
the source code in edelphicode103.zip (about 200 Kbyes).

http://www.marcocantu.com/edelphi/default.htm

Denne procedure sender en string med DDE til et program der hedder MapInfo, der har et subprogram der hedder DetProgramJegSkalDDETil.MBX. Prøv at kikke på TDDEClientConv komponenten.

procedure SendMapInfoNote(note:string);
// note er den string der skydes af med DDE
var
  dde_conv: TDDEClientConv;
  arr:      array[0..511] of Char;
begin
  dde_conv:=TDDEClientConv.Create(Application);
  try
    if FileExists('DetProgramJegSkalDDETil.MBX') then begin
      StrPCopy(arr,note);
      dde_conv.SetLink('MapInfo','DetProgramJegSkalDDETil.MBX');
      dde_conv.ExecuteMacro(arr,True);
      dde_conv.CloseLink;
    end;
  finally
    dde_conv.Destroy;
  end;
end;

...hvor server komponenten hedder TDdeServerConv