Is is possible to programmaticaly save a graphic forma given URL?

[Stacey Levine]

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried writer.write(re ader.ReadToEnd) ,
but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Robin Tucker]

Yes, you are writing the reader, rather than writing what the reader is
reading :) Try writing reader.readtoen d (or something).
"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried writer.write(re ader.ReadToEnd) ,
but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Stacey Levine]

I did try writer.write(re ader.ReadToEnd) , and the file has more data.. it
is all hex.. but it still won't open as a picture. I am not sure if I missed
writing something.
"Robin Tucker" <id************ *************@r eallyidont.com> wrote in
message news:da******** ***********@new s.demon.co.uk.. .

Yes, you are writing the reader, rather than writing what the reader is
reading :) Try writing reader.readtoen d (or something).
"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried
writer.write(re ader.ReadToEnd) , but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Stacey Levine]

One other wierd bit.. when I save the file using the reader.ReadToEn d ..
the file has 1302 bytes.
If I right click the image and save it, it has 2257 bytes.

very very wierd

"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried writer.write(re ader.ReadToEnd) ,
but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Michael C#]

Try BinaryWriter/BinaryReader:

Try
Dim Request As HttpWebRequest =
HttpWebRequest. Create(http://i3.microsoft.com/h/en-us/i/SpeedPC_2_10.jpg)
Request.Timeout = 5000
Dim Response As HttpWebResponse = Request.GetResp onse()
Dim myReader As BinaryReader
myReader = New BinaryReader(Re sponse.GetRespo nseStream())
Dim Result() As Byte = myReader.ReadBy tes(Response.Co ntentLength)
Dim myFileStream As New FileStream("c:\ SpeedPC_2_10.jp g",
FileMode.Create New)
Dim myWriter As New BinaryWriter(my FileStream)
myWriter.Write( Result)
myWriter.Close( )
Catch e As Exception
MessageBox.Show (e.Message, "Error Occurred")
End Try
"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried writer.write(re ader.ReadToEnd) ,
but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Michael C#]

You're using a regular StreamReader and StreamWriter, so it's using Default
Text encodings. You need to use BinaryReader/BinaryWriter for Binary
graphic data. See other post.

"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:ev******** ******@TK2MSFTN GP09.phx.gbl...

One other wierd bit.. when I save the file using the reader.ReadToEn d ..
the file has 1302 bytes.
If I right click the image and save it, it has 2257 bytes.

very very wierd

"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried
writer.write(re ader.ReadToEnd) , but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Stacey Levine]

That was it. Thanks. I was banging my head against the wall.

Stacey
"Michael C#" <ho***@boutdat. com> wrote in message
news:%2******** *******@TK2MSFT NGP15.phx.gbl.. .

Try BinaryWriter/BinaryReader:

Try
Dim Request As HttpWebRequest =
HttpWebRequest. Create(http://i3.microsoft.com/h/en-us/i/SpeedPC_2_10.jpg)
Request.Timeout = 5000
Dim Response As HttpWebResponse = Request.GetResp onse()
Dim myReader As BinaryReader
myReader = New BinaryReader(Re sponse.GetRespo nseStream())
Dim Result() As Byte = myReader.ReadBy tes(Response.Co ntentLength)
Dim myFileStream As New FileStream("c:\ SpeedPC_2_10.jp g",
FileMode.Create New)
Dim myWriter As New BinaryWriter(my FileStream)
myWriter.Write( Result)
myWriter.Close( )
Catch e As Exception
MessageBox.Show (e.Message, "Error Occurred")
End Try
"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried
writer.write(re ader.ReadToEnd) , but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Herfried K. Wagner [MVP]]

"Stacey Levine" <st****@newsgro up.nospam> schrieb:

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file.

Check out 'WebClient.Down loadFile'.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Michael C#]

HTH

"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:Of******** *****@TK2MSFTNG P15.phx.gbl...

