ObjEvent - Bytescout.PDFExtractor.dll + ProgressEventHandler

[mLipok]

I'm trying to catch ProgressEventHandler from 

https://cdn.bytescout.com/help/BytescoutPDFExtractorSDK/html/T_Bytescout_PDFExtractor_BaseExtractor_ProgressEventHandler.htm

My problem occurs when I try to use ObjEvent() 

Local $oSearchablePDFMaker = ObjCreate("Bytescout.PDFExtractor.SearchablePDFMaker")

;~  Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_") ; TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.

;~  Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "ProgressEvent") ; TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.

;~  Local $oSearchablePDFMaker_Event =  ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "ProgressEventHandler") ; TYPE_E_TYPEMISMATCH 0x80028CA0 Type mismatch.

    Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "_ProgressEventHandler") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

;~  Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "_ProgressEventHandler_2") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

;~  Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "_ProgressEventHandler_3") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

 

Func _Catch_Event_ProgressChanged(ByRef $oObject, $iOngoingOperation, $iProgress, ByRef $iCancel)
    #forceref $oObject, $iOngoingOperation, $iProgress, $iCancel
    ConsoleWrite("> " & $iOngoingOperation & " / " & $iProgress & @CRLF)
EndFunc   ;==>_Catch_Event_

 

So I use: @trancexx TLBViewer.au3 
And I get this content: TLB.zip

Any concept how to properly use ProgresEventHandler ?

 

Edited May 23, 2020 by mLipok

[argumentum]

found https://bytescout.com/articles/pdf-extractor-sdk-vb-net-textextractor-progress-indication but it needs translation to AutoIt.

[mLipok]

Thanks @argumentum but the same is here:
https://github.com/bytescout/pdf-extractor-sdk-samples/blob/master/C%23/TextExtractor Progress Indication/Program.cs

I think I already done translation to AutoIt ..... but I have a small bug , imp, or something which I do not understand.

 

[mLipok]

9 minutes ago, mLipok said:

I think I already done translation to AutoIt 

My code in OP is kind of translation to this VB.NET snippet:

AddHandler extractor.ProgressChanged, AddressOf Extractor_ProgressChanged

 

 

EDIT:
And I must to say that:

Local $oSearchablePDFMaker = ObjCreate("Bytescout.PDFExtractor.SearchablePDFMaker")

Works percectly as I can use all methodes and properties to create Searchable PDF from Scaned PDF.

 

Edited May 23, 2020 by mLipok

[argumentum]

5 hours ago, mLipok said:

Local $oSearchablePDFMaker_Event = ObjEvent($oSearchablePDFMaker, "_Catch_Event_", "_ProgressEventHandler") ; <--- should be _ProgressChanged ??

,"_ProgressEventHandler") ; <--- should be _ProgressChanged ??

Edit:  I'm getting the "community edition" and I'll have a go at it so I don't just post out of my imagination  

Edit2: ..I wish you had posted running code. Even if the OnEvent was failing.

Edited May 24, 2020 by argumentum

[argumentum]

TestBytescoutThing()
Func TestBytescoutThing()
    Local $oBytescoutThing = ObjCreate("Bytescout.PDFExtractor.SearchablePDFMaker")
    $oBytescoutThing.RegistrationName = "demo"
    $oBytescoutThing.RegistrationKey = "demo"

    $oBytescoutThing.LoadDocumentFromFile(@MyDocumentsDir & "\ByteScout Samples\PDF Extractor SDK\sample_ocr.pdf")

    ;// Extractor Progress event
    Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressChanged")
    ; Set the location of OCR language data files
    $oBytescoutThing.OCRLanguageDataFolder = "c:\Program Files\Bytescout PDF Extractor SDK\ocrdata_best\"

    ; Set OCR language
    $oBytescoutThing.OCRLanguage = "eng"

    ; Set PDF document rendering resolution
    $oBytescoutThing.OCRResolution = 300

    ; Save extracted text to file
    $oBytescoutThing.MakePDFSearchable(@ScriptDir & "\BytescoutThingoutput.pdf")

    ShellExecute(@ScriptDir & "\BytescoutThingoutput.pdf")

