Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > Sample Code
  New Posts New Posts RSS Feed - DLL Import file for Visual FoxPro
  FAQ FAQ  Forum Search   Register Register  Login Login

DLL Import file for Visual FoxPro

 Post Reply Post Reply
Author
Message
Rowan View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 10 Jan 09
Status: Offline
Points: 398
Post Options Post Options   Thanks (0) Thanks(0)   Quote Rowan Quote  Post ReplyReply Direct Link To This Post Topic: DLL Import file for Visual FoxPro
    Posted: 27 Aug 09 at 11:21AM
A kind Quick PDF Library user has contributed a DLL import file for Visual FoxPro for everyone to use.

The DLL import file can be download from online here.

I haven't tested this, so use it at your own risk. But hopefully it can help a few people.
Back to Top
MTchary View Drop Down
Beginner
Beginner


Joined: 26 Apr 06
Status: Offline
Points: 14
Post Options Post Options   Thanks (0) Thanks(0)   Quote MTchary Quote  Post ReplyReply Direct Link To This Post Posted: 04 Sep 09 at 1:58PM
Here is the code you can use to create PDF file and render some text into it:
 
*-- Declare all functions we are going to use
DECLARE LONG QuickPDFUnlockKey IN QuickPDF.DLL STRING sRegKey
DECLARE LONG QuickPDFDocument IN QuickPDF.DLL
DECLARE LONG QuickPDFTextColor IN QuickPDF.DLL DOUBLE dRed, DOUBLE dGreen, DOUBLE dBlue
DECLARE LONG QuickPDFDrawText IN QuickPDF.DLL DOUBLE dXPos, DOUBLE dYPos, STRING sText
DECLARE LONG QuickPDFSaveToFile IN QuickPDF.DLL STRING sFileName
DECLARE LONG QuickPDFRemoveDocument IN QuickPDF.DLL LONG iDocumentID
 
LOCAL lnResult
LOCAL lnSelectedDocumentID
LOCAL lnRed
LOCAL lnGreen
LOCAL lnBlue
 
*-- First we have to unlock QuickPDF
lnResult = QuickPDFUnlockKey("...INSERT_LICENSE_KEY...")
*-- Create new document
lnSelectedDocumentID = QuickPDFNewDocument()
 
FOR lnCount = 1 TO 10
       lnRed = (lnCount/10)*100
       lnGreen = 0
       lnBlue = (1 - lnCount/10)*100
*-- Set the text color
       lnResult = QuickPDFSetTextColor(lnRed, lnGreen, lnBlue)
       lnResult = QuickPDFDrawText (100, 700 - lnCount * 10, "Hello world")
ENDFOR
 
*-- Save document into file
lnResult = QuickPDFSaveToFile("C:\Documents\TestQuickPDF.PDF")
*-- Remove document instance from memory
lnResult = QuickPDFRemoveDocument(lnSelectedDocumentID)


Edited by Rowan - 04 Sep 09 at 11:38PM
Back to Top
mbabcock View Drop Down
Beginner
Beginner
Avatar

Joined: 16 Aug 19
Location: Maryland
Status: Offline
Points: 16
Post Options Post Options   Thanks (0) Thanks(0)   Quote mbabcock Quote  Post ReplyReply Direct Link To This Post Posted: 09 Mar 21 at 8:21PM
I downloaded the long list of DECLARES from the OP.  There's just 2 lines where you need to get rid of the trailing "AS LONG" for it to compile without errors.  FYI.
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store