1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

   unit Unit1;

   interface

   uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, 
     Controls, Forms, Dialogs, StdCtrls, ComObj;

   type
     TForm1 = class(TForm)
       Button1: TButton;
       procedure Button1Click(Sender: TObject);
     end;

   var
     Form1: TForm1;

   implementation

   {$R *.dfm}

   procedure TForm1.Button1Click(Sender: TObject);
   var
     DC : Variant;
     rv : Integer;
     fileToConvert : string;
   begin

     fileToConvert := 'c:\users\public\test.doc';

     DC := CreateOleObject('Neevia.docConverter');

     DC.setParameter('DocumentOutputFormat', 'PDF');
     DC.setParameter('DocumentOutputFolder', 'c:\users\public\');
     DC.setParameter('PDFAutoRotatePage', 'All');

     rv := DC.submitFile(fileToConvert, '');

     If (rv <> 0) then
     begin
       Application.MessageBox(' *** SubmitFile error **** ','Error', MB_OK);
       Exit;
     end;

     rv := 2;
     While (rv = 2) do
     begin
       rv := DC.checkStatus(fileToConvert, '');
       Application.ProcessMessages;
       DC.doSleep(1000);
     end;

     if (rv = 0) then
       Application.MessageBox(' Converted successfully','Success', MB_OK)
     else
       Application.MessageBox(' Error converting','Error', MB_OK);

   end;

   end.