Debenu Quick PDF Library - PDF SDK Community Forum : VBscript .LoadFromFile do nothing http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 04 Apr 2026 19:15:27 +0000 Mon, 24 May 2021 20:07:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3919 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[VBscript .LoadFromFile do nothing : Thanks ]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15741.html#15741 Author: Thierry_B
Subject: 3919
Posted: 24 May 21 at 8:07PM

Thanks

]]> Mon, 24 May 2021 20:07:47 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15741.html#15741 <![CDATA[VBscript .LoadFromFile do nothing : Hi Thierry,the function LastErrorCode...]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15740.html#15740 Author: Ingo
Subject: 3919
Posted: 24 May 21 at 1:13PM

Hi Thierry,

the function LastErrorCode always returns with a more detailed error code from the last called function...
https://www.debenu.com/docs/pdf_library_reference/LastErrorCode.php
directly after Load... should have return with error code 401 or 408 and then you would have known ;-)

Cheers and welcome here,
Ingo

]]> Mon, 24 May 2021 13:13:31 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15740.html#15740 <![CDATA[VBscript .LoadFromFile do nothing : Ok it seems running.I changed...]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15739.html#15739 Author: Thierry_B
Subject: 3919
Posted: 24 May 21 at 9:40AM

Ok it seems running.
I changed main folder (p:\...) to C:\...
P folder is a "space storage" on Windows Server 2012

Thanks for helping
]]> Mon, 24 May 2021 09:40:45 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15739.html#15739 <![CDATA[VBscript .LoadFromFile do nothing : Ok, omit &#034;.pdf&#034; in my...]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15738.html#15738 Author: Thierry_B
Subject: 3919
Posted: 24 May 21 at 9:12AM

Ok, omit ".pdf" in my example.

Here is the function called by hMailServer (EventHandlers):

Function ImageToPDF(FileName, ExtFileName, SaveFolder)
' Converti les images en PDF
' JPG/JPEG/TIFF/TIF  EPS à tester?
' Retourne True si Ok
' Retourne False si erreur
Dim ClassName
Dim QP
Dim OutFileName
Dim lWidth
Dim lHeight
ClassName = "DebenuPDFLibraryLite1114.PDFLibrary"
Set QP = CreateObject(ClassName)
ImageToPDF = False
' Load the image that you'd like to convert to PDF
If (QP.AddImageFromFile(FileName, 0)) = 1 Then

' Get the width and height of the image
lWidth = QP.ImageWidth()
lHeight = QP.ImageHeight()

' Reformat the size of the page in the selected document 
Call QP.SetPageDimensions(lWidth, lHeight)

' Draw the image onto the page using the specified width/height
Call QP.DrawImage(0, lHeight, lWidth, lHeight)

' Save the new PDF to disk
OutFileName = SaveFolder & GetBaseFile(FileName) & "." & "pdf"
Call QP.SaveToFile(OutFileName)
ImageToPDF = True
End If
Set QP = Nothing
End Function

AddImageFromFile don't load file and retour code error is 0
File name is correct : "C:\MailServerAttachements\XXXXX@XXXX.cc\2021\20210524100511001info@XXXX.be.image.jpg

Any idea ?
]]> Mon, 24 May 2021 09:12:07 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15738.html#15738 <![CDATA[VBscript .LoadFromFile do nothing : Thanks :-) ]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15737.html#15737 Author: Thierry_B
Subject: 3919
Posted: 24 May 21 at 8:41AM

Thanks :-)]]> Mon, 24 May 2021 08:41:46 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15737.html#15737 <![CDATA[VBscript .LoadFromFile do nothing : Hi Thierry,Please check first...]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15736.html#15736 Author: Sopracenery
Subject: 3919
Posted: 23 May 21 at 11:28PM

Hi Thierry,

Please check first your filename.

testPDF

looks not like a PDF file. Try 

test.PDF  

and then read out WScript.Echo(QP.LastErrorCode)

It returns 0 with „testPDF“ and it returns 401 with „test.PDF“ when File Not Found.



Edited by Sopracenery - 24 May 21 at 8:26AM]]> Sun, 23 May 2021 23:28:11 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15736.html#15736 <![CDATA[VBscript .LoadFromFile do nothing : Hello,Sorry for bad enghish, I&#039;m...]]> http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15734.html#15734 Author: Thierry_B
Subject: 3919
Posted: 23 May 21 at 11:24AM

Hello,

Sorry for bad enghish, I'm French
I try to load un PDF file with Lite Library but always receive 0 result (file not loaded).
I tried with full path and without, with differents files.  Always same result.
Any ideas ?

Thanks
Thierry


' Debenu Quick PDF Library Lite Sample

WScript.Echo("Debenu Quick PDF Library Lite - Hello World Sample")

Dim ClassName
Dim QP

Dim InFileName
Dim OutFileName
Dim lWidth
Dim lHeight

ClassName = "DebenuPDFLibrary64Lite1114.PDFLibrary"
InFileName = "image.png"
OutFileName = "Testfini.pdf"

Set QP = CreateObject(ClassName)


' Load the PDF that you want to add the image to
if (QP.LoadFromFile("testPDF", "")) = 0 Then WScript.Echo("Erreur chargement PDF")

' Load the image that you'd like to convert to PDF
Call QP.AddImageFromFile(InFileName, 0)

' Get the width and height of the image
lWidth = QP.ImageWidth()
lHeight = QP.ImageHeight()

' Reformat the size of the page in the selected document 
Call QP.SetPageDimensions(lWidth, lHeight)

' Draw the image onto the page using the specified width/height
Call QP.DrawImage(0, lHeight, lWidth, lHeight)

' Save the new PDF to disk
If QP.SaveToFile(OutFileName) = 1 Then
WScript.Echo("File " + OutFileName + " written successfully")
Else
WScript.Echo("Error, file could not be written")
End If

Set QP = Nothing
WScript.Sleep(9000)
]]> Sun, 23 May 2021 11:24:29 +0000 http://www.quickpdf.org/forum/vbscript-loadfromfile-do-nothing_topic3919_post15734.html#15734