VPF::Тупость idhttp.post (HTTP/1.1 403 Forbidden ) - Форум программистов

bakanaev

Дата 27.3.2012, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Здравствуйте. Возникла проблем. Делаю post запрос (IdHttp1.post)

Код


    page := IdHttp1.post('https://secure.site.org/site/API',data);
     
     if pos('!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!!',page )<>0 then
         begin
           Label1.Caption:='БЛА1';
         end
       else
        Label1.Caption:='БЛА2';

В ответ получаю "HTTP/1.1 403 Forbidden", НО!!!!
Ответ на мой post запрос (Смотрел в снифере)

Код


    HTTP/1.1 403 Forbidden
    Date: Tue, 27 Mar 2012 01:52:21 GMT
    Server: Apache
    Cache-Control: private
    Set-Cookie: JServSessionIdr004=q1j2d0y1m4.app214a; path=/site/
    Transfer-Encoding: chunked
    Content-Type: text/xml; charset=UTF-8
     
    236
    <?xml version="1.0" encoding="UTF-8"?>
    <Response xsi:schemaLocation="http://site.com/crm/v1.0 http://service.site.net/xmlschema/crm.public.v1.xsd" xmlns="http://convio.com/crm/v1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
      <errors>
        <code>101</code>
        <message>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</message>
        <reason>FIELD_VALIDATION</reason>
        <pageError>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</pageError>
        <fieldError>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</fieldError>
      </errors>
    </Response>
     
    0

+Браузер получает 100% идентичный ответ (смотрел в снифере)

При вылете этого сообщения работа программы останавливается, естественно ни какого парсинга переменной page не происходит.
Прошу помощи в решении данной проблемы.
P.S В практическом программирование всего 4 дня)) Так что если будите что то описать, прошу делать это как можно подробнее )))
P.P.S Есть у кого нибудь кряк для Embarcadero® RAD Studio XE2 Version 16.0.4429.46931 ??

bakanaev

Дата 28.3.2012, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Ребята ну подскажите хоть что нибудь, как убрать эту ошибку? (Сделать что бы она не вылетала) И ответ записывался в переменную page. Може есть другие пути ?

bakanaev

Дата 28.3.2012, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Я уже очень близко !!!!!

Код

Возвращенные заголовки (после ответа сервера) можно посмотреть так:

idHttp.Response.RawHeaders.GetText;

Вот так реализовал

Код

try
 page := IdHttp1.post('https://secure.site.org/site/API',data);

Except
  on Exception do Memo1.Lines.Text:= idHttp1.Response.RawHeaders.GetText ;

end;

Программа вывела вот это

Код


Date: Wed, 28 Mar 2012 19:35:03 GMT
Server: Apache
Cache-Control: private
Transfer-Encoding: chunked
Content-Type: text/xml; charset=UTF-8

Но этого не достаточно,нужно остльное остальное

Код


TTP/1.1 403 Forbidden
Date: Wed, 28 Mar 2012 19:35:03 GMT
Server: Apache
Cache-Control: private
Transfer-Encoding: chunked
Content-Type: text/xml; charset=UTF-8

236
<?xml version="1.0" encoding="UTF-8"?>
<Response xsi:schemaLocation="http://site.com/crm/v1.0 http://service.site.net/xmlschema/crm.public.v1.xsd" xmlns="http://convio.com/crm/v1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <errors>
    <code>101</code>
    <message>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</message>
    <reason>FIELD_VALIDATION</reason>
    <pageError>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</pageError>
    <fieldError>!!!!!!!!!!!!!Тут то что мне надо!!!!!!!!!!!!!!!(Обычный текст)</fieldError>
  </errors>
</Response>

Как мне использовать idHttp.Response. что бы получить весь ответ ???? Дайте почитать что нибудь про idHttp.Response

Это сообщение отредактировал(а) bakanaev - 28.3.2012, 22:51

MetalFan

Дата 29.3.2012, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

TIdHTTP.Response.ResponseText ?

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »