I am trying to use Adobe Distiller to convert postscript files to PDFs using OLE automation. My sample script (attached) works fine for a single file using the FileToPdf function in Distiller. However, I will be running this in a multi-threaded application, so need to set bSpoolJobs to true so that Distiller will queue the requests. Otherwise, PowerBuilder processes the requests faster than Distiller can handle them, causing an error.
I believe that queueing up the Distiller requests will solve the problem. However, I then need to know when each Distiller process finishes, so that I can move the PDF file, cleanup the files, etc. If I could get at the onJobDone event in the Distiller object, I believe I could then do my cleanup there. However, I have no idea how to get at or code to the events in the ole object.
If I use ConnectToNewObject, as in my attached code example, then there is no visual object in which to code events. I have tried creating an external visual user object and assigning the DLL and class to it, but it just errors out when I try to set any properties or call any functions within the DLL.
Is there any way to create this object around the acrodistdll.dll dll and be able to get at the onJobDone and onJobError events? In visual basic, you can use the "WithEvents" clause to generate the events. Is there any way to do it with PowerBuilder?
string ls_orig_printer, ls_ps_file, ls_pdf_file
string ls_filename = 'C:\testapp\testapp'
// Cleanup from previous run
ls_ps_file = ls_filename + '.ps'
ls_pdf_file = ls_filename + '.pdf'
// Create and connect to Distiller object
ole_distill = Create OLEObject
li_rc = ole_distill.ConnectToNewObject("PdfDistiller.PdfDistiller.1")
If li_rc <> 0 Then
// Set distiller properties
ole_distill.bShowWindow = False
ole_distill.bSpoolJobs = True
// Backup original printer and change to PS
ls_orig_printer = PrintGetPrinter()
PrintSetPrinter('Sybase Datawindow PS')
// Print to postscript file
dw_1.object.datawindow.print.filename = ls_ps_file
dw_1.object.datawindow.print.printername = 'Sybase Datawindow PS'
// Use Distiller to convert postscript file to pdf
li_rc = ole_distill.FileToPdf(ls_ps_file, ls_pdf_file, 'Standard.joboptions')
// Reset printer and cleanup