TDDEClient - Exemples

TDDEClient = class (TObject)Interface de TDDEClientExemples de TDDEClient

// Pour que l'exemple fonctionne, il faut avoir créé un fichier D:\TestDDE.xlsx qui contienne 3 signets (TESTDDE1, TESTDDE2, TESTDDE3).

procedure TestWord;
var
   dde : TDDEClient;
   lstData, lstCmd : TStrings;
begin
   // Création du lient DDE
   dde:=TDDEClient.Create('WINWORD', 'D:\TestDDE.docx', 'WINWORD');
   dde.OpenLink;
   if not dde.LinkOpened or dde.WaitStat then Exit;

   // Ecriture du texte du document
   dde.PokeData('TESTDDE1', 'test');

   // Ecriture de plusieurs cellules
   lstData:=TStrings.Create;
   lstData.Add('Data1');
   lstData.Add('Data2');
   lstData.Add('Data3');
   dde.PokeDataLines('TESTDDE2', lstData);

   dde.PokeDataLinesCT('TESTDDE3', lstData.CommaText);

   // Lecture du texte du document
   PrintLn(dde.RequestData('\Doc'));

   // Envoi de plusieurs commandes à Excel
   lstCmd:=TStrings.Create;
   lstCmd.Add('[FileSave()]');
   lstCmd.Add('[FileExit(2)]');
   dde.ExecuteMacroLines(lstCmd, False);

   dde.CloseLink;
end;
TestWord;