F
Felix
Люди добрые! Помогите разобраться с методом POST в объекте HttpWebRquest.
Вот мой код:
---------------------------------------------------------------------------
Dim vName(1, 0), action, myStr, method As String
Dim vvI, As Integer
Dim WebResp As HttpWebResponse
Dim WebReq As HttpWebRequest
Dim vStream As Stream
Dim vStreamR As Stream
Dim myH As New WebHeaderCollection
For vvI = 0 To vName.Length / 2 - 1
myH.Add(vName(0, vvI), vName(1, vvI))
Next
WebReq = WebRequest.Create(action)
WebReq.Method = method.ToUpper
myStr = myH.ToString
WebReq.ContentLength = myStr.Length
WebReq.Headers.Add(myH)
WebResp = WebReq.GetResponse
vStreamR = WebResp.GetResponseStream
Dim vStRead As New StreamReader(vStreamR, Encoding.GetEncoding("Windows-1251"))
RespStr = vStRead.ReadToEnd()
WebResp.Close()
vStRead.Close()
----------------------------------------------------------------------------
А проблема вот в чем: на строке 'WebResp = WebReq.GetResponse' программа подвисает и ждет до конца тайм-аута, после чего выдает исключение. В массиве vName(1,vvI) находятся пары name/value для отправки.
method = "post". Помогите разобраться, плз.
Вот мой код:
---------------------------------------------------------------------------
Dim vName(1, 0), action, myStr, method As String
Dim vvI, As Integer
Dim WebResp As HttpWebResponse
Dim WebReq As HttpWebRequest
Dim vStream As Stream
Dim vStreamR As Stream
Dim myH As New WebHeaderCollection
For vvI = 0 To vName.Length / 2 - 1
myH.Add(vName(0, vvI), vName(1, vvI))
Next
WebReq = WebRequest.Create(action)
WebReq.Method = method.ToUpper
myStr = myH.ToString
WebReq.ContentLength = myStr.Length
WebReq.Headers.Add(myH)
WebResp = WebReq.GetResponse
vStreamR = WebResp.GetResponseStream
Dim vStRead As New StreamReader(vStreamR, Encoding.GetEncoding("Windows-1251"))
RespStr = vStRead.ReadToEnd()
WebResp.Close()
vStRead.Close()
----------------------------------------------------------------------------
А проблема вот в чем: на строке 'WebResp = WebReq.GetResponse' программа подвисает и ждет до конца тайм-аута, после чего выдает исключение. В массиве vName(1,vvI) находятся пары name/value для отправки.
method = "post". Помогите разобраться, плз.