home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tip2 / 506.txt < prev    next >
Text File  |  1999-11-15  |  2KB  |  76 lines
  1. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  2. { Downloaded from The Coder's Knowledge Base                         }
  3. { http://www.netalive.org/ckb/                                       }
  4. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  5. { @ CKB Header Version.: 1.01                                        }
  6. { @ Category ID........: delphi_misc                                 }
  7. { @ Added to database..: 14.10.98                                    }
  8. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  9. { @ Title..............: DDE connection to WinWord                   }
  10. { @ Original Filename..: DDEWiNWord.txt                              }
  11. { @ Author.............: Jean-Yves                                   }
  12. { @ Description........: How to connect via DDE to WinWord           }
  13. { @ Tested w. Compiler.: not tested yet                              }
  14. { @ Submitted by.......: Mike Orriss (mjo@3kcc.co.uk)                }
  15. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  16.  
  17.  
  18. Here is one very simple example of a DDE link with WinWord 6. It IS working.
  19.  
  20. In Word you have to create a file (DDETEST.DOC in this example) and define a bookmark named "Bm1".
  21.  
  22. {------------------- complete source code --------------------------}
  23. unit Unit1;
  24.  
  25. interface
  26.  
  27. uses
  28.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  29.   Forms, Dialogs, StdCtrls, DdeMan;
  30.  
  31. type
  32.   TForm1 = class(TForm)
  33.     DdeConv: TDdeClientConv;
  34.     Word: TButton;
  35.     procedure WordClick(Sender: TObject);
  36.   private
  37.     { Private-dΘclarations }
  38.   public
  39.     { Public-dΘclarations }
  40.   end;
  41.  
  42. {DdeConv properties are :  }
  43. {  ConnectMode : ddeManual }
  44. {  DdeService  : [None]    }
  45. {  DdeTopic    : [None]    }
  46. {  FormatChars : False     }
  47. {  Name        : DdeConv   }
  48.  
  49. var
  50.   Form1: TForm1;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. procedure TForm1.WordClick(Sender: TObject);
  57. begin
  58.  if DdeConv.SetLink( 'WINWORD', 'D:\WINWORD\DDETEST' ) and
  59.     DdeConv.OpenLink then
  60.    begin
  61.     ShowMessage( 'Link with WinWord established !' ) ;   { be sure the link exist }
  62.     DdeConv.PokeData( 'Bm1', 'Data from Delphi !' ) ;        { insert 'Data from Delphi' in word document }
  63.     DdeConv.CloseLink ;
  64.    end ;
  65. end;
  66.  
  67. end.
  68. {------------------- end of source code --------------------}
  69.  
  70. Once you know that it is working it is easier to make it working !
  71.  
  72. Jean-Yves
  73.  
  74.  
  75.  
  76.