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

   procedure convertPPTtoPDF();
   var
     DC,
     MSPowerPoint,
     PPTDoc : Variant;
     docToConvert,
     tempFile : String;
     RVal : Integer;
   begin
      docToConvert := 'c:\users\public\test.ppt';
      try
        DC := CreateOleObject('Neevia.docCreator');

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

        tempFile := DC.getParameter('TempDir') + DC.GUID + '.ps';

        try
          MSPowerPoint := CreateOleObject('PowerPoint.Application');
          PPTDoc := MSPowerPoint.Presentations.Open(docToConvert, -1, 0, 0);
          PPTDoc.PrintOptions.PrintInBackground := 0;
          PPTDoc.PrintOptions.PrintColorType := 1;
          PPTDoc.PrintOptions.ActivePrinter := 'Neevia docCreator';
          PPTDoc.PrintOut(0, 9999, tempFile, 1, 0);
          PPTDoc.Close;
          MSPowerPoint.Quit;

          DC.setInputDocument(tempFile);
          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
       DC := Unassigned;
       MSPowerPoint := Unassigned;
     end;
   end;