Debenu Quick PDF Library - UDF

[mLipok]

I will change the QuickPDF_Examples.au3 to open other pdf file's.

Good.

Examples are there to use them.

Cheers

mLipok

[mLipok]

useful information:

http://www.quickpdflibrary.com/blog/2011/02/the-basics-getting-familiar-with-quick-pdf-library/

edit:

http://www.quickpdf.org/forum/quickpdf-the-first-steps_topic1242.html

Edited May 21, 2014 by mLipok

[mLipok]

2014-05-31 NEW VERSION:
 

2014/05/31
v0.4
QuickPDF.au3
* in __QPDF_UnlockKey() - Remarks changed
* in _QPDF_StartUp() fixed: 'If Not FileExists($sDLLFile) Then' removed 'Not'
*  because of this process did not work on systems where the library was not registered using regsvr32.exe.
* in _QPDF_StartUp() added: return values, but their functionality is not yet implemented and described (be expected to change within a week)
* Added: new function: _QPDF_PrintPDFFile([$sPDF_FileFullPath = Default[, $sPDFPassword = ''[, $iDuplex = 1 ]]])
* Added: new function: _QPDF_MergeFiles($sFirstFileName, $sSecondFileName[, $sOutputFileName = Default])
QuickPDF_Examples.au3
*  new example _QPDF_Example_MergeFiles()

EDIT:

version date issue

for a moment I thought that today is a "children's day"

Edited May 31, 2014 by mLipok

[mLipok]

Small test of a performance:

Recently I was doing the tests.

497 pdf files, total size of 65.4 MBytes, sent to the printer buffer in time 4:16 minutes

Edited June 4, 2014 by mLipok

[Biatu]

It is possible to read text/tables without the commercial/trial version? thank you

[mLipok]

You can check available feature (in Lite Version) here:
 
http://www.debenu.com/products/development/debenu-pdf-library-lite/
 
from Debenu Quick PDF Library 10.14 Reference Guide.pdf :

ImageWidth

LastErrorCode
Linearized
LoadFromFile
MergeDocument
NewDocument
NewPage
NormalizePage
PageCount
PageHeight
PageRotation
PageWidth
RemoveDocument
RotatePage
SaveToFile
SecurityInfo
SelectDocument
SelectedDocument
SelectFont
SelectImage
SelectPage
SetBaseURL
SetInformation
SetMeasurementUnits
SetOrigin
SetPageBox
SetPageDimensions
SetPageLayout
SetPageMode
SetPageSize
SetTextAlign
SetTextColor
SetTextSize

SetTextUnderline

 
 
Answer: unfortunately not
 
btw: 
 
Can not read the text in the form of a table, at least not in a direct simple way.
The functions of this library allows only read the text along with its coordinates,
the result is in the form of a CSV,
So overall analysis of the text in this case is quite complicated, but in conclusion it is possible to assign the correct text into a two-dimensional array variable.
 
mLipok
 
 
EDIT:
Here is some intresting talk about this kind of feature:
http://www.quickpdf.org/forum/table-empty-cells-text-extraction_topic2918.html

Edited June 18, 2014 by mLipok

[mLipok]

NEW VERSION:

2014/07/02
v0.6

QuickPDF.au3
*   added: #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7    and script CleanUp
*   added: new function _QPDF_ExtractTextFromStream() - you can use this function when you have data taken from Blob from SQL databese
*   added: new parameters _QPDF_NewLibraryPath_Commercial($sLibrary_NewFileFullPath, $sNewClassName, $sNewCLSID, $sNewIID)
*   #Region renaming - for better usage in SciTE Jump
*   in _QPDF_MergeFiles() -- litle change in $sOutputFileName = Default - add & '_temp.pdf' instead 'temp.pdf'
*   Changed: _QPDF_LastErrorCode -- Return Value containg description (string) and @error contain LastErrorCode
*   Changed: _QPDF_ExtractTextFromFile    dafult $iExtractOptions = 7 for detail see here : http://www.quickpdf.org/forum/extractfilepagetext-options-0-and-8_topic2929.html
*   Removed: some MsgBox
*   Fixed: _QPDF_StartUp() - error checking for DllOpen

