Anyone see the error?

[Scott Meddows]

I'm trying to serve a PDF file from a webpage so it will load in the
browser.. Can anyone tell what is wrong with this code? I've tried
everything

Thanks

Dim httpwreq As System.Net.Http WebRequest =
CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr
ationReport.pdf "), System.Net.Http WebRequest)
Dim httpWResp As System.Net.Http WebResponse =
CType(httpwreq. GetResponse, System.Net.Http WebResponse)
Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
Dim encode As System.Text.Enc oding =
System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readstream As System.IO.Strea mReader = New
System.IO.Strea mReader(receive Stream, encode)
Dim read(256) As Char
Dim count As Integer = readstream.Read (read, 0, 256)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der("content-length", httpWResp.Conte ntLength.ToStri ng)
Response.AddHea der("content-disposition", "filename=repor t.PDF")
While (count > 0)
'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d))
Dim str As String = New String(read, 0, count)
Response.Write( str) count = readstream.Read (read, 0, 256)
End While
'Response.Flush ()
httpWResp.Close ()
readstream.Clos e()
'Response.End()

This is the only code in my page. Can anyone help me out? Thanks

[bruce barker]

as you are copying a binary stream, you should use a binary reader and a
binary writer.

-- bruce (sqlwork.com)
"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in message
news:uA******** ******@TK2MSFTN GP11.phx.gbl...

I'm trying to serve a PDF file from a webpage so it will load in the
browser.. Can anyone tell what is wrong with this code? I've tried
everything

Thanks

Dim httpwreq As System.Net.Http WebRequest =
CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr ationReport.pdf "), System.Net.Http WebRequest)
Dim httpWResp As System.Net.Http WebResponse =
CType(httpwreq. GetResponse, System.Net.Http WebResponse)
Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
Dim encode As System.Text.Enc oding =
System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readstream As System.IO.Strea mReader = New
System.IO.Strea mReader(receive Stream, encode)
Dim read(256) As Char
Dim count As Integer = readstream.Read (read, 0, 256)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der("content-length", httpWResp.Conte ntLength.ToStri ng)
Response.AddHea der("content-disposition", "filename=repor t.PDF")
While (count > 0)
'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d))
Dim str As String = New String(read, 0, count)
Response.Write( str) count = readstream.Read (read, 0, 256)
End While
'Response.Flush ()
httpWResp.Close ()
readstream.Clos e()
'Response.End()

This is the only code in my page. Can anyone help me out? Thanks

[john farrow]

Given you have the PDF in 'receiveStream' you can copy it to the response
using something like this, avoiding conversion to UTF-8 or strings but of
which will corrupt the PDF file. This is C# but will work similarly in VB.
byte[] buffer = new byte[1024];

int bytes = 0;

while( ( bytes = receiveStream.R ead( buffer, 0,
buffer.Length ) ) > 0 ) {
Response.Write( buffer, 0, bytes );
}

Response.Flush

Regards

John

Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand
phone [phone] fax [phone]
web http://www.xmlpdf.com

"bruce barker" <no***********@ safeco.com> wrote in message
news:ej******** *******@tk2msft ngp13.phx.gbl.. .

as you are copying a binary stream, you should use a binary reader and a
binary writer.

-- bruce (sqlwork.com)
"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in message
news:uA******** ******@TK2MSFTN GP11.phx.gbl...

I'm trying to serve a PDF file from a webpage so it will load in the
browser.. Can anyone tell what is wrong with this code? I've tried
everything

Thanks

Dim httpwreq As System.Net.Http WebRequest =

CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr

ationReport.pdf "), System.Net.Http WebRequest)
Dim httpWResp As System.Net.Http WebResponse =
CType(httpwreq. GetResponse, System.Net.Http WebResponse)
Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
Dim encode As System.Text.Enc oding =
System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readstream As System.IO.Strea mReader = New
System.IO.Strea mReader(receive Stream, encode)
Dim read(256) As Char
Dim count As Integer = readstream.Read (read, 0, 256)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der("content-length", httpWResp.Conte ntLength.ToStri ng) Response.AddHea der("content-disposition", "filename=repor t.PDF")
While (count > 0)
'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d))
Dim str As String = New String(read, 0, count)
Response.Write( str) count = readstream.Read (read, 0, 256)
End While
'Response.Flush ()
httpWResp.Close ()
readstream.Clos e()
'Response.End()

