Testing Debenu Quick PDF Library

[Marc Vanzegbroeck]

And works perfectly with EMF files.
Inside there are also functions for writing Qrcode and other barcodes.

Hi Massimo,

Do you have an example to create a PDF with this library?
Do you use the Lite-version?
I normaly use PDFCreator, or Bullzip, but on a terminal-server, I get some problems.
viewtopic.php?f=3&t=36856
maybe this can solve my problem.

Thank you.

[Massimo Linossi]

Hi Marc
I bought the full library. I don't know if the lite version has all the functionalities. You must make a test.
Here is little function to test different options, barcodes included.

Code: Select all  Expand view

PROCEDURE Main()
LOCAL PdfLibrary, nomefile, nomefile2, larghezza, altezza, contatore, documento
LOCAL fontID1, fontID2
LOCAL lHeight1, lWidth1, image1
LOCAL lHeight2, lWidth2, image2

nomefile  = "TestLibrary.pdf"
nomefile2 = "TestLibrary2.pdf"
ferase(nomefile)
ferase(nomefile2)

PdfLibrary = CreateObject("DebenuPDFLibraryAX1612.PDFLibrary")

If PDFLibrary:UnlockKey("...") = 1    // YOUR KEY
    msginfo(PDFLibrary:LicenseInfo())

    PDFLibrary:SetPageSize("A4")

    altezza    = PDFLibrary:PageHeight()
    larghezza  = PDFLibrary:PageWidth()

    PDFLibrary:CompressImages(1)
    PDFLibrary:CompressFonts(1)
    PDFLibrary:SetOrigin(1)

    fontID1 = PDFLibrary:AddTrueTypeFont("Times New Roman", 0)
    fontID2 = PDFLibrary:AddTrueTypeFont("Arial", 0)
    PDFLibrary:SelectFont(fontID1)
    PDFLibrary:DrawText(100, 500, "Hello from pdf library")

    PDFLibrary:SetTextSize(20)
    PDFLibrary:SelectFont(fontID2)
    PDFLibrary:DrawText(400, 500, "Hello from Visual Basic 2")
    PDFLibrary:DrawLine(300, 300, 500, 500)
    PDFLibrary:DrawBox(200, 500, 80, 80, 0)

    PDFLibrary:DrawHTMLText(532, 270, 100, "<b>€ 995,00</b>")

    PDFLibrary:SetFillColor(0, 0, 0)
    PDFLibrary:SetLineColor(23, 50, 100)
    PDFLibrary:DrawCircle(475, 15, 5, 2)

    image1 = PDFLibrary:AddImageFromFile("TEST_00.BMP", 0)
    PDFLibrary:SelectImage(image1)
    lWidth1 = PDFLibrary:ImageWidth() / 6
    lHeight1 = PDFLibrary:ImageHeight() / 6
    PDFLibrary:DrawImage(100, lHeight1, lWidth1, lHeight1)
    PDFLibrary:DrawScaledImage(10, 10, 0.2)

    PDFLibrary:DrawQrcode(190, 190, 40, "DebenuPDFLibraryAX1612.PDFLibrary", 2, 0)
    PDFLibrary:DrawDatamatrixSymbol(240, 240, 5, "DebenuPDFLibraryAX1612.PDFLibrary", 1, 15, 0)

    // Use millimetres
    PDFLibrary:SetMeasurementUnits(1)
    altezza    = PDFLibrary:PageHeight()
    larghezza  = PDFLibrary:PageWidth()
    //msginfo(str(altezza) + "   " + str(larghezza))

    // Draw a 100 x 100 mm green rectangle
    PDFLibrary:SetLineColor(0, 0.8, 0)
    PDFLibrary:DrawBox(50, 20, 100, 100, 0)
    PDFLibrary:DrawText(60, 30, "It's hip to be square...")

    PDFLibrary:CompressContent()

    // Use pixels
    PDFLibrary:SetMeasurementUnits(0)
    altezza    = PDFLibrary:PageHeight()
    larghezza  = PDFLibrary:PageWidth()
    PDFLibrary:Newpage()
    PDFLibrary:SelectPage(2)

    // HERE A TEST FOR IMPORTIN EMF FILES
    image2 = PDFLibrary:ImportEMFFromFile("c:\fw\debenu_test\EMF\93654296.emf", 1, 0)
    PDFLibrary:SelectImage(image2)
    PDFLibrary:DrawImage(0, 0, larghezza, altezza)

    for contatore = 1 to PDFLibrary:PageCount()
        PDFLibrary:SelectPage(contatore)
        PDFLibrary:CompressPage()
    next contatore

    PDFLibrary:CompressContent()

    PDFLibrary:SaveToFile(nomefile)

    PDFLibrary:ReleaseImage(image1)
    PDFLibrary:ReleaseImage(image2)
EndIf
PdfLibrary = nil
RETURN
 

[Marc Vanzegbroeck]

Thank Massimo,

