Streaming a File from a Web Service

[Charles A. Lackman]

Hello, I am trying to have a desktop application receive a file from a web
service. I am not sure how to do this, This is the Web Service Function.
This is a webmethod that takes a file and convert it back out to a Binary
Stream

<WebMethod()> _
Public Function StartDownload() As Byte()
Dim fs As FileStream

Try
' Read file and return contents
Dim serverPath As String = "C:\Test1.W MA"
fs = File.Open(serve rPath, FileMode.Open, FileAccess.Read )

Dim lngLen As Long = fs.Length
Dim abytBuffer(CInt (lngLen - 1)) As Byte
fs.Read(abytBuf fer, 0, CInt(lngLen))
Return abytBuffer

Finally
' Make sure that file stream is
' closed even if an error occurs.
fs.Close()
End Try
End Function

I have noticed that when this code is implemented it does not cause the
client computer to open a download dialogbox. I am assuming that I have to
implement code to receive the file then write it to the clients computer.
Is this correct. The Web Service is being called from a Desktop
Application. I am having a struggle trying to implement this.

Client Computer (Desktop Computer)

fs = New IO.FileStream(" C:\Me.wma", IO.FileMode.Cre ate, IO.FileAccess.W rite)
Dim BW As New IO.BinaryWriter (fs)
Dim leng As Integer = fs.Length
Dim abytBuffer(CInt (leng - 1)) As Byte
fs.Write(abytBu ffer, 0, CInt(leng))
' This causes the file to be 0 in length
Dim serverPath As String = "C:\Test1.W MA"
fs = New IO.FileStream(T heService.Start Download, IO.FileMode.Ope nOrCreate)
Dim BW As New IO.BinaryWriter (fs)
Dim AByte() As Byte = TheService.Star tDownload()the service
Dim AByte1 As Byte
For Each AByte1 In AByte
bw.write(Abyte1 )
next
'This Causes the File to write Gigs and Gigs of data to the file Test1.WMA

Thanks again for your assistance,
Chuck