CompressImages - VBS

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

   Hello,

Great Library :-)But have problem with CompressImages.
What's wrong ? Error Code 800A01B6

Dim ClassName
Dim QP

Dim InFileName
Dim OutFileName
Dim lWidth
Dim lHeight

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

Set QP = CreateObject(ClassName)

Call QP.CompressImages(1)

' Load the image that you'd like to convert to PDF
if (QP.AddImageFromFile(InFileName, 0)) = 0 Then WScript.Echo("Erreur chargement image")

' 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) = 0 Then WScript.Echo("Error, file could not be written")

Set QP = Nothing

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Thierry_B Members Profile Find Members Posts Beginner Joined: 23 May 21 Status: Offline Points: 9	Post Options Post Reply Quote Thierry_B Report Post Thanks(0) Quote Reply Topic: CompressImages - VBS Posted: 24 May 21 at 9:33PM
	Hello, Great Library :-) But have problem with CompressImages. What's wrong ? Error Code 800A01B6 Dim ClassName Dim QP Dim InFileName Dim OutFileName Dim lWidth Dim lHeight ClassName = "DebenuPDFLibrary64Lite1114.PDFLibrary" InFileName = "image.jpg" OutFileName = "Testfini.pdf" Set QP = CreateObject(ClassName) *Call QP.CompressImages(1)* ' Load the image that you'd like to convert to PDF if (QP.AddImageFromFile(InFileName, 0)) = 0 Then WScript.Echo("Erreur chargement image") ' 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) = 0 Then WScript.Echo("Error, file could not be written") Set QP = Nothing

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3529	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 25 May 21 at 8:06PM
	Why not asking Google? This has nothing to do with the library i think... It's an error code from vbs. Code Error 800A01B6 – Object doesn't support this property ...
	Cheers, Ingo

Thierry_B Members Profile Find Members Posts Beginner Joined: 23 May 21 Status: Offline Points: 9	Post Options Post Reply Quote Thierry_B Report Post Thanks(0) Quote Reply Posted: 25 May 21 at 10:04PM
	I think CompressImage is not accessible in Quick Library version; just with commercial one.

Sopracenery Members Profile Find Members Posts Team Player Joined: 31 Aug 20 Location: Germany Status: Offline Points: 29	Post Options Post Reply Quote Sopracenery Report Post Thanks(0) Quote Reply Posted: 29 May 21 at 5:48PM
	Right, you can use only the Appendix C functions. These are: Appendix C: Functions available in the Lite Edition AddImageFromFile AddLinkToWeb AddStandardFont DeletePages DocumentCount DrawHTMLText DrawHTMLTextBox DrawImage DrawQRCode DrawText DrawTextBox ExtractPages FindImages GetImageListCount GetImageListItemFormatDesc GetInformation GetPageBox GetPageImageList HasFontResources ImageCount ImageHeight ImageWidth IsLinearized LastErrorCode LoadFromFile MergeDocument NewDocument NewPage NormalizePage PageCount PageHasFontResources PageHeight PageRotation PageWidth RemoveDocument RotatePage SaveToFile SecurityInfo SelectDocument SelectedDocument SelectFont SelectImage SelectPage SetBaseURL SetInformation SetMeasurementUnits SetOrigin SetPageBox SetPageDimensions SetPageLayout SetPageMode SetPageSize SetTextAlign SetTextColor SetTextSize SetTextUnderline

CompressImages - VBS

Code Error 800A01B6 – Object doesn't support this property ...