That was it. Thanks. I was banging my head against the wall.

Stacey
"Michael C#" <ho***@boutdat. com> wrote in message
news:%2******** *******@TK2MSFT NGP15.phx.gbl.. .

Try BinaryWriter/BinaryReader:

Try
Dim Request As HttpWebRequest =
HttpWebRequest. Create(http://i3.microsoft.com/h/en-us/i/SpeedPC_2_10.jpg)
Request.Timeout = 5000
Dim Response As HttpWebResponse = Request.GetResp onse()
Dim myReader As BinaryReader
myReader = New BinaryReader(Re sponse.GetRespo nseStream())
Dim Result() As Byte = myReader.ReadBy tes(Response.Co ntentLength)
Dim myFileStream As New FileStream("c:\ SpeedPC_2_10.jp g",
FileMode.Create New)
Dim myWriter As New BinaryWriter(my FileStream)
myWriter.Write( Result)
myWriter.Close( )
Catch e As Exception
MessageBox.Show (e.Message, "Error Occurred")
End Try
"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic,
I want to save that graphic to a local file. The approach below gets the
response, but I can't quite figure out how to save it to a file. In this
instance, a file gets created but it only contains the text
"System.Io.Stre amReader" I have also tried
writer.write(re ader.ReadToEnd) , but the file still displays nothing.
Dim URL As String = GraphicURL

Dim request As WebRequest = WebRequest.Crea te(URL)

Dim response As WebResponse = request.GetResp onse()

Dim reader As StreamReader = New

StreamReader(re sponse.GetRespo nseStream())

Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
".jpg")

writer.Write(re ader)

writer.Close()

reader.Close()

response.Close( )
Stacey Levine

[Jay B. Harlow [MVP - Outlook]]

Stacey,
In addition to the other comments:

Don't use StreamReader & StreamWriter on binary files (such as graphic
files), as StreamReader & StreamWriter are used with Text Files.

If you simply want to copy the file, I would not even bother with
BinaryReader & BinaryWriter, as StreamReader & StreamWriter and BinaryReader
& BinaryWriter are used to parse "formatted" files, you simply want to copy
the bytes.

The "easiest" way is to use WebClient.Downl oadFile as Herfried shows.
Alternatively you can use a loop, something like:

Dim URL As String = GraphicURL
Dim request As WebRequest = WebRequest.Crea te(URL)
Dim response As WebResponse = request.GetResp onse()

Dim input As Stream = response.GetRes ponseStream()
Dim output As New FileStream("C:\ temp\" & graphicKey & ".jpg",
FileMode.Create )

Dim count As Integer = 32 * 1024
Dim buffer(count - 1) As Byte

Do
count = input.Read(buff er, 0, count)
If count = 0 Then Exit Do
output.Write(bu ffer, 0, count)
Loop

input.Close()
output.Close()
response.Close( )

Hope this helps
Jay

"Stacey Levine" <st****@newsgro up.nospam> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..
| Ok.. Maybe I am trying the wrong approach. If given a URL to a graphic, I
| want to save that graphic to a local file. The approach below gets the
| response, but I can't quite figure out how to save it to a file. In this
| instance, a file gets created but it only contains the text
| "System.Io.Stre amReader" I have also tried writer.write(re ader.ReadToEnd) ,
| but the file still displays nothing.
|
|
| Dim URL As String = GraphicURL
|
| Dim request As WebRequest = WebRequest.Crea te(URL)
|
| Dim response As WebResponse = request.GetResp onse()
|
| Dim reader As StreamReader = New
|
| StreamReader(re sponse.GetRespo nseStream())
|
| Dim writer As StreamWriter = New StreamWriter("C :\temp\" & GraphicKey &
| ".jpg")
|
| writer.Write(re ader)
|
| writer.Close()
|
| reader.Close()
|
| response.Close( )
|
|
| Stacey Levine
|
|