FiveTech Software tech support forums

Code: Select all | Expand

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