This is the only code in my page. Can anyone help me out? Thanks

[Scott Meddows]

How can I convert that array of bytes into an array of char?

"john farrow" <vi*******@xtra .co.nz> wrote in message
news:eq******** ******@TK2MSFTN GP10.phx.gbl...

Given you have the PDF in 'receiveStream' you can copy it to the response
using something like this, avoiding conversion to UTF-8 or strings but of
which will corrupt the PDF file. This is C# but will work similarly in VB.

byte[] buffer = new byte[1024];

int bytes = 0;

while( ( bytes = receiveStream.R ead( buffer, 0,
buffer.Length ) ) > 0 ) {
Response.Write( buffer, 0, bytes );
}

Response.Flush

Regards

John

Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand
phone [phone] fax [phone]
web http://www.xmlpdf.com

"bruce barker" <no***********@ safeco.com> wrote in message
news:ej******** *******@tk2msft ngp13.phx.gbl.. .

as you are copying a binary stream, you should use a binary reader and a
binary writer.

-- bruce (sqlwork.com)
"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in message

news:uA******** ******@TK2MSFTN GP11.phx.gbl...

I'm trying to serve a PDF file from a webpage so it will load in the
browser.. Can anyone tell what is wrong with this code? I've tried
everything

Thanks

Dim httpwreq As System.Net.Http WebRequest =

CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr

ationReport.pdf "), System.Net.Http WebRequest)
Dim httpWResp As System.Net.Http WebResponse =
CType(httpwreq. GetResponse, System.Net.Http WebResponse)
Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
Dim encode As System.Text.Enc oding =
System.Text.Enc oding.GetEncodi ng("utf-8")
Dim readstream As System.IO.Strea mReader = New
System.IO.Strea mReader(receive Stream, encode)
Dim read(256) As Char
Dim count As Integer = readstream.Read (read, 0, 256)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der("content-length", httpWResp.Conte ntLength.ToStri ng) Response.AddHea der("content-disposition", "filename=repor t.PDF")
While (count > 0)
'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d)) Dim str As String = New String(read, 0, count)
Response.Write( str) count = readstream.Read (read, 0, 256)
End While
'Response.Flush ()
httpWResp.Close ()
readstream.Clos e()
'Response.End()

This is the only code in my page. Can anyone help me out? Thanks

[mikeb]

Scott Meddows wrote:

How can I convert that array of bytes into an array of char?
You don't want to do this - you want to write the raw bytes.

Use the Response.Output Stream property to get a stream that you can
write byte arrays to.

"john farrow" <vi*******@xtra .co.nz> wrote in message
news:eq******** ******@TK2MSFTN GP10.phx.gbl...

Given you have the PDF in 'receiveStream' you can copy it to the response
using something like this, avoiding conversion to UTF-8 or strings but of
which will corrupt the PDF file. This is C# but will work similarly in

VB.

byte[] buffer = new byte[1024];

int bytes = 0;

while( ( bytes = receiveStream.R ead( buffer, 0,
buffer.Leng th ) ) > 0 ) {
Response.Write( buffer, 0, bytes );
}

Response.Flush

Regards

John

Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand
phone [phone] fax [phone]
web http://www.xmlpdf.com

"bruce barker" <no***********@ safeco.com> wrote in message
news:ej****** *********@tk2ms ftngp13.phx.gbl ...

as you are copying a binary stream, you should use a binary reader and a
binary writer.

-- bruce (sqlwork.com)
"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in
message
news:uA***** *********@TK2MS FTNGP11.phx.gbl ...

I'm trying to serve a PDF file from a webpage so it will load in the
browser.. Can anyone tell what is wrong with this code? I've tried
everythin g

Thanks

Dim httpwreq As System.Net.Http WebRequest =

CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr
ationReport .pdf"), System.Net.Http WebRequest)
Dim httpWResp As System.Net.Http WebResponse =
CType(httpw req.GetResponse , System.Net.Http WebResponse)
Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
Dim encode As System.Text.Enc oding =
System.Text .Encoding.GetEn coding("utf-8")
Dim readstream As System.IO.Strea mReader = New
System.IO.S treamReader(rec eiveStream, encode)
Dim read(256) As Char
Dim count As Integer = readstream.Read (read, 0, 256)
Response.Clear( )
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
Response.AddHea der("content-length",

httpWResp.Con tentLength.ToSt ring)

Response.AddHea der("content-disposition", "filename=repor t.PDF")
While (count > 0)

'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d))
Dim str As String = New String(read, 0, count)
Response.Write( str) count = readstream.Read (read, 0, 256)
End While
'Response.Flush ()
httpWResp.Close ()
readstream.Clos e()
'Response.End()

This is the only code in my page. Can anyone help me out? Thanks

--
mikeb

[Scott Meddows]

Response.write only accepts an array of char :(

I'd use response.binary write BUT the buffer doesn't always fill up to
capacity...

"mikeb" <ma************ @mailnull.com> wrote in message
news:eA******** ******@TK2MSFTN GP11.phx.gbl...

Scott Meddows wrote:

How can I convert that array of bytes into an array of char?

You don't want to do this - you want to write the raw bytes.

Use the Response.Output Stream property to get a stream that you can
write byte arrays to.

"john farrow" <vi*******@xtra .co.nz> wrote in message
news:eq******** ******@TK2MSFTN GP10.phx.gbl...

Given you have the PDF in 'receiveStream' you can copy it to the responseusing something like this, avoiding conversion to UTF-8 or strings but ofwhich will corrupt the PDF file. This is C# but will work similarly in

VB.

byte[] buffer = new byte[1024];

int bytes = 0;

while( ( bytes = receiveStream.R ead( buffer, 0,
buffer.Leng th ) ) > 0 ) {
Response.Write( buffer, 0, bytes );
}

Response.Flush

Regards

John

Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand
phone [phone] fax [phone]
web http://www.xmlpdf.com

"bruce barker" <no***********@ safeco.com> wrote in message
news:ej****** *********@tk2ms ftngp13.phx.gbl ...

as you are copying a binary stream, you should use a binary reader and abinary writer.

-- bruce (sqlwork.com)
"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in

message

news:uA***** *********@TK2MS FTNGP11.phx.gbl ...

>I'm trying to serve a PDF file from a webpage so it will load in the
>browser.. Can anyone tell what is wrong with this code? I've tried
>everythin g
>
>Thanks
>
> Dim httpwreq As System.Net.Http WebRequest =
>

CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr

>ationReport .pdf"), System.Net.Http WebRequest)
> Dim httpWResp As System.Net.Http WebResponse =
>CType(httpw req.GetResponse , System.Net.Http WebResponse)
> Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
> Dim encode As System.Text.Enc oding =
>System.Text .Encoding.GetEn coding("utf-8")
> Dim readstream As System.IO.Strea mReader = New
>System.IO.S treamReader(rec eiveStream, encode)
> Dim read(256) As Char
> Dim count As Integer = readstream.Read (read, 0, 256)
> Response.Clear( )
> Response.ClearC ontent()
> Response.ClearH eaders()
> Response.Conten tType = "applicatio n/pdf"
> Response.AddHea der("content-length",

httpWResp.Con tentLength.ToSt ring)

> Response.AddHea der("content-disposition", "filename=repor t.PDF")
> While (count > 0)
>

'Response.Binar yWrite(System.T ext.Encoding.UT F8.GetBytes(rea d))

> Dim str As String = New String(read, 0, count)
> Response.Write( str) count = readstream.Read (read, 0, 256)
> End While
> 'Response.Flush ()
> httpWResp.Close ()
> readstream.Clos e()
> 'Response.End()
>
>This is the only code in my page. Can anyone help me out? Thanks
>
>

--
mikeb

[mikeb]

Scott Meddows wrote:

Response.write only accepts an array of char :(

I'd use response.binary write BUT the buffer doesn't always fill up to
capacity...

Assuming buffer is a byte array containing the data you want written,
and bytes is the number of valid bytes in the array (ie., the array is
not filled):

Response.Output Stream.Write( buffer, 0, bytes)

or
byte [] data = new byte [bytes];
Array.Copy( buffer, data, bytes);
Response.Binary Write( data);

or something similar.
"mikeb" <ma************ @mailnull.com> wrote in message
news:eA******** ******@TK2MSFTN GP11.phx.gbl...

Scott Meddows wrote:

How can I convert that array of bytes into an array of char?

You don't want to do this - you want to write the raw bytes.

Use the Response.Output Stream property to get a stream that you can
write byte arrays to.

"john farrow" <vi*******@xtra .co.nz> wrote in message
news:eq***** *********@TK2MS FTNGP10.phx.gbl ...
Given you have the PDF in 'receiveStream' you can copy it to the
response
using something like this, avoiding conversion to UTF-8 or strings but
of
which will corrupt the PDF file. This is C# but will work similarly in

VB.
byte[] buffer = new byte[1024];

int bytes = 0;

while( ( bytes = receiveStream.R ead( buffer, 0,
buffer.Leng th ) ) > 0 ) {
Response.Write( buffer, 0, bytes );
}

Response.Flush

Regards

John

Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand
phone [phone] fax [phone]
web http://www.xmlpdf.com

"bruce barker" <no***********@ safeco.com> wrote in message
news:ej**** ***********@tk2 msftngp13.phx.g bl...
>as you are copying a binary stream, you should use a binary reader and
a
binary writer.
>
>-- bruce (sqlwork.com)
>
>
>"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in

message
>news:uA*** ***********@TK2 MSFTNGP11.phx.g bl...
>
>
>>I'm trying to serve a PDF file from a webpage so it will load in the
>>browser .. Can anyone tell what is wrong with this code? I've tried
>>everythin g
>>
>>Thanks
>>
>> Dim httpwreq As System.Net.Http WebRequest =
>>
> CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr
ationRepo rt.pdf"), System.Net.Http WebRequest)
>> Dim httpWResp As System.Net.Http WebResponse =
>>CType(htt pwreq.GetRespon se, System.Net.Http WebResponse)
>> Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
>> Dim encode As System.Text.Enc oding =
>>System.Te xt.Encoding.Get Encoding("utf-8")
>> Dim readstream As System.IO.Strea mReader = New
>>System.IO .StreamReader(r eceiveStream, encode)
>> Dim read(256) As Char
>> Dim count As Integer = readstream.Read (read, 0, 256)
>> Response.Clear( )
>> Response.ClearC ontent()
>> Response.ClearH eaders()
>> Response.Conten tType = "applicatio n/pdf"
>> Response.AddHea der("content-length",

httpWResp.C ontentLength.To String)
>> Response.AddHea der("content-disposition", "filename=repor t.PDF")
>> While (count > 0)
>>

'Response.Bi naryWrite(Syste m.Text.Encoding .UTF8.GetBytes( read))
>> Dim str As String = New String(read, 0, count)
>> Response.Write( str) count = readstream.Read (read, 0, 256)
>> End While
>> 'Response.Flush ()
>> httpWResp.Close ()
>> readstream.Clos e()
>> 'Response.End()
>>
>>This is the only code in my page. Can anyone help me out? Thanks
>>
>>
>
>

--
mikeb

--
mikeb

[Scott Meddows]

YOU ARE THE MAN!!!

Response.Output Stream.Write( buffer, 0, bytes) was the ticket.

I was just using response.write.

Thank you VERY much!!! That was the missing piece.

THANK!!!!!!!!!! !!!!!!!

You kept me from working this weekend :)

"mikeb" <ma************ @mailnull.com> wrote in message
news:O2******** ******@TK2MSFTN GP11.phx.gbl...

Scott Meddows wrote:

Response.write only accepts an array of char :(

I'd use response.binary write BUT the buffer doesn't always fill up to
capacity...

Assuming buffer is a byte array containing the data you want written,
and bytes is the number of valid bytes in the array (ie., the array is
not filled):

Response.Output Stream.Write( buffer, 0, bytes)

or
byte [] data = new byte [bytes];
Array.Copy( buffer, data, bytes);
Response.Binary Write( data);

or something similar.

"mikeb" <ma************ @mailnull.com> wrote in message
news:eA******** ******@TK2MSFTN GP11.phx.gbl...

Scott Meddows wrote:

How can I convert that array of bytes into an array of char?

You don't want to do this - you want to write the raw bytes.

Use the Response.Output Stream property to get a stream that you can
write byte arrays to.
"john farrow" <vi*******@xtra .co.nz> wrote in message
news:eq***** *********@TK2MS FTNGP10.phx.gbl ...
>Given you have the PDF in 'receiveStream' you can copy it to the

response

>using something like this, avoiding conversion to UTF-8 or strings but

of

>which will corrupt the PDF file. This is C# but will work similarly in
VB.
> byte[] buffer = new byte[1024];
>
> int bytes = 0;
>
> while( ( bytes = receiveStream.R ead( buffer, 0,
>buffer.Leng th ) ) > 0 ) {
> Response.Write( buffer, 0, bytes );
> }
>
> Response.Flush
>
>Regards
>
>John
>
>Visual Programming Ltd mail PO Box 22-222, Khandallah, Wellington, New
>Zealand site Level 2, 2 Ganges Road, Khandallah, Wellington, New Zealand>phone [phone] fax [phone]
>web http://www.xmlpdf.com
>
>"bruce barker" <no***********@ safeco.com> wrote in message
>news:ej**** ***********@tk2 msftngp13.phx.g bl...
>
>
>>as you are copying a binary stream, you should use a binary reader

and
a

>>binary writer.
>>
>>-- bruce (sqlwork.com)
>>
>>
>>"Scott Meddows" <sc************ ******@tsged-removeme.com> wrote in

message
>>news:uA*** ***********@TK2 MSFTNGP11.phx.g bl...
>>
>>
>>>I'm trying to serve a PDF file from a webpage so it will load in the
>>>browser .. Can anyone tell what is wrong with this code? I've tried
>>>everythin g
>>>
>>>Thanks
>>>
>>> Dim httpwreq As System.Net.Http WebRequest =
>>>
>>

CType(System.Ne t.HttpWebReques t.Create("http://lafdev2/ReportServeProx y/Migr

>>>ationRepo rt.pdf"), System.Net.Http WebRequest)
>>> Dim httpWResp As System.Net.Http WebResponse =
>>>CType(htt pwreq.GetRespon se, System.Net.Http WebResponse)
>>> Dim receiveStream As IO.Stream = httpWResp.GetRe sponseStream
>>> Dim encode As System.Text.Enc oding =
>>>System.Te xt.Encoding.Get Encoding("utf-8")
>>> Dim readstream As System.IO.Strea mReader = New
>>>System.IO .StreamReader(r eceiveStream, encode)
>>> Dim read(256) As Char
>>> Dim count As Integer = readstream.Read (read, 0, 256)
>>> Response.Clear( )
>>> Response.ClearC ontent()
>>> Response.ClearH eaders()
>>> Response.Conten tType = "applicatio n/pdf"
>>> Response.AddHea der("content-length",
>
>httpWResp.C ontentLength.To String)
>
>
>>> Response.AddHea der("content-disposition", "filename=repor t.PDF")
>>> While (count > 0)
>>>

'Response.Bi naryWrite(Syste m.Text.Encoding .UTF8.GetBytes( read))
>>> Dim str As String = New String(read, 0, count)
>>> Response.Write( str) count = readstream.Read (read, 0, 256)
>>> End While
>>> 'Response.Flush ()
>>> httpWResp.Close ()
>>> readstream.Clos e()
>>> 'Response.End()
>>>
>>>This is the only code in my page. Can anyone help me out? Thanks
>>>
>>>
>>
>>
--
mikeb

--
mikeb