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.WMA"
fs = File.Open(serverPath, FileMode.Open, FileAccess.Read)
Dim lngLen As Long = fs.Length
Dim abytBuffer(CInt(lngLen - 1)) As Byte
fs.Read(abytBuffer, 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.Create, IO.FileAccess.Write)
Dim BW As New IO.BinaryWriter(fs)
Dim leng As Integer = fs.Length
Dim abytBuffer(CInt(leng - 1)) As Byte
fs.Write(abytBuffer, 0, CInt(leng))
' This causes the file to be 0 in length
Dim serverPath As String = "C:\Test1.WMA"
fs = New IO.FileStream(TheService.StartDownload, IO.FileMode.OpenOrCreate)
Dim BW As New IO.BinaryWriter(fs)
Dim AByte() As Byte = TheService.StartDownload()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
