Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Ничи
-
- Новичок
-
-
- Сообщения: 45
- Зарегистрирован: 24.01.2005 (Пн) 17:29
- Откуда: Питер
Ничи » 25.12.2007 (Вт) 9:28
WinHttpRequest не отправляет данные методом POST.
- Код: Выделить всё
Function req(ByVal url As String, ByVal method As String, ByVal query As String) As String
http.Open method, url
http.SetRequestHeader "Content-Length", CStr(Len(query))
http.Send query
req = http.ResponseText
End Function
Private Sub cmdOK_Click()
MsgBox req(sHost, "POST", "p=qwerty")
End Sub
На сервере:
- Код: Выделить всё
Response.Write (Request("p"))
В результате выдается пустой MsgBox. Если отправлять методом GET, то все нормально работает
-
ALX_2002
-
- Мега гуру
-
-
- Сообщения: 2054
- Зарегистрирован: 25.11.2002 (Пн) 20:03
-
ALX_2002 » 25.12.2007 (Вт) 11:06
На сколько мне удалось разобраться в этом механизме - нужно перед передачей ещё и заголовок выставлять -
- Код: Выделить всё
http.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
-
Ничи
-
- Новичок
-
-
- Сообщения: 45
- Зарегистрирован: 24.01.2005 (Пн) 17:29
- Откуда: Питер
Ничи » 25.12.2007 (Вт) 11:10
отлично, все работает!! спасибо
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 93