scarica pdf

[jonny83]

ciao !

devo creare un link per scaricare un documento pdf,
Quando però lancio lo scaricamento il browser mi apre il pdf nella pagina.

C'è un modo per lanciare il download senza visualizzzare il pdf nella pagina

Grazie ciao!

[AleX ZeTa]

dipende esclusivamente dalle impostazioni del browser di chi vede il tuo sito.

puoi zippare il pdf: in questo caso chiederà il salvataggio.

[deivnet]

Per poter far scaricare il file PDF dovresti usare uno script ASP o PHP che legga il file dal disco e ritorni "stream" dei dati verso il server, modificando gli header della pagina HTTP.

Semplicemente linkando il file non è possibile scaricarlo senza aprirlo.

[JoeP]

e come si fa 'sto lavoro qui?

serve anche a me, così, inviece di scrivere un nuovo topic ho ripescato questo qua...

[deivnet]

Questa è la funzione ASP che fa fare il download diretto
accetta due parametri il percorso completo del file d:\test\test.pdf e il nome con cui si vuole salvare il file Prova1.pdf.

Buon divertimento

'================================================= =====
' Funzione che effettua il download di un file da filesystem
'================================================= =====
Sub downloadFile(strFilename,saveas)

dim s,fso,f,intFilelength, binaryData

' pulisco il buffer
Response.Buffer = True
Response.Clear

' creo lo stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open

' imposto il binario
s.Type = 1

' carico il file
on error resume next

' controllo se esiste il file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<font style=""font-face : Verdana; font-size : 8pt"">Errore: il file " & strFilename & " non esiste.</font>")
Response.End
end if


' recupero la lunghezza del file
s.LoadFromFile(strFilename)
intFilelength = s.Size

if err then
Response.Write("<h1>Errore: </h1>" & err.Description & "

")
Response.End
end if

' Manda l'header al browser
if lcase(Right(saveas,3)) = "pdf" then
Response.AddHeader "Content-Disposition", "attachment;filename=" & saveas
else
Response.AddHeader "Content-Disposition", "filename=" & saveas
end if

Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/save; name=" & saveas
Response.AddHeader "Pragma", "no-cache"

'response.write binaryData
binaryData = s.Read

' chiudo tutto
s.Close
Set s = Nothing


' scrivo sul browser il file
Response.BinaryWrite binaryData

Response.Flush
Response.End


End Sub

[JoeP]

Devo lavorare in PHP! Il mio server non supporta l'ASP!

Rispondete qui o chiedo nella sezione del PHP?

[k_abuto]

scusa deivnet,come richiamo questa sub nel mio link?
sento che è una domanda niubba...

[k_abuto]

up