QuickPDF_Examples.au3
*   added: using new function _QPDF_NewLibraryPath_Commercial()
    for this you need DebenuPDFLibraryAX1015.dll
    _QPDF_NewLibraryPath_Commercial(@ScriptDir & '\DebenuPDFLibraryAX1015.dll', 'DebenuPDFLibraryAX1015.PDFLibrary', '{5D4196E9-0A7D-48DC-BD2C-7CD3FE771B38}', '{FA7270CF-D774-4A68-8368-2C3179895E0C}')

QuickPDF_Calltip_Generator.au3
*   NEW:  use it to generate au3.QuickPDF.calltips.api

[mLipok]

New major version (11.11) is submited by Debenu.
You can download here.
After installation it will generate a new evaluation license code.
So you can re-check the operation of the library.

Debenu has also published a new version of the control DebenuViewer.
I'm working on the software in my UDF.

ps.

I have to prepare a lot of new features in my UDF

I think I will publish in the next two weeks.

[mLipok]

As a creator I'm just curious. Does anyone actually uses this UDF.

I have to prepare a big update, I wonder if at the moment is the meaning of it made public in the near future, or continue to work on it for another half year.

mLipok

EDIT 2014-11-19:
I know that this library is a commercial and for this reason, not many members of this community is going to use it.
However, I would encourage you to use it and I want to notify, that the company Debenu often gets price cut. Your last opportunity to get the discount  was Halloween.

Edited November 19, 2014 by mLipok

[mLipok]

EDIT: This example can be used with Lite version of Debenu Library (Free)

 

this is example for how to:  Merge PDF files.

expandcollapse popup

Func _QPDF_Example_MergeFiles_Lite()

    ; Combine together all pdf from selected folder, quickly and easy

    Local $sFileName = @ScriptDir & "\Example_MergedFileList.pdf"
    ; select folder
    Local $sFolderWithPDFFiles = FileSelectFolder('Select Folder with PDF Files to Merge', "", 2 + 4)
    If @error Then
        MsgBox($MB_SYSTEMMODAL, 'Error', 'FileSecetFolder @error = ' & @error)
    Else
        Local $oQP
        If _QPDF_CreateObjectAndUnlock($oQP) = 2 Then
            ; make an array with PDF File List
            Local $aPDFFileList = _FileListToArray($sFolderWithPDFFiles, '*.pdf', 1, True)

            ; load first document
            $oQP.LoadFromFile($aPDFFileList[1], '')
            Local $iDocumentID_First = $oQP.SelectedDocument()

            ; add each next PDF file from the Array to the QP File List
            Local $iDocumentID_Next
            For $iPDFFileID = 2 To $aPDFFileList[0]
                $oQP.LoadFromFile($aPDFFileList[$iPDFFileID], '')
                $iDocumentID_Next = $oQP.SelectedDocument()

                ; Select first document
                $oQP.SelectDocument($iDocumentID_First)

                ; Merge Next Document to First Document
                $oQP.MergeDocument($iDocumentID_Next)
            Next

            ; Save merged files together.
            $oQP.SaveToFile($sFileName)

            ; wait for complete save
            While _WinAPI_FileInUse($sFileName)
                Sleep(10)
            WEnd

            ; Open PDF
            ShellExecuteWait($sFileName)
        EndIf
    EndIf

    $oQP = 0 ; CleanUp - destroy object
EndFunc   ;==>_QPDF_Example_MergeFiles_Lite

Edited December 10, 2014 by mLipok

[mLipok]

This example can be used with Lite version of Debenu Library (Free)

this is example for how to use GetInformation function.

expandcollapse popup

