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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2014, 21:44   #1
Suleyman
 
Регистрация: 13.10.2008
Сообщений: 3
Печаль Synapce проблема

Делаю пост запрос с synapce на https сайта результат такой:

HTTP/1.1 200 OK
Date: Wed, 10 Sep 2014 17:30:00 GMT
Server: Apache
Cache-Control: max-age=0
Expires: Wed, 7 Sep 2014 17:30:00 GMT
Vary: Accept-Encoding,User-Agent
Keep-Alive: timeout=15, max=99
Connection: Keep-Alive
Transfer-Encoding: chunked
Content-Type: text/html; charset=utf-8

Вопрос где location, не выводит никакого html кода хотя проходит запрос на ура что я делаю не так в сниффере вижу location но в результате работы кода его нет.
Библиотеки libeay32.dll и ssleay32.dll в папке,
пробовал другие методы результат нулевой.

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


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: https://www.sayt.com');
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');



if HTTP.ResultCode=200 then
begin
memo1.Text :=HTTP.Headers.Text;

end;

http.Free;
data.Free;
str.Free;

end;

Заранее всем спасибо за помощь.

Последний раз редактировалось Suleyman; 11.09.2014 в 02:12.
Suleyman вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Неблокирующий сокет Си проблема с закрытием, проблема с закрытием сокетов в цикле mnx_vol C/C++ Сетевое программирование 0 06.11.2012 13:57
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37