EndFunc

Func _PDFExtractor_ProgressChanged($sender_As_Object, $ongoingOperation_As_OngoingOperation, $progress_As_Double, $cancel_As_Boolean = False)
    ConsoleWrite('- Func _PDFExtractor_ProgressChanged("' & $sender_As_Object & '", "' & $ongoingOperation_As_OngoingOperation & '", "' & $progress_As_Double & '", "' & $cancel_As_Boolean = False & '")' & @CRLF)
EndFunc

+>Setting Hotkeys...--> Press Ctrl+Alt+Break to Restart or Ctrl+BREAK to Stop.
Disclaimer: Community Edition of PDF Extractor SDK is limited in detailed settings.
Disclaimer: Community Edition of PDF Extractor SDK is limited in detailed settings.
Disclaimer: Extraction in the Community Edition of PDF Extractor SDK is limited to the first page of the document.
Disclaimer: Extraction in the Community Edition of PDF Extractor SDK is limited to the first page of the document.
Disclaimer: Community Edition of PDF Extractor SDK works slower than the commercial version.
+>20:22:58 AutoIt3.exe ended.rc:0

...this community edition is ... an annoyance. No event occurred on my code.

Edit: in https://bytescout.com/articles/pdf-extractor-sdk-vbscript-make-searchable-pdf there is the VBScript that we can use, otherwise
we can use https://bytescout.com/articles/pdf-extractor-sdk-vb-net-searchablepdfmaker-progress-indication as .NET and talk to AutoIt via CLR but that you know I guess.

I should not have gotten into this. Way above my head 

Edited May 24, 2020 by argumentum

[mLipok]

Check this:

expandcollapse popup

TestBytescoutThing()

Func TestBytescoutThing()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", _ErrFunc)
    #forceref $oErrorHandler
    Local $oBytescoutThing = ObjCreate("Bytescout.PDFExtractor.SearchablePDFMaker")

    $oBytescoutThing.RegistrationName = "demo"
    $oBytescoutThing.RegistrationKey = "demo"

    $oBytescoutThing.LoadDocumentFromFile(@MyDocumentsDir & "\ByteScout Samples\PDF Extractor SDK\sample_ocr.pdf")

    ;// Extractor Progress event
    Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressChanged")
    ; This will fire COM ERROR
    ; TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.
    #forceref $oBytescoutThing_Event

    ; Set the location of OCR language data files
    $oBytescoutThing.OCRLanguageDataFolder = "c:\Program Files\Bytescout PDF Extractor SDK\ocrdata_best\"

    ; Set OCR language
    $oBytescoutThing.OCRLanguage = "eng"

    ; Set PDF document rendering resolution
    $oBytescoutThing.OCRResolution = 300

    ; Save extracted text to file
    $oBytescoutThing.MakePDFSearchable(@ScriptDir & "\BytescoutThingoutput.pdf")
    ConsoleWrite("! " & @ScriptLineNumber & @CRLF)

    ShellExecute(@ScriptDir & "\BytescoutThingoutput.pdf")

EndFunc   ;==>TestBytescoutThing

Func _PDFExtractor_ProgressChanged($sender_As_Object, $ongoingOperation_As_OngoingOperation, $progress_As_Double, $cancel_As_Boolean = False)
    ConsoleWrite('- Func _PDFExtractor_ProgressChanged("' & $sender_As_Object & '", "' & $ongoingOperation_As_OngoingOperation & '", "' & $progress_As_Double & '", "' & $cancel_As_Boolean = False & '")' & @CRLF)
EndFunc   ;==>_PDFExtractor_ProgressChanged

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

You will notice 2 things:

1.
With community edtion of this component AutoIt is never reach this above lines:

ConsoleWrite("! " & @ScriptLineNumber & @CRLF)
    ShellExecute(@ScriptDir & "\BytescoutThingoutput.pdf")

 

