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.Method = "Post"
httpRequest.ContentType = "text/xml; charset=utf-8"
httpResponse = httpRequest.GetResponse()
Dimsr As NewStreamReader(httpResponse.GetResponseStream())
strStatus = sr.ReadToEnd()
sr.Close()
httpResponse.Close()

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

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

httpRequest2.Method = "Post"
httpRequest2.ContentLength = lFileLength
httpRequest2.ContentType = "application/x-zip-compressed"
httpResponse2 = httpRequest2.GetResponse()' 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.WebService

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

Dimbindata() As Byte= File.ReadAllBytes(path)
Returnbindata
EndFunction

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

lFileSize = FileLen(path)

strFileSize = CStr(lFileSize)

ReturnstrFileSize
EndFunction
End Class

[John Saunders [MVP]]

"Rootworker" <ma******@rootwerx.comwrote in message
news:13*************@corp.supernews.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.Method = "Post"
httpRequest.ContentType = "text/xml; charset=utf-8"
httpResponse = httpRequest.GetResponse()
Dimsr As NewStreamReader(httpResponse.GetResponseStream())
strStatus = sr.ReadToEnd()
sr.Close()
httpResponse.Close()

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

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

httpRequest2.Method = "Post"
httpRequest2.ContentLength = lFileLength
httpRequest2.ContentType = "application/x-zip-compressed"
httpResponse2 = httpRequest2.GetResponse()' 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\RandD\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?

ReturnstrFileSize
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(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim httpRequest2 As HttpWebRequest =
WebRequest.Create("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.zip"

Dim myString As String

Dim inBuf(100000) As Char

Dim bytesRead As Integer = 0

Dim fstr As New FileStream(strFileDest, FileMode.OpenOrCreate,
FileAccess.Write)

httpRequest2.Method = "Post"

httpRequest2.ContentLength = lFileLength

httpRequest2.ContentType = "application/zip"

httpResponse2 = httpRequest2.GetResponse() ' hangs here.

sr = New StreamReader(httpResponse2.GetResponseStream())

myString = sr.ReadToEnd()

TextBox1.Text = myString

End Sub

End Class

[Spam Catcher]

"Rootworker" <ma******@rootwerx.comwrote in news:13bu7irq34im08
@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