I will try it and let you know the result.

[Massimo Linossi]

Maybe you can make also in a different way.
You can make all your prints with the preview option.
And inside the preview function take all the EMF files and merge them into one PDF.
It's easy.

[Marc Vanzegbroeck]

Maybe you can make also in a different way.
You can make all your prints with the preview option.
And inside the preview function take all the EMF files and merge them into one PDF.
It's easy.

Thats a good idea.
I'm trying to install de PDF-Library. But when regristering the DebenuPDFLibraryLite1114.dll with regsrv32, I always get an error thay the dll is loaded, but the call to the dll is not succesfull. Error 0x80004005.
I allready tested on a 32bit VMWARE and a 64bit VMWARE, but the same result.

I will try to fix that fist

[Marc Vanzegbroeck]

Massimo,

The DLL is registred
Now I'm trying to create a PDF. Some calls give an error. I will check why they don't word. I allready searched that they are available in the lite version.

For example PDFLibrary:SetPageSize("A4") works, and PDFLibrary:CompressImages(1) doesn't

[Massimo Linossi]

CompressContent() works ?

[Marc Vanzegbroeck]

Massimo,

I found the list with available functions in the Lite version Edition.

AddImageFromFile AddLinkToWeb AddStandardFont DocumentCount DrawQRCode DrawImage DrawText DrawTextBox FindImages GetInformation GetPageBox HasFontResources ImageCount ImageHeight ImageWidth IsLinearized LastErrorCode 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

Unfortunately, ImportEMFFromFile is not one of them..

[Massimo Linossi]

Give me your mail, I have an idea

[Marc Vanzegbroeck]

Massimo,

My email is marc at vms dot be

[Massimo Linossi]

Check your mail.
Here are all the functions in the library https://www.debenu.com/docs/pdf_library_reference/FunctionGroups.php

[Silvio.Falconi]

You stop breaking our cock ...?

I had never seen a function written by you ... just chat and 'supercazzole'

According to you one should have trouble because you go with the wheelchair but I'll get tied up in a wheelchair and you swollen with sjouans ... do you want to bet?

because you break people's cock and you will not stop until someone really gets angry and finds you

[Euclides]

Mr. Antonio Linares!!! (sorry for jumping in...)
They are treating about serious issues ove here em this OLD TIME TROUBLEMAKER (Silvio Falconi) is spoiling the post itself.
I suggest block him fom at lesat 7 days, so he will not be able to write any line of code without help.
It will be good for the programming language itself.
Kind regards.
Euclides

[horacio]

No entiendo a Silvio y Massimo, este lugar NO es para dirimir sus diferencias. Piensen por favor ...

Saludos

I do not understand Silvio and Massimo, this place is NOT to settle their differences. Please think ...

regards

[Silvio.Falconi]

Dear Euclides, Horacio

He started Massimo linossi in another topic to insult me. It is a long time since Massimo Linossi offended me.
on http://forums.fivetechsupport.com/viewtopic.php?f=3&t=36727&p=219079#p219079
and many others

According to him all of us in the forum we have to put up with him because he is in a wheelchair but I really can not stand it anymore.

You can stop me as you have asked but Massimo Linossi will not stop offending me as he has done several times and in fact Antonio Linares has always closed communications to not continue.

He is kind, he tells you "it works for me" or "give me your email I have an idea" or "I found the solution for ..." but then he does not publish any source and if he publishes it he will insert other people * stolen * , or I'm sorry I meant copied from the forum


Every time I ask something in the forum, here is a message from Massimo linossi to offend me

Massimo linossi is an instigator

I have not seen a source or a class of Massimo Linossi, this man disturbs others who are looking for an answer to their programming errors.
See also the other topics and you will see that antonio has closed the topic on my request because Massimo Linossi continued to offend me.

Massimo Linossi is a Troll I can not stand it anymore

Antonio, Cristobal, Otto, Nages, Anserkk, Günther with his dog, Maurizio G., Patrizio, Daniel Garcia, Reinaldo Crespo, Andres Gonzales,Gilbert Kuhnert and many other people from this forum met me in Austria as you can see here

https://bbuseruploads.s3.amazonaws.com/e308bc92-6fd3-4ead-966a-34a4c33f71aa/downloads/7e3ca638-c240-42e0-bdbb-1a7083e7a4c2/dolomites2017.jpeg?Signature=7WYWcaIcRAkXi9g9ECeAJ3e54dU%3D&Expires=1552243945&AWSAccessKeyId=AKIAIQWXW6WLXMB5QZAQ&versionId=peQQ85xUv5ZZOlkrZnqqOB4dgWWL3xN2&response-content-disposition=attachment%3B%20filename%3D%22dolomites2017.jpeg%22

and they know me well and know that they are not like you describe me (oldtime troublemaker), none of them writes on the forum and offends other people and me

do you know Massimo Linossi well?
So please tell him to stop , stop please , stop please