Conversione di immagine *.TIFF 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
' Open image from file
Set Image = Doc.OpenImage(Server.MapPath( "link.tif" ) )
' Add empty page. Page size is based on resolution and size of image
Width = Image.Width * 72 / Image.ResolutionX
Height = Image.Height * 72 / Image.ResolutionY
Set Page = Doc.Pages.Add( Width, Height )
' Draw image
Page.Canvas.DrawImage Image, "x=0, y=0"
' Save document, the Save method returns generated file name
Filename = Doc.Save( Server.MapPath("/public/convert-asp.pdf"), False )
Response.Write "Fatto, apri il file da <A TARGET=""_new"" HREF=/public/" & Filename & ">QUI</A>"
%>
|
