Hi all,
In a web service I make a call to a remote server using
basic authentication.
On my development machine it works fine, but on the production
server I get an exception:
"The request was aborted: The request was canceled."
when I make this call:
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
The request (as far as I can tell) is not making it to the
remote server. If I don't add the basic auth credentials
then the remote server does respond with an authorization
failure, as I would expect.
What I don't understand is why its acting different on the
development (it works) and production (it fails) boxes.
I'm sure its some security setting on the server (2003 Standard)
that is not on development (xml pro).
Any Ideas?
kpg
Here is the code:
Private Function doRequest(ByVal sURL As String, ByVal sMethod As String,
Optional ByVal sData As String = "", Optional ByVal UserName As String =
"", Optional ByVal Password As String = "") As String
Dim sResponse As String = ""
Try
Dim myWebRequest As WebRequest = WebRequest.Create(sURL)
If UserName.Length <> 0 Then
Dim credCache As CredentialCache = New CredentialCache()
credCache.Add(myWebRequest.RequestUri, "Basic", New
NetworkCredential(UserName, Password))
myWebRequest.Credentials = credCache
End If
myWebRequest.Method = sMethod.ToUpper
myWebRequest.ContentType = "application/x-www-form-urlencoded"
If myWebRequest.Method = "POST" Then
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(sData)
' Set the 'ContentLength' property of the WebRequest.
myWebRequest.ContentLength = byteArray.Length
Dim myRequestStream As Stream =
myWebRequest.GetRequestStream()
myRequestStream.Write(byteArray, 0, byteArray.Length)
' Close the Stream object.
myRequestStream.Close()
Else
Throw New Exception("Method must be POST")
End If
' Assign the response object of 'WebRequest' to a
'WebResponse' variable.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
Dim myResponseStream As Stream =
myWebResponse.GetResponseStream()
Dim streamRead As New StreamReader(myResponseStream)
Dim readBuff(256) As [Char]
Dim count As Integer = streamRead.Read(readBuff, 0, 256)
While count > 0
Dim outputData As New [String](readBuff, 0, count)
sResponse &= outputData
count = streamRead.Read(readBuff, 0, 256)
End While
' Close the Stream Object.
myResponseStream.Close()
streamRead.Close()
' Release the HttpWebResponse Resource.
myWebResponse.Close()
Catch wex As WebException
sResponse = buildErrorResponse(wex.Message)
End Try
WriteToLog("Exit doRequest")
Return sResponse
End Function
|
Similar Threads
