Αυστηρή χρήση του PDF σε VB6

By | 6 Νοεμβρίου, 2021

Οι περισσότεροι άνθρωποι εξετάζουν πώς να δημιουργήσουν έγγραφα PDF μέσω των εφαρμογών τους VB, αλλά δεν θέλουν να ξοδέψουν χρήματα για την αγορά του Adobe Acrobat SDK ή άλλων στοιχείων τρίτων. Εάν δεν θέλετε να επενδύσετε χρήματα, υπάρχει μια λύση ανοιχτού κώδικα για εσάς, το SharpPDF. Το SharpPDF είναι μια πολύ ωραία βιβλιοθήκη C # που βασίζεται στο .NET Framework 1.1 και έχει δημιουργήσει ένα 100% συμβατό έγγραφο PDF. Περισσότερες πληροφορίες σχετικά με τη βιβλιοθήκη SharpPDF μπορείτε να βρείτε στη διεύθυνση sharppdf.sourceforge.net.

Οι προγραμματιστές της Visual Basic δεν μπορούν να χρησιμοποιήσουν απευθείας αυτήν τη βιβλιοθήκη. Εάν καταχωρήσετε το SharpPDF και προσπαθήσετε να δημιουργήσετε τη μέθοδο pdfDocument, θα λάβετε ένα σφάλμα. Πώς μπορείτε λοιπόν να επωφεληθείτε από το sharpPDF; Μια επιλογή νομίζω ότι είναι να αλλάξετε τον κώδικα sharpPDF για να ταιριάζει στις ανάγκες σας. Εάν δεν θέλετε να το μπερδέψετε με τον κώδικα SharpPDF, μπορείτε απλώς να δημιουργήσετε μια βιβλιοθήκη συλλογής με το VB.NET καταχωρώντας τη συναρμολόγηση και τυλίγοντας την αναφορά μέσω του έργου VB6.

Για να καταχωρήσετε τη συνάντηση, χρησιμοποιήστε την ακόλουθη εντολή:

regasm / tlb: mywrapper.tlb / codebase mywrapper.dll

και προσθέστε μια αναφορά από το έργο σας VB6 στο mywrapper.tlb

Παράδειγμα κώδικα συσκευασίας που δημιουργήθηκε με το VB.NET:

Εισαγωγές sharpPDF

Δημόσια κλάση clsSharpPDFWrapper

Ιδιωτικό ως m_sTitle Chain

Ιδιωτικό ως συμβολοσειρά m_sAuthor

Ιδιωτικό ως m_sContent Chain

Public WriteOnly Property Title () ως συμβολοσειρά

Ορισμός (τιμή ByVal ως συμβολοσειρά)

m_sTitle = Τιμή

Τέλος σετ

Τελική ιδιοκτησία

Public WriteOnly Property Author () ως συμβολοσειρά

Ορισμός (τιμή ByVal ως συμβολοσειρά)

m_sAuthor = Τιμή

Τέλος σετ

Τελική ιδιοκτησία

Public WriteOnly Property Content () ως συμβολοσειρά

Ορισμός (τιμή ByVal ως συμβολοσειρά)

m_sContent = Τιμή

Τέλος σετ

Τελική ιδιοκτησία

Δημιουργία δημόσιας συνάρτησηςPDFDocument (Επανάληψη)

Σίγαση του αρχείου PDF ως νέο sharpPDF.pdfDocument (m_sTitle, m_sAuthor)

Σβήνω το opPDFPage ως sharpPDF.pdfPage =
oPDF.addPage (sharpPDF.Enumerators.predefinedPageSize.csA4Page)

oPDFPage.addText (m_sContent, 200, 450,

oPDF.getFontReference (Enumerators.predefinedFont.csHelvetica), 20,
pdf Χρώμα. Μαύρος)

oPDF.createPDF (“c: MyPDFDoc.pdf”)

oPDFPage = Τίποτα

oPDF = Τίποτα

Λειτουργία τερματισμού

Τελική τάξη

Δείγμα κωδικού κλήσης Wrapper για το έργο σας VB6:

Dim o ως νέο clsSharpPDFWrapper

o.Title = “Το πρώτο μου έγγραφο PDF”

o.Συγγραφέας = “Θωμάς Καλογιάνη”

o.Content = “Hello World!”

o.sortuPDFDocument

Καλή κωδικοποίηση!

Αφήστε μια απάντηση

Η ηλ. διεύθυνση σας δεν δημοσιεύεται. Τα υποχρεωτικά πεδία σημειώνονται με *