Webbrowser & HTTP POST

[Scuder]

Люди, спасите!! Срочно нужно, но я не знаю HTTP и пр..

Задача такая: Отправить запрос на сервер методом HTTP POST и получить ответ. Winsock не рассматривается, поскольку соединение защищено SSL-сертификатом. Поэтому использую WebBrowser..

Делаю так:

Код: Выделить всё

Dim Query As String
Dim Headers As String

Query = "..."

Headers = "Content-type: text/xml; charset=windows-1251 "
Headers = Headers + "Content-length: " + CStr(Len(Query))

Me.WB.Navigate "https://.../xml.jsp", , , Query, Headers

Не работает. Точнее, работает, но сервер возвращает пустой документ, а этого быть не должно. Значит где-то ошибка.. Запрос проверял - всё ок.

Может, я Headers криво указываю??

[Demonx]

Попробуй так:

Код: Выделить всё

Headers = "Content-type: text/xml; charset=windows-1251" & vbcrlf
Headers = Headers + "Content-length: " + CStr(Len(Query))

[Scuder]

Ответ тот же, только не через секунду, а через 5 минут..

[Demonx]

Кстати вот тебе пример работы с SSL. http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=49170&lngWId=1

[Scuder]

Спасибо, конечно.. Но я бы всё-таки хотел разобраться с WebBrowser'ом..

[Alfa]

А прибавить длину Headers?

[Scuder]

А надо?
Прибавил. Без изменений..

[Scuder]

Блин, позвонил "на сервер" , ребята говорят, что запрос приходит методом GET. Но ведь в MSDN ясно написано:

object.Navigate( _
url As String, _
[Flags As Variant,] _
[TargetFrameName As Variant,] _
[PostData As Variant,] _
[Headers As Variant])

[...]

PostData
Optional. Data to send to the server during the HTTP POST transaction. For example, the POST transaction is used to send data gathered by an HTML form to a program or script. If this parameter does not specify any post data, the Navigate method issues an HTTP GET transaction. This parameter is ignored if URL is not an HTTPURL.

Я же правильно понимаю, что в данном случае нет разницы между http и https?

Но тогда я не понимаю почему WB игнорирует POST..

Народ, не проходите мимо!! Ну оч-чень надо!! %-)

[Demonx]

А прибавить длину Headers?

Прибавлять длинну заголовков не надо. Только PostData

[Scuder]

В общем, опять я сам отвечаю на свой же вопрос..

Используем библиотеку Microsoft XML.

Dim con As MSXML2.XMLHTTP
Set con = New MSXML2.XMLHTTP

con.Open "POST", "https://www..../xml.jsp", False
con.send Query

MsgBox con.responseText

И всё!