?
Solved

How to trap events for an OLE object in PowerBuilder

Posted on 2008-10-20
2
Medium Priority
?
2,755 Views
Last Modified: 2013-12-26
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?
integer		li_rc
OLEObject	ole_distill
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'
FileDelete(ls_ps_file)
FileDelete(ls_pdf_file)
 
// Create and connect to Distiller object
ole_distill = Create OLEObject
li_rc = ole_distill.ConnectToNewObject("PdfDistiller.PdfDistiller.1")
If li_rc <> 0 Then
   Destroy ole_distill 
   Return  
End if
 
// 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'
dw_1.Print()
 
// 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
PrintSetPrinter(ls_orig_printer)
Destroy ole_distill

Open in new window

0
Comment
Question by:stanner
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 14

Assisted Solution

by:sandeep_patel
sandeep_patel earned 400 total points
ID: 22767413
As far I know it is possible only if you can paste (insert) the control on userobject or window.

Regards,
Sandeep
0
 
LVL 1

Accepted Solution

by:
stanner earned 0 total points
ID: 23349949
I was unable to get this working with PowerBuilder alone. I finally solved the problem by creating a Visual Basic 6 OCX that interfaced with the Distiller API. I could then place the VB OCX object on a PowerBuilder window and relay the events to PowerBuilder events. This is a bit cumbersome, but seems to work effectively.
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Update 21-May-2015: I temporarily removed the source code and the code snippets to make major changes to the program. Regards, Joe INTRODUCTION This Article is a follow-up to the Article entitled How To Rename-Move a Batch of PDF Files Based o…
The Adobe PDF proprietary file format is recognized as secure and formulated. But these PDF files are also prone to corruption and any external threat like virus attacks, improper storage can hit PDF file integrity.This type of damages can make cruc…
The viewer will learn how to synchronize PHP projects with a remote server in NetBeans IDE 8.0 for Windows.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
Suggested Courses
Course of the Month12 days, 17 hours left to enroll

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question