How to use DLL-Events???

[storzi]

Hi,

we have the PDF-Printer "eDocPrintPro" in use.
We can activate and access the ole-Object with the following code in Progress (9.1d):

DEF VAR edoc            AS COM-HANDLE NO-UNDO.             
DEF VAR actionpage      AS COM-HANDLE NO-UNDO.
DEF VAR destinationpage AS COM-HANDLE NO-UNDO.  
DEF VAR layoutpage      AS COM-HANDLE. 

CREATE "eDocPort.port" edoc.

    IF VALID-HANDLE(edoc) THEN DO:

        /* EDOCPRINTER ERMITTELN */
        pcount = edoc:getprinterscount().
        edocprinter = edoc:getprinternamefromindex(pcount).

        /* EDOCPRINT HANDLES ZUWEISEN */
        actionpage = edoc:getactionpage(edocprinter).
        destinationpage = edoc:getdestinationpage(edocprinter).
        layoutpage = edoc:getlayoutpage(edocprinter).

        /* AKTUELLE EDOCPRINTPRO EINSTELLUNGEN ZUWEISEN */
        actionpage:readsettings().
        destinationpage:readsettings().
        layoutpage:readsettings().
    end.

This reads the settings for the PDF-Printer and works fine.

In the Example-VB-Code from the PDF-Printer-Company are also some events:
Events:
OnStartDocPort
parameters: none
comments: the event is raised before the printing and can be used for printer customization
OnEndDocPort
parameters: none
comments: the event is raised after finishing the output files creation and can be used for post processing


Now my question:
How can I implement these events in progress?

Thanks for any help.

Greets
storzi

 

[vice]

progress self can't handle such events as far as i know.

but look at the MessageBlaster OCX (msgblst32.ocx) i think it can help you.
(it is used in the systray example at http://www.global-shared.com to receive the messages)http://dict.leo.org/ende?lp=ende&p=5qvU.&search=received

 

[storzi]

progress self can't handle such events as far as i know.

In the documentation "Progress External Program Interfaces" I read, that

edoc:ENABLE-EVENTS("port").
PROCEDURE port.OnEndDocPort:
     message "Event OnEndDocPort".
END.

should work.

but look at the MessageBlaster OCX (msgblst32.ocx) i think it can help you.

Thanks. I will take a look at it.

 

[vice]

oh sorry for this confusion i don't realizied that u have an active-x :blush1:http://dict.leo.org/ende?lp=ende&p=/gQPU.&search=unrealized

 

[storzi]

No problem.
But

edoc:ENABLE-EVENTS("port").
PROCEDURE port.OnEndDocPort:
     message "Event OnEndDocPort".
END.

doesn`t work.

 

[robsoncruzjr]

Do you know if that works on 9.1e?
I'm trying to use it on 9.1e but it doesn't works. I tried it on 10.1c and it worked perfectly. Thanks

 

[kluzra]

I'm using 10.1b and trying to encorporate the API with my structure .p program. I'm not having any luck. I put the Event Procedures in the main section. I have the Enable-Events called in a procedure of the .p right after com-handle is assigned/validated, with the com-handle of the dll declared in the definitions.

Thanks,
Russ