Unlock

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

   Hello,

If I want to unlock the QPDF with my key, I get an error message and a crash:

Runtime Error 217 at 13D0DC31

Here is the Source of VB6:

	Dim LizenzKey As String

 	LizenzKey = "ji3xxxxxxxxxxxxxy"  
	Set QPdf = New DebenuPDFLibraryAX1312.PDFLibrary

	If QPdf.UnlockKey(LizenzKey) = 0 Then Exit Sub   '*here is crashing!

Please help me
Thanks
Chris

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Chris62 Members Profile Find Members Posts Beginner Joined: 09 Nov 23 Location: Germanay Status: Offline Points: 3	Post Options Post Reply Quote Chris62 Report Post Thanks(0) Quote Reply Topic: Unlock Posted: 09 Nov 23 at 11:34AM
	Hello, If I want to unlock the QPDF with my key, I get an error message and a crash: Runtime Error 217 at 13D0DC31 Here is the Source of VB6: Dim LizenzKey As String LizenzKey = "ji3xxxxxxxxxxxxxy" Set QPdf = New DebenuPDFLibraryAX1312.PDFLibrary If QPdf.UnlockKey(LizenzKey) = 0 Then Exit Sub '*here is crashing! Please help me Thanks Chris

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 10 Nov 23 at 5:39PM
	Hi Chris :) Here's a complete sample perhaps this will give you an idea how to solve this issue. Cheers and welcome here, Ingo Dim ClassName Dim LicenseKey Dim FileName ClassName = "DebenuPDFLibraryAX1011.PDFLibrary" LicenseKey = "..." 'SET YOUR LICENSE KEY HERE... FileName = "c:\hello-world.pdf" Dim QP Dim Result Set QP = CreateObject(ClassName) Result = QP.UnlockKey(LicenseKey) If Result = 1 Then MsgBox "Library version: " + QP.LibraryVersion MsgBox (QP.LicenseInfo) Call QP.DrawText(100, 500, "Hello world from Visual Basic 6.0.") If QP.SaveToFile(FileName) = 1 Then MsgBox "File " + FileName + " written successfully." Else MsgBox "Error, file could not be written." End If Else MsgBox "Invalid license key. Please set your license key by editing this file." End If ---------- Once you've downloaded and installed Quick PDF Library please register (using regsvr32.exe) the file shown below. * DebenuPDFLibraryAX1011.dll By default located at: C:\Program Files\Quick PDF Library\ActiveX\DebenuPDFLibraryAX1011.dll Note: if you're using 64-bit Windows then look in the "Program Files (x86)" directory. Edited by Ingo - 10 Nov 23 at 5:41PM
	Cheers, Ingo

Chris62 Members Profile Find Members Posts Beginner Joined: 09 Nov 23 Location: Germanay Status: Offline Points: 3	Post Options Post Reply Quote Chris62 Report Post Thanks(0) Quote Reply Posted: 12 Nov 23 at 4:46PM
	Hello, thank you very much for your help :-) Great I'm glad that there are still competent people who help others. I appreciate very much. I solved the problem: The AXDLL was registered in the system directory (SysWOW64). That's why it didn't work in the VB6 IDE, where the DLL must be in the program directory? As a compiled EXE it works everywhere, except within the IDE! Can I actually buy newer versions of DEBENU ActiveX? Or has all further development stopped? Thank you Chris

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 13 Nov 23 at 9:02PM
	Seems to me that you've made the first big steps into development - congrats ;-) You won't be able to buy newer versions of the library since beginning of 2023. Debenu - the publishers of QuickPDF - were merged into the Foxit-team. First time development was still active... support was less active... now Foxit is concentrating entirely on its own products. The aim was probably to remove the competitor from the market. Anyway... version 13.12 is already a stable version with much functionalities and it depends on your needs if it's usefull for you.
	Cheers, Ingo