webservice to download a file - need help please.

[Rootworker]

I have two simple web services, as shown below. One returns the file size of
a test file, and the second the file itself. I can successfully recover the
file size using the following code:\

httpRequest.Met hod = "Post"
httpRequest.Con tentType = "text/xml; charset=utf-8"
httpResponse = httpRequest.Get Response()
Dimsr As NewStreamReader (httpResponse.G etResponseStrea m())
strStatus = sr.ReadToEnd()
sr.Close()
httpResponse.Cl ose()

However, when I try to download the file itself, using the following code,
the app just hangs:

DimhttpRequest2 As HttpWebRequest =
WebRequest.Crea te("http://localhost:1995/webSvs/Service.asmx/RetrieveZip")

httpRequest2.Me thod = "Post"
httpRequest2.Co ntentLength = lFileLength
httpRequest2.Co ntentType = "applicatio n/x-zip-compressed"
httpResponse2 = httpRequest2.Ge tResponse()' hangs here.
Any suggestion how I can retrieve this zip file and write it to my local
disk? Thanks.

Joe

Here are the web services themselves:

Public ClassService
InheritsSystem. Web.Services.We bService

<WebMethod()_
PublicFunction RetrieveZip() As Byte()
Dimpath As String=
"U:\-CVS-\Painless.NET\R andD\webSvs\App _Code\test.zip"

Dimbindata() As Byte= File.ReadAllByt es(path)
Returnbindata
EndFunction

<WebMethod()_
PublicFunction RetrieveZipSize () As String
Dimpath As String=
"U:\-CVS-\Painless.NET\R andD\webSvs\App _Code\test.zip"
DimlFileSize As Long
DimstrFileSize As String

lFileSize = FileLen(path)

strFileSize = CStr(lFileSize)

ReturnstrFileSi ze
EndFunction
End Class

[John Saunders [MVP]]

"Rootworker " <ma******@rootw erx.comwrote in message
news:13******** *****@corp.supe rnews.com...

>I have two simple web services, as shown below. One returns the file size
of a test file, and the second the file itself. I can successfully recover
the file size using the following code:\

httpRequest.Met hod = "Post"
httpRequest.Con tentType = "text/xml; charset=utf-8"
httpResponse = httpRequest.Get Response()
Dimsr As NewStreamReader (httpResponse.G etResponseStrea m())
strStatus = sr.ReadToEnd()
sr.Close()
httpResponse.Cl ose()

However, when I try to download the file itself, using the following code,
the app just hangs:

DimhttpRequest2 As HttpWebRequest =
WebRequest.Crea te("http://localhost:1995/webSvs/Service.asmx/RetrieveZip")

httpRequest2.Me thod = "Post"
httpRequest2.Co ntentLength = lFileLength
httpRequest2.Co ntentType = "applicatio n/x-zip-compressed"
httpResponse2 = httpRequest2.Ge tResponse()' hangs here.
Any suggestion how I can retrieve this zip file and write it to my local
disk? Thanks.

First, is there a reason you used HttpWebRequest instead of building a
client using Add Web Reference?
....

<WebMethod()_
PublicFunction RetrieveZipSize () As String
Dimpath As String=
"U:\-CVS-\Painless.NET\R andD\webSvs\App _Code\test.zip"
DimlFileSize As Long
DimstrFileSize As String

lFileSize = FileLen(path)

strFileSize = CStr(lFileSize)

Why not just return the size as a Long instead of converting to string?

ReturnstrFileSi ze
EndFunction
End Class

--
John Saunders [MVP]

[Rootworker]

First, is there a reason you used HttpWebRequest instead of building a

client using Add Web Reference?

Uhh -- that was the first example I was able to find online -- I really
don't have clue 1 what I'm doing.

Why not just return the size as a Long instead of converting to string?

Oh --that was just a temporary expedient -- I thought it might be easier to
read. My intent is to change to returning it as a long as soon as I get the
rest working.

As it stands now, I've almost got things working -- I can retrieve the file
as a string. Now I need to know how to turn it into a file -- any pointers?
Thanks so much!

Here's my code in progress:

Public Class Form1

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Dim httpRequest2 As HttpWebRequest =
WebRequest.Crea te("http://localhost:42944/WebSite1/Service.asmx/RetrieveZip")

Dim lFileLength As Long

Dim httpResponse2 As HttpWebResponse

Dim sr As IO.StreamReader

Dim strFileDest As String = "e:\temp\temp.z ip"

Dim myString As String

Dim inBuf(100000) As Char

Dim bytesRead As Integer = 0

Dim fstr As New FileStream(strF ileDest, FileMode.OpenOr Create,
FileAccess.Writ e)

httpRequest2.Me thod = "Post"

httpRequest2.Co ntentLength = lFileLength

httpRequest2.Co ntentType = "applicatio n/zip"

httpResponse2 = httpRequest2.Ge tResponse() ' hangs here.

sr = New StreamReader(ht tpResponse2.Get ResponseStream( ))

myString = sr.ReadToEnd()

TextBox1.Text = myString

End Sub

End Class

[Spam Catcher]

"Rootworker " <ma******@rootw erx.comwrote in news:13bu7irq34 im08
@corp.supernews .com:

>First, is there a reason you used HttpWebRequest instead of building a
client using Add Web Reference?

Uhh -- that was the first example I was able to find online -- I really
don't have clue 1 what I'm doing.

Have you looked at MTOM? It's part of Microsoft's Web Service Enhancement
Pack - let's you transfer large files over web services:

http://www.codeproject.com/soap/MTOMWebServices.asp

[Rootworker]

Thanks -- I'll check that out.

Joe

Have you looked at MTOM? It's part of Microsoft's Web Service Enhancement
Pack - let's you transfer large files over web services:

http://www.codeproject.com/soap/MTOMWebServices.asp