2.
As my example have COM Error handler you will see that :
 

Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressChanged")

fires ERROR:
 

Quote

TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.

 

btw.
I also tried one this way:

;~  Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor") ; TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.

;~  Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "ProgressEvent") ; TYPE_E_FIELDNOTFOUND 0x80028017 Field name not defined in the record.

;~  Local $oBytescoutThing_Event =  ObjEvent($oBytescoutThing, "_PDFExtractor", "ProgressEventHandler") ; TYPE_E_TYPEMISMATCH 0x80028CA0 Type mismatch.

;~  Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressEventHandler") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

;~  Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressEventHandler_2") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

;~  Local $oBytescoutThing_Event = ObjEvent($oBytescoutThing, "_PDFExtractor", "_ProgressEventHandler_3") ; EVENT_S_SOME_SUBSCRIBERS_FAILED 0x80040200 An event was able to invoke some but not all of the subscribers

With no success .

For this reason I looked into tlb but was not found solution.

 

[argumentum]

since you know how to use CLR, and given that the code they provide run as expected, then run the VB.NET or C#, plus an IPC to AutoIt.
My idea is based in that: 1) is possible and 2) you know how.
Because I don't believe that it would work with VBScript, as they show every possible example in the help file and the only ones that show an example of "_ProgressChanged" is in those.
Then again, all this is well above my know how. Maybe there is a way to do it all from script.

I'll be following this thread to see how it got solved.

[mLipok]

5 hours ago, argumentum said:

Maybe there is a way to do it all from script.

I hope so.

[mLipok]

In OleViewer I see that there is a method:

 

and I create this example:
 

_Example()
Func _Example()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", _ErrFunc)
    #forceref $oErrorHandler

    Local $oExtractor = ObjCreate("Bytescout.PDFExtractor.TextExtractor")
    $oExtractor.RegistrationName = "demo"
    $oExtractor.RegistrationKey = "demo"

    $oExtractor.add_ProgressChanged(_EVENT2_ProgressChanged)
    ConsoleWrite("! " & $oExtractor.IsDocumentLoaded() & @CRLF)
;~  Local $oEVENTS = ObjEvent($oExtractor,'_EVENT2_','_ProgressEventHandler')
;~  #forceref $oEVENTS
EndFunc   ;==>_Example

Func _EVENT2_ProgressChanged()

EndFunc

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

but I get:
 

Quote

    err.number is:         0x80070057
    err.windescription:    The parameter is not valid.

for line:

$oExtractor.add_ProgressChanged(_EVENT2_ProgressChanged)

 

So my questition is:

What type of parameter should be submited to :

Quote

[id(0x60020006)]
void add_ProgressChanged([in] _ProgressEventHandler* value);
 

??

Edited May 26, 2020 by mLipok

[mLipok]

huh... I get answer from ByteScout TechSupport:

Quote

Sorry, this event is exposed from .NET assembly by automatic tool and does not work properly to use it from VBScript or similar environments.
At this time, we can't promise you that this will be resolved any time soon.

and all is clear.

[mLipok]

@argumentum did you try ByteScout Trial version ?
It works awesome for me.

btw.
My clients/endusers are interested in this solution.

Edited May 27, 2020 by mLipok

[argumentum]

..the "community version" is very disappointing but I guess as marketing goes, ...it works. Did not try a trial.
The around a $1000 minimum is something that ... wow, but if it solves man-hours, the price is justified.
It does do what it claims so that is welcomed.

The solution is gonna take a .NET to AutoIt interaction. I'm waiting, (very patiently), for you to code it

[argumentum]

<double posted due to internet connection, snip>

Edited May 27, 2020 by argumentum

[mLipok]

13 hours ago, argumentum said:

<double posted due to internet connection, snip>

Do you live in the same City as @Danyfirex

 

[mLipok]

By the way, for future members/searchers seeking help in finding text in Scanned PDFs.
If you need to make a tool for schools/college/universities or non-profit organizations, this company offers a number of free licenses for various target groups.