0 / 0 / 0
Регистрация: 26.08.2015
Сообщений: 14
1

Заголовок http запроса по synapse

25.09.2018, 09:48. Показов 3782. Ответов 1

Author24 — интернет-сервис помощи студентам
Здравствуйте!
Как получить заголовок http запроса, как в хроме например:
Код
GET /yii2/web/prest HTTP/1.1
Host: localhost
Connection: keep-alive
Cache-Control: max-age=0
Upgrade-Insecure-Requests: 1
User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8
Accept-Encoding: gzip, deflate, br
Accept-Language: ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7
Cookie: vc=16; PHPSESSID=u8o7kki06pealj3dachg6mblk6; _csrf=c29604bfa220bf65309e5823c10183f90357f0899ffc26922dc431f759bb1b4aa%3A2%3A%7Bi%3A0%3Bs%3A5%3A%22_csrf%22%3Bi%3A1%3Bs%3A32%3A%22wHiG9zv0htCVY97QjN6E4IzDfwxc38E7%22%3B%7D
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: THTTPSend;
  Res : boolean;
  head:tstream;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Clear;
  http:=THTTPSend.Create;
  http.Headers.Add('user-agent: Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/38.0.2125.111 Safari/537.36');
  http.Headers.Add('accept-encoding: gzip,deflate,sdch');
  http.Headers.Add('cache-control: max-age=0');
  http.Headers.Add('accept-language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4,es;q=0.2,pt;q=0.2');
  http.Headers.Add('accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
  try
    Res := HTTP.HTTPMethod('GET', Edit1.Text);
    if Res then
      begin
        Memo1.Lines.Add('==========RESPONSE HEADER==========');
        Memo1.Lines.AddStrings(HTTP.Headers);
        Memo2.Lines.LoadFromStream(http.Document);
      end
  finally
    HTTP.Free;
  end;
end;
Хочу в Memo1 перед ==========RESPONSE HEADER==========
вывести ==========REQUEST HEADER==========
Memo1.Lines.AddStrings(тут заголовок запроса);
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2018, 09:48
Ответы с готовыми решениями:

Synapse http post
Вот в чем моя проблема. Предположим надо спарсить какую либо строку и отправить ее в пост. У меня...

Synapse send, прикрутить прокси http или socks
Использую send('GET', 'сайт'); Как привинтить сюда прокси http или socks? В интернете нашел...

Synapse, тип запроса
Привет, мне потребовалась помощь и я сделал тему на данном форуме, собственно я отправляю запрос (с...

Нормальный заголовок http запроса
Нужно сделать заголовок, чтобы, в моем случае википедия, принимала запросы от программы. Пока у...

1
101 / 97 / 23
Регистрация: 11.01.2012
Сообщений: 868
26.09.2018, 12:37 2
Просто выводи Headers после запроса
Delphi
1
Main.Memo1.Text:=HTTP.Headers.Text;
0
26.09.2018, 12:37
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2018, 12:37
Помогаю со студенческими работами здесь

Ошибки Synapse (HTTP/1.1 400 Bad Request / HTTP/1.1 413 Request Entity Too Large)
Добрый день. При работе с Synapse начали возникать вот такие вот две ошибки (HTTP/1.1 400 Bad...

Synapse + таймаут (http)
Synapse + таймаут (http) думаю многие, кто сталкивался, знают что synapse и таймауты работать друг...

Delphi Synapse HTTP(S) виснут (умирают) потоки
Проблема появилась давно, не 1 раз писал на форуме, но думал что проблема в другом, вот заметил...

HTTP заголовок
Есть HTTP заголовок HTTP/1.1 200 OK Server: nginx Date: Tue, 18 Sep 2012 18:56:08 GMT...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru