Web Hosting Talk : Web Hosting Main Forums : Programming Discussion : ASP.net binary stream question

[stormraven]

I have a question I'm hoping someone can help me with. I'm using ASP.net, and I'm trying to return a .PDF file that I get from another server (one located inside the firewall generated by another application).

Here's the code I have so far.. I get something back, but it's very garbled..

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim target As String
        Dim sStream As System.IO.Stream
        Dim buffer(256) As Byte
        Dim count As Integer

        count = 0

        target = "http://someotherserver/someaddress"
        sStream = Get_HTMLContent(target)
        Response.ClearHeaders()

        Response.AddHeader("Content-Disposition", "filename=statement.pdf")
        Response.AddHeader("Content-Type", "application/pdf")
        Response.AddHeader("Charset", "UTF-8")

        count = sStream.Read(buffer, 0, 256)
        Response.BinaryWrite(buffer)

        While (count > 0)
            count = sStream.Read(buffer, 0, 256)
            Response.BinaryWrite(buffer)
        End While

        Response.Flush()

        sStream.Close()

    End Sub

Anybody, anybody?

[ACW]

Is the result opening as a PDF or are you just getting text?

[stormraven]

The result comes through as text (i.e, Adobe doesn't fire up like it should) but it surely isn't human readable.

I came up with some other code that (almost) worked - it fired up Adobe but then said the result was garbled. I'll post it when I get back to work tomorrow.

[stormraven]

Here's the code that at least makes Adobe fire up - in other words, it thinks there's a PDF file there but it's garbled so it won't actually show up. Anyone have any thoughts?

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim target As String
        Dim resp As String
        Dim sStream As System.IO.Stream
        Dim buffer(256) As Byte
        Dim count As Integer

        count = 0

        target = "http://myurl"
        resp = Get_HTMLContent(target)
        Response.ClearHeaders()

        Response.AddHeader("Content-Disposition", "filename=statement.pdf")
        Response.AddHeader("Content-Type", "application/pdf")
        Response.AddHeader("Charset", "UTF-8")

        Response.Write(resp)
        Response.Flush()

    End Sub

    Function Get_HTMLContent(ByVal sURL As String) As String
        Dim sStream As Stream
        Dim URLReq As HttpWebRequest
        Dim URLRes As HttpWebResponse
        Dim reader As StreamReader


        URLReq = WebRequest.Create(sURL)
        URLRes = URLReq.GetResponse()

        sStream = URLRes.GetResponseStream()
        reader = New StreamReader(sStream, System.Text.Encoding.UTF8)
        Return reader.ReadToEnd()

    End Function

[ACW]

Sorry, we tried with no luck.
I'll see if I try again on my spare time.

[stormraven]

I finally got it - the working solution is not much different from the others, but it does involve buffering.

If anyone wants the final solution, send me a PM.

[ACW]

Originally posted by stormraven
I finally got it - the working solution is not much different from the others, but it does involve buffering.

If anyone wants the final solution, send me a PM.

I'm glad you got it working. We had done similar things in the past but would write to the file system - not a browser. We were playing with the buffering when we had to stop.

Please PM me the final solution.

Thanks!