Jump to content

Recommended Posts

Posted
  On 5/20/2014 at 7:18 PM, drbyte said:

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

Good.

Examples are there to use them.

Cheers

mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 2 weeks later...
Posted (edited)

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 2 weeks later...
Posted (edited)

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 :

  Reveal hidden contents

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 2 weeks later...
Posted

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

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 2 months later...
Posted

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.

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 1 month later...
Posted (edited)

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

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

 

this is example for how to:  Merge PDF files.

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 5 weeks later...
Posted (edited)

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

this is example for how to use GetInformation function.

#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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • 4 months later...
Posted (edited)
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 by mLipok
attachment removed - quota celanup

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)
 
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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted

Help me please make a simple example using free library (Liteand features:

- create pdf file formats A4, A3A2A1A0.

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.

Posted

I can try :)

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

mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted
  On 4/22/2015 at 8:14 PM, Lelikkeo said:

the change in the orientation of the sheet.

 

Are you mean  Landscape ??

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Posted (edited)

I think It is done:

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 by mLipok

Signature beginning:
Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Codefor other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...