Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 6: Convert a WordPerfect document into PDF from Delphi  Print Example 


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

     DC.setParameter('DocumentOutputFormat', 'PDF');
     DC.setParameter('DocumentOutputName', 'testWP_Delphi');
     DC.setParameter('DocumentOutputFolder', 'd:\');

     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;



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us