Dear Sirs,
I am using the WebRequest and WebResponse methods to download documents
from a webstore, the code is running sucessfully and the documents are being
downloaded but they are corupted. I have pasted the code below. What am I
doing wrong?
Regards,
Yahya
Private Sub GetAttachment(ByVal strAttachmentName As String, ByVal strSrcURI
As String)
Dim Request As System.Net.HttpWebRequest
Dim Response As System.Net.HttpWebResponse
Dim MyCredentialCache As System.Net.CredentialCache
Dim strPassword As String
Dim strDomain As String
Dim strUserName As String
Dim bytes() As Byte
Dim ResponseStream As System.IO.Stream
Dim sr As System.IO.StreamReader
Dim strDoc As String
Dim sw As System.IO.StreamWriter
Try
strUserName = "user"
strPassword = "password"
strDomain = "domain"
MyCredentialCache = New System.Net.CredentialCache
MyCredentialCache.Add(New System.Uri(strSrcURI), _
"NTLM", _
New System.Net.NetworkCredential(strUserName, strPassword,
strDomain) _
)
Request = CType(System.Net.WebRequest.Create(strSrcURI), _
System.Net.HttpWebRequest)
Request.Credentials = MyCredentialCache
Request.Method = "GET"
Request.Headers.Add("Translate", "f")
Response = CType(Request.GetResponse(),
System.Net.HttpWebResponse)
ResponseStream = Response.GetResponseStream()
sr = New System.IO.StreamReader(ResponseStream, _
System.Text.Encoding.UTF8)
'urn:schemas:mailheader:message-id
sw = New IO.StreamWriter("C:\temp\" & strAttachmentName)
strDoc = sr.ReadToEnd
sw.WriteLine(strDoc)
sw.Close()
MessageBox.Show("Item stream:")
MessageBox.Show("")
MessageBox.Show(sr.ReadToEnd())
Response.Close()
ResponseStream.Close()
sr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
