На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> Synapse, не возвращается location при post-запросе на https
    Делаю пост запрос с synapce на https сайта результат такой:
    Вопрос где location, не выводит никакого html кода что я делаю не так в сниффере вижу location но в результате работы кода его нет.
    Библиотеки libeay32.dll и ssleay32.dll в папке,
    пробовал другие методы результат нулевой.

    ответ от сервера

    HTTP/1.1 400 Bad Request
    Date: Wed, 10 Sep 2014 22:05:01 GMT
    Server: Apache
    Content-Length: 307
    Connection: close
    Content-Type: text/html; charset=iso-8859-1

    сам код присутствует:

    ExpandedWrap disabled
      var
      data:TStringStream;
      str:Tstringlist;
      http:thttpsend;
      begin
      Memo1.Clear;
      HTTP:= THTTPSend.Create;
      str:= TStringList.Create;
      data := TStringStream.Create;
      http.Document.Clear;
      HTTP.Cookies.Clear;
      HTTP.TargetHost:='www.sayt.com';
      http.Protocol:='1.1';
      http.UserAgent :=
      'Mozilla/5.0 (Windows NT 6.2; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0';
      HTTP.Headers.Add('X-Requested-With: XMLHttpRequest');
      http.KeepAlive:=true;
      HTTP.Headers.Add('Referer: <a class='tag-url' href='https://www.sayt.com');' target='_blank'>https://www.sayt.com');</a>
      HTTP.Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
      HTTP.Headers.Add('Accept-Encoding: gzip, deflate');
      http.MimeType:='application/x-www-form-urlencoded; charset=UTF-8';
      data.WriteString('submit=test');
      http.Document.LoadFromStream(data);
      http.Timeout:=1000;
       
      HTTP.HTTPMethod('POST', 'https://www.sayt.com/#lookup');
      http.Clear;
       
       
      if HTTP.ResultCode=200 then
      begin
      memo1.Text :=HTTP.Headers.Text;
      Memo2.Lines.AddStrings ( str); // пусто почему то
      end;
       
      http.Free;
      data.Free;
      str.Free;
       
      end;




    что не так не понимаю помогите.
    Заранее всем спасибо за помощь. :rolleyes:
      В uses есть ssl_openssl?
        да есть подключены
          А с чего он должен быть..?
          location это редирикт типа.. и раз не куда не перебрасывает, его и нет.
          и его надо искать не в HTTP.ResultCode=200 а как минимум в HTTP.ResultCode=302..
          1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0.0699 ]   [ 15 queries used ]   [ Generated: 20.09.26, 18:02 GMT ]