Качалка - метод POST

[djalex777]

Столкнулся с проблемой. Хочу отправить данные методом POST на сервер с помощь качалки.

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

...
Set INET = New clsKachalka
INET.Method = BINDVERB_POST
INET.RequestData = "action=1"
s = INET.DownloadToString("http://localhost/test_get.php")
...


В файле test_get.php я вывожу содержимое POST запроса. Но в данном случае POST данные не приходят на сервер. Может я неправильно формирую RequestData? Подскажите пожалуйста

[tyomitch]

Этот код работает:

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

    Set Kachalka = New clsKachalka
    Kachalka.Method = BINDVERB_POST
    Kachalka.RequestData = "review=The+quick+brown+fox"
    Debug.Print Kachalka.DownloadToString("http://www.comp.leeds.ac.uk/cgi-bin/Perl/ta-example")


Ищи проблемы со стороны сервера.

[djalex777]

Да, твой пример работает... Но отправляю POST запрос на свой сервер с помощью того же WinHTTP - сервер получает нормальные данные.

Тут скорее наоборот - только специально настроенные серверы могут обработать post запрос от "качалки". Думаю дело всё в кодировке.

[tyomitch]

Дай test_get.php, буду тестить.

[djalex777]

Я просто для тестирования создал файл на сервере test_get.php Вот его содержимое:

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

<?
  foreach($_POST as $key=>$value)
   echo "$key=$value \n";
?>


[tyomitch]

PHP, похоже, привередливый: хочет заголовок Content-Type: application/x-www-form-urlencoded
Чтобы его добавить в запрос, надо реализовать IHttpNegotiate
Когда будет свободное время, добавлю его в TLB и в пример.

[tyomitch]

Когда будет свободное время, добавлю его в TLB и в пример.

Обновлённые файлы в аттаче.

[djalex777]

Спасибо. Сейчас посмотрю. А как у тебя объявлен интерфейс IHttpNegotiate? Я объявил его так:

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

interface IHttpNegotiate : stdole.IUnknown{

   HRESULT BeginningTransaction(
    [in]  LONG *szURL,
    [in]  LONG *szHeaders,
    [in]  LONG dwReserved,
    [in, out] LONG *pszAdditionalHeaders);

   HRESULT OnResponse(
    [in]  LONG dwResponseCode,
    [in]  LONG *szResponseHeaders,
    [in]  LONG *szRequestHeaders,
    [in, out] LONG *pszAdditionalRequestHeaders);

}


И столкнулся с тем, что не могу перевести в строку параметры szURL, szHeaders и т.д. Видно что-то неправильно объявил.

[tyomitch]

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

[
    odl,
    uuid(79eac9d2-baf9-11ce-8c82-00aa004ba90b)
]
interface IHttpNegotiate : stdole.IUnknown {

    HRESULT BeginningTransaction(
                [in] LONG szURL,
                [in] LONG szHeaders,
                [in] LONG dwReserved,
                [out, retval] BSTR *pszAdditionalHeaders
                );

    HRESULT OnResponse(
                [in] LONG dwResponseCode,
                [in] LONG szResponseHeaders,
                [in] LONG szRequestHeaders,
                [out, retval] BSTR *pszAdditionalRequestHeaders
                );
}


Перевод LPWSTR в BSTR стандартный: SysAllocString
Кто освобождает память из-под заголовков, я из документации не понял, поэтому она может протекать. Caveat emptor.

[djalex777]

tyomitch, Спасибо огромное! Добавлю, что при добавлении нового заголовка или изменении старого в конце строки надо не забывать ставить vbCrLf
P.S. Бдительность - это способность к правильному и быстрому реагированию на редкие значимые раздражители...