Conversione di immagine *.JPEG a file PDF usando ASP

nota bene: lo script nella versione "copia e incolla" che segue, presuppone permessi di scrittura lato server .. in paritcolare, è la root o cartella di destinazione del nuovo documento PDF che deve possedere i permessi di scrittura [chmod "666" - "777"] ..e l' utilizzo è di assoluta facilità: copia inclolla e salva come *.asp


CODICE:


<%
Set Pdf = Server.CreateObject("Persits.Pdf")

' Create empty document
Set Doc = Pdf.CreateDocument

' Add a new page
Set Page = Doc.Pages.Add

' Open image
Set Image = Doc.OpenImage( Server.MapPath( "link_16.9.jpg") )

' Create empty param object
Set Param = Pdf.CreateParam

For i = 1 To 3
Param("x") = (Page.Width - Image.Width / i) / 2
Param("y") = Page.Height - Image.Height * i / 2 - 200
Param("ScaleX") = 1 / i
Param("ScaleY") = 1 / i
Page.Canvas.DrawImage Image, Param
Next

' Save document, the Save method returns generated file name
Filename = Doc.Save( Server.MapPath("/public/Linkjpg-asp.pdf"), False )

Response.Write "Fatto, apri il tuo file pdf <A HREF=/public/" & Filename & ">qui</A>"
%>