Testing Debenu Quick PDF Library

Marc Vanzegbroeck
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by Marc Vanzegbroeck »

Massimo Linossi wrote: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.
http://forums.fivetechsupport.com/viewt ... =3&t=36856
maybe this can solve my problem.

Thank you.
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
User avatar
Massimo Linossi
Posts: 474
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: Testing Debenu Quick PDF Library

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

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
 
Last edited by Massimo Linossi on Sun Mar 10, 2019 12:32 pm, edited 2 times in total.
Marc Vanzegbroeck
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by Marc Vanzegbroeck »

Thank Massimo,

I will try it and let you know the result.
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
User avatar
Massimo Linossi
Posts: 474
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: Testing Debenu Quick PDF Library

Post by 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
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by Marc Vanzegbroeck »

Massimo Linossi wrote: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 :wink:
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
Marc Vanzegbroeck
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by Marc Vanzegbroeck »

Massimo,

The DLL is registred :D
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 :(
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
User avatar
Massimo Linossi
Posts: 474
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: Testing Debenu Quick PDF Library

Post by Massimo Linossi »

CompressContent() works ?
Marc Vanzegbroeck
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by 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..
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
User avatar
Massimo Linossi
Posts: 474
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: Testing Debenu Quick PDF Library

Post by Massimo Linossi »

Give me your mail, I have an idea
Marc Vanzegbroeck
Posts: 1102
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium
Contact:

Re: Testing Debenu Quick PDF Library

Post by Marc Vanzegbroeck »

Massimo,

My email is marc at vms dot be
Regards,
Marc

FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
User avatar
Massimo Linossi
Posts: 474
Joined: Mon Oct 17, 2005 10:38 am
Location: Italy

Re: Testing Debenu Quick PDF Library

Post by Massimo Linossi »

Check your mail.
Here are all the functions in the library https://www.debenu.com/docs/pdf_library ... Groups.php
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Testing Debenu Quick PDF Library

Post by 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
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Euclides
Posts: 144
Joined: Wed Mar 28, 2007 1:19 pm

Re: Testing Debenu Quick PDF Library

Post by 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. :D :D :D :D
Kind regards.
Euclides
horacio
Posts: 1270
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Testing Debenu Quick PDF Library

Post by 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
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: Testing Debenu Quick PDF Library

Post by 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/viewt ... 79#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/ ... 17.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
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Post Reply