Help: Trying to Load URL and save to File in Dot.Net

[Dave]

Hello. I need to load an URL and save it to a file in Asp.Net. The
function below is creating the file, but isn't putting the data in it.
Also the data is binary, so I'm not sure if I need to fiddle with
encoding or whatnot.
Dave

Private Function GetURLSave(ByVa l sURL As String,ByVal sFileName As
String) As Boolean

Dim oRequest As System.Net.Http WebRequest =
System.Net.Http WebRequest.Crea te(sURL)
oRequest.UserAg ent = "Mozilla/4.0 (compatible; MSIE 6.0;
Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR
1.2.30703)"
Dim oResponse As System.Net.WebR esponse =
oRequest.GetRes ponse()
Dim oReader As System.IO.Strea mReader = New
System.IO.Strea mReader(oRespon se.GetResponseS tream)

Try
Dim oFile As System.IO.FileS tream = New _
System.IO.FileS tream(sFileName ,
System.IO.FileM ode.OpenOrCreat e, System.IO.FileA ccess.ReadWrite ,
System.IO.FileS hare.None)
Dim oWriter As New System.IO.Strea mWriter(oFile)
Dim sText As String = oReader.ReadToE nd
oWriter.Write(s Text)
oWriter.Flush()
oWriter.Close()
oFile.Close()

Catch ex As Exception
GetURLSave = False
Finally
GetURLSave = True
End Try

oReader.Close()
oResponse.Close ()

End Function

[Dave]

What I forgot to say was that I wanted this function to open an URL to
a BINARY file and save the BINARY file. The sample in my original post
works perfectly for text, such as HTML. Below is another version of
the same function that works with BINARY files, rewritten to use the
BinaryReader and BinaryWriter class and to read and write until it
hits the end of the stream. It works with PDF's, GIF's or JPG's:

Public Function GetURLSave(ByVa l sURL As String, ByVal sFileName As
String) As Boolean

Dim oRequest As System.Net.Http WebRequest =
System.Net.Http WebRequest.Crea te(sURL)
Dim oResponse As System.Net.WebR esponse =
oRequest.GetRes ponse()
Dim oReader As System.IO.Binar yReader = New
System.IO.Binar yReader(oRespon se.GetResponseS tream)
Dim oFile As System.IO.FileS tream = New _
System.IO.FileS tream(sFileName ,
System.IO.FileM ode.OpenOrCreat e, System.IO.FileA ccess.ReadWrite ,
System.IO.FileS hare.None)
Dim oWriter As New System.IO.Binar yWriter(oFile)

Try
Do
oWriter.Write(o Reader.ReadByte )
Loop
Catch ex As System.IO.EndOf StreamException
GetURLSave = True
End Try

oWriter.Close()
oWriter = Nothing
oFile.Close()
oFile = Nothing
oReader.Close()
oReader = Nothing
oResponse.Close ()
oResponse = Nothing
oRequest = Nothing

End Function

[Joerg Jooss]

Dave wrote:

What I forgot to say was that I wanted this function to open an URL to
a BINARY file and save the BINARY file. The sample in my original post
works perfectly for text, such as HTML. Below is another version of
the same function that works with BINARY files, rewritten to use the
BinaryReader and BinaryWriter class and to read and write until it
hits the end of the stream. It works with PDF's, GIF's or JPG's:

Public Function GetURLSave(ByVa l sURL As String, ByVal sFileName As
String) As Boolean

Dim oRequest As System.Net.Http WebRequest =
System.Net.Http WebRequest.Crea te(sURL)
Dim oResponse As System.Net.WebR esponse =
oRequest.GetRes ponse()
Dim oReader As System.IO.Binar yReader = New
System.IO.Binar yReader(oRespon se.GetResponseS tream)
Dim oFile As System.IO.FileS tream = New _
System.IO.FileS tream(sFileName ,
System.IO.FileM ode.OpenOrCreat e, System.IO.FileA ccess.ReadWrite ,
System.IO.FileS hare.None)
Dim oWriter As New System.IO.Binar yWriter(oFile)

Try
Do
oWriter.Write(o Reader.ReadByte )
Loop
Catch ex As System.IO.EndOf StreamException
GetURLSave = True
End Try

oWriter.Close()
oWriter = Nothing
oFile.Close()
oFile = Nothing
oReader.Close()
oReader = Nothing
oResponse.Close ()
oResponse = Nothing
oRequest = Nothing

It's not terribly efficient to write each byte individually. It also makes
little sense to use Readers and Writers when all you want to do is read and
write binary content "as is". This sample method copies contents from any
type of readable stream to any type of writable stream (in blocking mode).

public void Copy(Stream source, Stream target) {
if (!source.CanRea d) {
throw new ArgumentExcepti on("Not readable", "source");
}

if (!target.CanWri te) {
throw new ArgumentExcepti on("Not writable", "target");
}

byte[] buffer = new byte[0x1000];
int bytes;
try {
while ((bytes = source.Read(buf fer, 0, buffer.Length)) > 0) {
target.Write(bu ffer, 0, bytes);
}
}
finally {
target.Flush();
}
}

Cheers,

--
Joerg Jooss
jo*********@gmx .net