#Tidy_Parameters=/sort_funcs /reel
;~ #AutoIt3Wrapper_Run_Debug_Mode=Y

#Region Include
#Tidy_Parameters=/reel
#include-once
#include <array.au3>
#include "QuickPDF.au3"
#EndRegion Include


; uncomment this followed linet to use commercial or trial license for last library version
; _QPDF_NewLibraryPath_Commercial(@ScriptDir & '\DebenuPDFLibraryAX1112.dll', 'DebenuPDFLibraryAX1112.PDFLibrary', '{AAC7EC02-5945-4ED6-A1E3-2FD000A8A6D2}', '{9CD13D3B-DB99-4D3F-ACAB-20D4F7898967}')

; set LicenseKey - blank for Lite = Free Debenu Version
_QPDF_SetLicenseKey('')

_QPDF_GetInformation_EXAMPLE()

Func _QPDF_GetInformation_EXAMPLE()
    ; change @ScriptDir & '\Example_BarCodes.pdf' to your own PDF File
    Local $aResult = _QPDF_GetInformation(@ScriptDir & '\Example_BarCodes.pdf')
    If UBound($aResult) Then
        _ArrayDisplay($aResult)
    Endif
EndFunc   ;==>_QPDF_GetInformation_EXAMPLE

; #FUNCTION# ====================================================================================================================
; Name ..........: _QPDF_GetInformation
; Description ...: Get information from PDF File
; Syntax ........: _QPDF_GetInformation($sPDF_FileFullPath[, $sPDF_Password = ''])
; Parameters ....: $sPDF_FileFullPath   - A string value.
;                  $sPDF_Password       - [optional] A string value. Default is ''.
; Return values .: succes: array with the following info:
;                   0 = PDF Version
;                   1 = Author
;                   2 = Title
;                   3 = Subject
;                   4 = Keywords
;                   5 = Creator
;                   6 = Producer
;                   7 = Creation date
;                   8 = Modification date
; Author ........: mLipok
; Modified ......:
; Remarks .......: it works with Lite (free) version ie. DebenuPDFLibraryLite1112.dll
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _QPDF_GetInformation($sPDF_FileFullPath, $sPDF_Password = '')
    Local $oQP
    If _QPDF_CreateObjectAndUnlock($oQP) = 1 Or _QPDF_CreateObjectAndUnlock($oQP) = 2 Then
        $oQP.LoadFromFile($sPDF_FileFullPath, $sPDF_Password)
        Local $aReturn[9] = [ _
                $oQP.GetInformation(0), _
                $oQP.GetInformation(1), _
                $oQP.GetInformation(2), _
                $oQP.GetInformation(3), _
                $oQP.GetInformation(4), _
                $oQP.GetInformation(5), _
                $oQP.GetInformation(6), _
                $oQP.GetInformation(7), _
                $oQP.GetInformation(8) _
                ]
        Return $aReturn
    Else
        _QPDF_LastErrorCode($oQP)
    EndIf
    $oQP = 0 ; CleanUp - destroy object
EndFunc   ;==>_QPDF_GetInformation

EDIT:
script function name fix

Edited December 10, 2014 by mLipok

[mLipok]

Since I was asked release new version, so I put the current version of this UDF.

Since it is not yet finished (polished, described, ....) I do not put it at the beginning of this thread (opening post).

NOTE: The changes are quite large, but did not have time to describe them, I will try to catch up in the near future.

 

Here is (EDIT: attachment removed - quota celanup - look in download section for newer version)  intermediate version - without changing the version numbering, without a full description.

 

Comments, bug reports, feature requests, are welcome.

 

Best regards,

mLipok

Edited June 18, 2015 by mLipok
attachment removed - quota celanup

[Lelikkeo]

when you run the file QuickPDF_Examples.au3 error: #include <MsgBoxConstants.au3> Error: Error opening the file.

help please solve the problem

[mLipok]

 

