none
Descarga de PDF bajo HTTPS RRS feed

  • Pregunta

  • Buenas, el problema es el siguiente:

     

    Logré hacer que un usuario pueda descargar un archivo PDF, mostrándole el cuadro de dialogo de "Abrir", "Guardar", "Cancelar", y funciona perfecto. El problema surgió cuando el sitio es accedido a través de https (SSL).

     

    Les aclaro que estoy utilizando ASP 3.0 y no puedo migrar a ASP.NET

     

    Cuando lo quiero descargar desde http muestra:

            Nombre de Archivo: Formulario.pdf

            Tipo: Adobe Acrobat Document, 10,8 KB

           

     

    Pero cuando lo quiero descargar desde https muestra:

            Nombre de Archivo: DescargarFormulario_asp

            Tipo: Adobe PDF Reader, 10,8 KB

     

    Acá les dejo el código fuente que utilizo:

     

    strFileName = "Formulario.pdf"

    strFilePath = server.MapPath("/scripts/anexos/Formulario.pdf")

     

    Set objStream = Server.CreateObject("ADODB.Stream")

    objStream.Open

    objStream.Type = adTypeBinary

    objStream.LoadFromFile strFilePath

     

    Response.Clear

    Response.AddHeader "Accept-Header", Cstr(objStream.Size)

    Response.AddHeader "Accept-Ranges", "bytes"

    Response.AddHeader "Content-Disposition", "attachment;filename=" & strFileName

    Response.AddHeader "Content-Length", CStr(objStream.Size)

    Response.ContentType = "application/pdf"

     

    Response.Flush

    Response.BinaryWrite objStream.Read

    Response.Flush

     

    objStream.Close

    Set objStream = Nothing

     

     

    Espero puedan decirme qué debo cambiar para que la descarga funcione correctamente bajo HTTPS.

     

    Desde ya, muchas gracias

    jueves, 29 de marzo de 2007 14:33

Respuestas

  • Gente:

     

    Antes que nada mil gracias a todos los que intentaron ayudarme, pero al final lo pude solucionar. El código es el siguiente:

     

    Response.Buffer = True

    Const adTypeBinary = 1

     

    Dim strFileName

    Dim strFilePath

    Dim objStream

    strFileName = "F102.pdf"

    strFilePath = Server.MapPath("\scripts\anexos") & "\" & strFileName

     

    Set objStream = Server.CreateObject("ADODB.Stream")

        objStream.Type = adTypeBinary

        objStream.Open

        objStream.LoadFromFile strFilePath

     

        Response.AddHeader "Content-Disposition", "Attachment; filename=" & strFileName

        Response.ContentType = "application/pdf"

        Response.BinaryWrite objStream.Read

     

        objStream.Close

    Set objStream = Nothing

    martes, 3 de abril de 2007 13:23

Todas las respuestas

  • Hola Matias:

     

    Mira este artículo a ver si pueden ir los tiros po aquí:

     

    http://www.jasoft.org/blog/PermaLink,guid,7f43f12f-acf1-4026-95e6-91e0e52cc5b7.aspx

     

    Salu2 y me cuentas

    viernes, 30 de marzo de 2007 7:30
  • Gente:

     

    Antes que nada mil gracias a todos los que intentaron ayudarme, pero al final lo pude solucionar. El código es el siguiente:

     

    Response.Buffer = True

    Const adTypeBinary = 1

     

    Dim strFileName

    Dim strFilePath

    Dim objStream

    strFileName = "F102.pdf"

    strFilePath = Server.MapPath("\scripts\anexos") & "\" & strFileName

     

    Set objStream = Server.CreateObject("ADODB.Stream")

        objStream.Type = adTypeBinary

        objStream.Open

        objStream.LoadFromFile strFilePath

     

        Response.AddHeader "Content-Disposition", "Attachment; filename=" & strFileName

        Response.ContentType = "application/pdf"

        Response.BinaryWrite objStream.Read

     

        objStream.Close

    Set objStream = Nothing

    martes, 3 de abril de 2007 13:23
  • Hola Matías:

     

    Marca tu respuesta como correcta y así otros podrán aprovecharla.

     

    Un saludo

    martes, 3 de abril de 2007 15:16
  • quiero descargar el pdf
    jueves, 10 de mayo de 2007 18:37