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

   procedure convertWordPerfectToPDF();
   var
     DC,
     objWordPerfect : Variant;
     RVal : Integer;
     docToConvert : String;
   begin
      docToConvert := 'c:\users\public\test.wpd';
      try
        DC := CreateOleObject('Neevia.docCreator');

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

        RVal:= DC.startPrinting;
        if (RVal <> 0) then
        begin
          ShowMessage('Error while calling StartPrinting method!!!');
          exit;
        end;

        try
          objWordPerfect := CreateOleObject('WordPerfect.PerfectScript');
          objWordPerfect.AppMaximize;
          objWordPerfect.Backup(0);
          objWordPerfect.BackupOriginalDoc(0);
          objWordPerfect.PerfectExpert(0);
          objWordPerfect.FileOpen(docToConvert);

          DC.doSleep(100);

          objWordPerfect.PrintTo(docToConvert, DC.newPrinterName);
          objWordPerfect.CloseNoSave(0);
          objWordPerfect.Quit;

          RVal := DC.create; // Create output document
          if (RVal <> 0) then
            ShowMessage('Error while creating document!!! Code: '+IntToStr(RVal))
          else
            ShowMessage('Document Created !!!');
        except
          on E: Exception do
            ShowMessage(E.Message);
        end;
      finally
        RVal := DC.stopPrinting;
        if (RVal <> 0) then ShowMessage('Error while calling StopPrinting!!!');
        DC := Unassigned;
        objWordPerfect := Unassigned;
      end;
   end;