Here is  {EDIT: attachment removed - quota celanup - look in download section for newer version}

 

 

intermediate version - without changing the version numbering, without a full description.

 

Comments, bug reports, feature requests, are welcome.

 

Best regards,

mLipok

Edited June 18, 2015 by mLipok

[Lelikkeo]

Help me please make a simple example using free library (Lite) and features:

- create pdf file formats A4, A3, A2, A1, A0.

- the change in the orientation of the sheet.

- text entry indicating the size and the coordinate of the location of the text on the sheet.

- drawing lines indicating the start and end of the line.

- merge multiple pdf files into one.

[mLipok]

I can try

Just Click "Follow this topic" and wait for notification.

mLipok

[Lelikkeo]

I look forward to)))

Lelik

[mLipok]

- the change in the orientation of the sheet.

 

Are you mean  Landscape ??

[mLipok]

I think It is done:

expandcollapse popup

Func _Examples_For_Lelikkeo()

    #cs
        AuotIt member Lelikkeo ask for help:

        Help me please make a simple example using free library (Lite) and features:
        - create pdf file formats A4, A3, A2, A1, A0.
        - the change in the orientation of the sheet.
        - text entry indicating the size and the coordinate of the location of the text on the sheet.
        - drawing lines indicating the start and end of the line.
        - merge multiple pdf files into one.

        Request Link
        http://www.autoitscript.com/forum/topic/160875-debenu-quick-pdf-library-udf/page-2#entry1240977

    #ce

    _QPDF_UseErrorHandler()
    Local $oQP

    If _QPDF_CreateObjectAndUnlock($oQP) = 2 Then

        ; Set the origin for the drawing co-ordinates. In this case we'll draw the co-ordinates from the top left corner of the page.
        ; http://www.debenu.com/docs/pdf_library_reference/SetOrigin.php
        $oQP.SetOrigin($__eQPDF_SORIGIN_TopLeft);

        ; http://www.debenu.com/docs/pdf_library_reference/SetMeasurementUnits.php
        $oQP.SetMeasurementUnits($__eQPDF_MUNITS_Milimeters)

        ; Set Page Size to A3 with Landscape
        ; http://www.debenu.com/docs/pdf_library_reference/SetPageSize.php
        $oQP.SetPageSize('A3 Landscape')

        ; Set Page Size to A3 Default Page orientation
        ; http://www.debenu.com/docs/pdf_library_reference/SetPageSize.php
        $oQP.SetPageSize('A4')

        ; http://www.debenu.com/docs/pdf_library_reference/SetTextSize.php
        $oQP.SetTextSize(10);

        ; Draw normal text
        ; http://www.debenu.com/docs/pdf_library_reference/DrawText.php
        $oQP.DrawText(25, 25, "This is example for Lelikkeo Request");

        #cs
            Unfortunately SetLineWidth and  DrawLine  are not available in Lite version

            ; http://www.debenu.com/docs/pdf_library_reference/SetLineWidth.php
            $oQP.SetLineWidth(1)

            ; drawing lines indicating the start and end of the line.
            ; http://www.debenu.com/docs/pdf_library_reference/DrawLine.php
            $oQP.DrawLine(20,50,200,80);
        #ce

        ; http://www.debenu.com/docs/pdf_library_reference/SaveToFile.php
        $oQP.SaveToFile(@ScriptDir & '\QP_Lelikkeo_Exmaple.pdf');

        ShellExecute(@ScriptDir & '\QP_Lelikkeo_Exmaple.pdf')

        ; this following is not example but a Function in UDF - but it can be used as an example
        _QPDF_MergeFiles_Lite()

    EndIf

EndFunc   ;==>_Examples_For_Lelikkeo

EDIT:

$oQP.SetPageSizes

changed to

$oQP.SetPageSize

Edited April 23, 2015 by mLipok

[Lelikkeo]

Are you mean  Landscape ??

I meant "Page orientation"