Ciao,
ho un problema nello specificare il nome di un file da salvare sul client inviato con uno stream PDF.
Il codice è il seguente, riadattato dal sito Microsoft.
"acrobat.pdf" è un qualsiasi file PDF aggiunto al progetto.
Se utilizzo 'istruzione BLU, il file viene correttamente chiamato "salvataggio.pdf", con quella ROSSA, il file viene chiamato con il nome della pagina e non con la data.........
Qualche idea ?
************************************************** *****************
************************************************** *****************
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim FilePath As String = MapPath("acrobat.pdf")
Dim MyFileName As String = Today.ToString & ".pdf"
'Dim MyFileName As String = "salvataggio.pdf"
doDownloadFile_HTTPS(FilePath, MyFileName)
End Sub
Sub doDownloadFile_HTTPS(ByVal nomeFileD As String, ByVal localNameD As String)
Dim InFile As New System.IO.FileInfo(nomeFileD)
Dim doc As System.IO.FileStream
Dim LungFile, BufLen, BytesLetti As Integer
BufLen = 10 * 1024
Dim DatiIN(BufLen) As Byte
Try
LungFile = InFile.Length
doc = InFile.OpenRead()
Response.Clear()
Response.ContentType = "application/x-msdownload"
Response.AddHeader("content-disposition", "attachment;filename=" & localNameD)
Response.AddHeader("Accept-Header", LungFile.ToString())
Response.AddHeader("Content-Length", LungFile.ToString())
BytesLetti = doc.Read(DatiIN, 0, BufLen)
While (BytesLetti > 0)
Response.OutputStream.Write(DatiIN, 0, BytesLetti)
Response.Flush()
BytesLetti = doc.Read(DatiIN, 0, BufLen)
End While
doc.Close()
Catch exc As Exception
End Try
End Sub
************************************************** *****************
************************************************** *****************
Rispondi quotando
