powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить куки при Get запросе.
2 сообщений из 2, страница 1 из 1
Получить куки при Get запросе.
    #39909533
Probka1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Делаю Get запрос пытаюсь получить куки.
Пытаюсь сделать так:
Код: pascal
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.
27.
28.
29.
30.
      Dat:=IdHT.Get(URL);
      sleep(1000);
      Dat:=IdHt.Get(Url);
      sleep(10000);

      K:= IdCookieManager1.CookieCollection.Count;
      for i:=0 to K-1 do
           Memo1.Lines.Add(IdCookieManager1.CookieCollection[i].CookieName+'='+IdCookieManager1.CookieCollection[i].Value);

      K:=IdHt.Response.RawHeaders.Count;
      for I := 0 to K-1 do
         Memo2.Lines.Add(IdHt.Response.ResponseText[i]);

      K:=IdHt.CookieManager.CookieCollection.Count;
      for i:=0 to K-1 do
            Memo3.Lines.Add(IdHt.CookieManager.CookieCollection[i].CookieName+'='+IdHt.CookieManager.CookieCollection[i].Value);


      header := IdHT.Response.RawHeaders.Text;
      while true  do begin
         p := pos('Cookie:', header);
         Memo4.Lines.Add(header);

         if p=0 then break;
         p := p+length('Cookie:')+1;
         p2 := pos(#$D#$A, copy(header, p, length(header)));
         if p2=0 then p2 := length(header);
         Result := Result + copy(header, p, p2-1)+';';
         header := copy(header, p+p2+1, length(header))
      end;



В результате получаю
Memo1 и Memo3 пусто


Memo2
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
H
T
T
P
/
1
.
1


Memo4
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Server: nginx
Date: Sun, 29 Dec 2019 04:28:19 GMT
Content-Type: text/html; charset=utf-8
Connection: keep-alive
Vary: Accept-Encoding
Cache-Control: private
X-Ua-Compatible: IE=edge
Set-Cookie: gclone2_r=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/; domain=.f.com
Transfer-Encoding: chunked



Как получить куки для использовании POST запроса?

Модератор: Как мне оформить свое сообщение?
...
Рейтинг: 0 / 0
Получить куки при Get запросе.
    #39909765
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
  var rez := NetHTTPClient1.Get('http://ya.ru');
  for var s in rez.Cookies do
    memo1.Lines.Add(s.Name + ' = ' + s.Value);
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить куки при Get запросе.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]