Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2012, 23:20   #11
bakanaev
Форумчанин
 
Регистрация: 27.03.2012
Сообщений: 438
По умолчанию

Код:
try
 page := IdHttp1.post('https://secure.site.org/site/API',data);
   if pos('THANK YOU!',page )<>0 then
     begin
       Label1.Caption:='Подключился';
     end
     else
     Label1.Caption:='Все, я умер';
Except
  on Exception do Label1.Caption:='Не подключился';


end;
Все, этот метод не пригоден так как в ответ может приходить до 3 разных сообщений!!!! Есть у кого идеи еще???
bakanaev вне форума Ответить с цитированием
Старый 28.03.2012, 23:40   #12
bakanaev
Форумчанин
 
Регистрация: 27.03.2012
Сообщений: 438
По умолчанию

Я уже очень близко !!!11
Код:
Возвращенные заголовки (после ответа сервера) можно посмотреть так:

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.03.2012 в 23:53.
bakanaev вне форума Ответить с цитированием
Старый 28.03.2012, 23:52   #13
bakanaev
Форумчанин
 
Регистрация: 27.03.2012
Сообщений: 438
По умолчанию

Есть идеи ?
bakanaev вне форума Ответить с цитированием
Старый 22.05.2012, 10:59   #14
bakanaev
Форумчанин
 
Регистрация: 27.03.2012
Сообщений: 438
По умолчанию

UP! Актуально как никогда!
bakanaev вне форума Ответить с цитированием
Старый 30.01.2017, 10:15   #15
PTyTb32
Форумчанин
 
Регистрация: 06.10.2013
Сообщений: 216
По умолчанию Решение

Я тоже столкнулся с такой проблемой, все браузеры отображали результат, а несчастный IDHTTP никак, 403 и хоть убейся! ну я и подумал, а что если мы представимся не мазилой, а какой нибудь оперой... и поменял свойство UserAgent с какой то там мазилы на такую строку "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10" и о чудо! все получилось!
PTyTb32 вне форума Ответить с цитированием
Старый 11.02.2017, 02:00   #16
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию

Столкнулся с таким же.
Помогло так:
Код:
  try
    SRes:=idHTTP.Get('https://api.storj.io/contacts/'+FNodeID);
  except
    on E: EIdHTTPProtocolException do
    begin
      if E.ErrorCode=404 then SRes:=E.ErrorMessage;
    end;
    on E: Exception do
    begin
      SaveToLog(E.Message);
    end;
  end;
RealSHELS вне форума Ответить с цитированием
Старый 15.03.2017, 16:48   #17
euglv
Новичок
Джуниор
 
Регистрация: 15.03.2017
Сообщений: 1
По умолчанию

Смотрите свойство TidHTTP.HTTPOptions
Нужно к нему добавить hoNoProtocolException
euglv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
idHTTP, POST _ZixeL_ Общие вопросы Delphi 7 12.03.2013 16:19
Проблема с idhttp.post zarethernet Работа с сетью в Delphi 0 02.02.2012 14:13
idhttp post roulis2844sasha Работа с сетью в Delphi 2 26.07.2011 10:15
idHTTP post nix01d Работа с сетью в Delphi 7 06.07.2010 23:52
POST idHTTP Pasha_Sh Работа с сетью в Delphi 7 11.06.2010 09:00