Convertire In Pdf Da Applicazione Asp

[nikasp]

Ciao ragazzi!

Ho un'applicazione asp che permette agli utenti di effettuare l'upload di un file dal client al server.

Ora ho la necessità di convertire questo file in un file PDF e di aggiungere a questo file un watermark, specificato dall'utente stesso nella form di upload.

Ho fatto un bel giro in rete e ho trovato dei tool molto validi, ma per una licenza server chiedono almeno 1000 cucuzze!!!

Conoscete qualche tool gratis o almeno a basso prezzo che possa fare al caso mio?

Aspetto con anZia qualche risposta, grazie in anticipo a tutti!!!

[anubi]

non so se ti va bene ma prova http://www.aspxnet.it/public/default.asp

[sabrina.vallenari]

Io utilizzo APWebGrabber

Praticamente gli si da in pasto l'html che poi lui converte in pdf.

Ti copio qui il codice della funzione nella mia pagina che lo usa:

Function GetUrl(Url)		 'da URL tira fuori codice HTML
 Dim Http
 Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
 Http.open "GET",Url,False,UtenteLogOn, Password
 Http.Send()
 'GetUrl = Http.ResponseText
 GetUrl = Server.URLEncode(Http.ResponseText)
 Set Http = Nothing
End Function


Function SaveFile(DestFile,Content)	  'da codice html salva la pagina html
 Dim File
 Set Fso = Server.CreateObject("Scripting.FileSystemObject")
 Set File = Fso.OpenTextFile(Server.MapPath(DestFile),2,true)
 File.Write URLDecode(Content)  'NB:la pagina chiamante dovrà includere funzioni.asp, in quanto contiene URLDecode
 'File.Write Content
 File.Close()
 Set File = Nothing 
 Set Fso = nothing
End Function


Sub Esporta(path,tipologia,orientamento,tempowait,azione,cartella)
 call crea_nome_univoco(tipologia)	 'creazione nome univoco alla pagina HTML
 mio_html=GetUrl(path)
 call SaveFile("/"&cartella&"/"&nome_univoco&".html",mio_html)
 call GeneraPDF(orientamento,tempowait,azione,cartella)
 call EliminaFile(cartella)
end Sub

function GeneraPDF(orientamento,tempowait,azione,cartella)
 IPAddr = "192.168.0.17"
 URL = "[url="http://192.168.0.17/"]http://192.168.0.17/"&cartella&"/"&nome_univoco&".html[/url]" '27/10/2006  
 Set WG = CreateObject("APWebGrabber.Object")
 Set SV = CreateObject("APServer.Object")
 SV.NewDocumentName = nome_univoco & ".PDF"		 'nome pdf
 SV.OutputDirectory = "[url="file://\\192.168.0.17\Inetpub\wwwroot\"]\\192.168.0.17\Inetpub\wwwroot\"&cartella[/url]  'cartella di creazione del pdf:
 SV.Orientation = orientamento			'1 VERTICALE, 2 ORIZZONTALE
 WG.URL = URL
 WG.EngineToUse = 1		 '1 for IE
 'if azione = "mail" or azione="tutte" then
 ' WG.SMTPServer = "192.168.0.14"
 ' WG.EMailTo = "<[email="rturati@cidiverte.it"]rturati@cidiverte.it[/email]>"
 ' WG.EmailText = "In allegato il documento da Voi richiesto. Cordiali Saluti."
 ' WG.EmailNameFrom = "CIDIVERTE Spa"
 ' WG.EMailIDFrom = "<<A href=">cidiverte@cidiverte.it>"
 ' WG.EMailSubject = "Documento PDF richiesto"
 'end if
 WG.Prt2DiskSettings = SV.ToString()
 r = WG.DoPrint(IPAddr, 64320)
 r = WG.Wait(IPAddr, 64320, tempowait, ") 
 Call SV.FromString(WG.Prt2DiskSettings)

 r = WG.CleanUp(IPAddr, 64320)
 set SV = Nothing
 Set WG = Nothing
end function