HTTPRequest Get Response Method and Time out problem with VB.NET

[James]

Hi,

I am new to .NET framework. I am trying to get data from the third
party web application using WebHTTPRequest and Response class. I am
getting TimeOut exception at GetResponse Method..

Dim objResponse As HttpWebResponse = objRequest.GetR esponse()
tried out different solutions but still problem persist. Here is the
code from my test applicaiton

Thanks,
--James
=============== =============== =============== =============== =============== ==
Private Function readHtmlPage(By Val Url As String)

Dim result As String = ""
Dim strPost As String = txtRequest.Text
Dim myWriter As StreamWriter
Dim objRequest As HttpWebRequest = WebRequest.Crea te(Url)
objRequest.Meth od = "POST"
objRequest.Cont entLength = strPost.Length
objRequest.Cont entType = "applicatio n/x-www-form-urlencoded"

Dim c As X509Certificate s.X509Certifica te

Try
c = X509Certificate s.X509Certifica te.CreateFromCe rtFile("C:\MyFo lder\xyz.cer")
objRequest.Clie ntCertificates. Add(c)
Debug.Write("Cl ient cert added. Name: " & c.GetName)

myWriter = New StreamWriter(ob jRequest.GetReq uestStream())
myWriter.Write( strPost, 0, strPost.Length)
Catch e As Exception
Return e.Message
txtResponse.Tex t = e.Message
Finally

'myWriter.Close ()

End Try

'
Try

Dim objResponse As HttpWebResponse =
objRequest.GetR esponse()
Dim sr As StreamReader
sr = New StreamReader(ob jResponse.GetRe sponseStream())
result = sr.ReadToEnd()
sr.Close()

txtResponse.Tex t = result
Return result
Catch e As Exception
Return e.Message
End Try

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

txtResponse.Tex t =
readHtmlPage("h ttps://mywebpage.com/myApplicaiton.e xe")
End Sub

[Feroze [msft]]

There are a couple of issues with your code.

First, you are setting the content length = "strPost.Length " . But then you
are using a StreamWriter to write the data. Sometimes you could end up with
a mismatch between the lengths of data you set in the content-length, and
the data actually written by the StreamWriter, esp if the encodings dont
match.

What you should do is:

byte [] rawbytes = Encoding.ASCII. GetBytes(strPos t);
req.ContentLeng th = rawbytes.Length ;

...
Stream rq = req.GetRequestS tream();
rq.Write(rawbyt es,0,rawbytes.L ength);
rq.Close();
...

Secondly, you are not closing the response object. Since the StreamReader
you attached to the response stream does not own the underlying stream, it
wont close the stream when you close the StreamReader. You must close the
stream, or just call response.Close( ).

feroze
=============== ========
this posting is provided as-is, it provides no guarantees and confers no
rights.
=============== ========

"James" <ni*******@yaho o.com> wrote in message
news:65******** *************** **@posting.goog le.com...

Hi,

I am new to .NET framework. I am trying to get data from the third
party web application using WebHTTPRequest and Response class. I am
getting TimeOut exception at GetResponse Method..

Dim objResponse As HttpWebResponse = objRequest.GetR esponse()
tried out different solutions but still problem persist. Here is the
code from my test applicaiton

Thanks,
--James
=============== =============== =============== =============== =============== =
= Private Function readHtmlPage(By Val Url As String)

Dim result As String = ""
Dim strPost As String = txtRequest.Text
Dim myWriter As StreamWriter
Dim objRequest As HttpWebRequest = WebRequest.Crea te(Url)
objRequest.Meth od = "POST"
objRequest.Cont entLength = strPost.Length
objRequest.Cont entType = "applicatio n/x-www-form-urlencoded"

Dim c As X509Certificate s.X509Certifica te

Try
c = X509Certificate s.X509Certifica te.CreateFromCe rtFile("C:\MyFo lder\xyz.cer") objRequest.Clie ntCertificates. Add(c)
Debug.Write("Cl ient cert added. Name: " & c.GetName)

myWriter = New StreamWriter(ob jRequest.GetReq uestStream())
myWriter.Write( strPost, 0, strPost.Length)
Catch e As Exception
Return e.Message
txtResponse.Tex t = e.Message
Finally

'myWriter.Close ()

End Try

'
Try

Dim objResponse As HttpWebResponse =
objRequest.GetR esponse()
Dim sr As StreamReader
sr = New StreamReader(ob jResponse.GetRe sponseStream())
result = sr.ReadToEnd()
sr.Close()

txtResponse.Tex t = result
Return result
Catch e As Exception
Return e.Message
End Try

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

txtResponse.Tex t =
readHtmlPage("h ttps://mywebpage.com/myApplicaiton.e xe")
End Sub