DLL Import file for Visual FoxPro

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Rowan Members Profile Find Members Posts Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398	Post Options Post Reply Quote Rowan Report Post Thanks(0) Quote Reply 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.

MTchary Members Profile Find Members Posts Beginner Joined: 26 Apr 06 Status: Offline Points: 14	Post Options Post Reply Quote MTchary Report Post Thanks(0) Quote Reply 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

mbabcock Members Profile Find Members Posts Beginner Joined: 16 Aug 19 Location: Maryland Status: Offline Points: 18	Post Options Post Reply Quote mbabcock Report Post Thanks(0) Quote Reply 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.