Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.12.2010, 23:23
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
Печаль Спарсить и передать Cookie

Проблемма распространёная, т.к. от версии к версии у indy всегда проблемы.
Пробывал спарсить так:
Код:
	For N:=0 To Http.Response.RawHeade rs.Count-1 Do
    Begin
      If Http.Response.Raw Headers.Names[N]='Set-Cookie' Then
      Begin
          CookieList.Add(Http.Response.R awHeaders.ValueFromIndex[N]);
        End;
        End;
 
но не выходит.
Cookie вида
Set-Cookie:usNick=...; expires=Sat, 19 Mar 2011 01:34:06 GMT
Set-Cookie:usPass=...; expires=Sat, 19 Mar 2011 01:34:06 GMT
как их спарсить и передать не пойму, прошу помощи, уже незнаю даже куда рытьна ваш форум последняя надежда
Ответить с цитированием
  #2  
Старый 27.12.2010, 09:26
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
  IdHTTP1.Get('http://ya.ru/');
  IdHTTP1.Response.RawHeaders.Extract('Set-Cookie', Memo1.Lines);
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 27.12.2010, 12:41
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

NumLock это понятно, я имел ввиду что если делать так
Код:
 For N:=2 To FH.Response.Ra wHeaders.Count-1 Do
    Begin
      If FH.Respons e.RawHeaders.Names[N]='Set-Cookie' Then
      Begin
          CookieList.Add(FH.Response.RawHe aders.ValueFromIndex[N]);
        End;
        End;
      for N := 0 to CookieList.Count-1 do
    ShowMe ssage(CookieList[N]);  
то в месаге превосходно красуется
Login; expires=Sat, 19 Mar 2011 01:34:06 GMT
Password; expires=Sat, 19 Mar 2011 01:34:06 GMT
но как тогда обрезать expires=Sat, 19 Mar 2011 01:34:06 GMT
Ответить с цитированием
  #4  
Старый 27.12.2010, 13:00
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCookieManager, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    IdCookieManager1: TIdCookieManager;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  IdHTTP1.Get('http://forum29.ru');
  for i:=0 to IdCookieManager1.CookieCollection.Count-1 do
    Memo1.Lines.Add(IdCookieManager1.CookieCollection[i].CookieName+'='+IdCookieManager1.CookieCollection[i].Value);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.CookieManager:=IdCookieManager1;
end;

end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #5  
Старый 27.12.2010, 13:46
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Можно еще про функцию Pos(';', ...) вспомнить, если именно HTTP заголовки парсить.
И причем тут проблемы инди - это стандартный формат заголовков, а expires задает время, до которого будет действительно ( надо хранить ) это значение куков. ( если я правильно помню )
Ответить с цитированием
  #6  
Старый 27.12.2010, 15:37
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

вобще я думал что expires=Sat, 19 Mar 2011 01:34:06 GMT задаёт сначала время получения куков, т.к. у меня не истекают, значет должен ещё один параметр передаваться, интрегующе звучит, чтож буду знатиь, а с POS у меня не получиться т.к их от одного и более там может быть

Последний раз редактировалось bulldog, 27.12.2010 в 15:41.
Ответить с цитированием
  #7  
Старый 27.12.2010, 16:04
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от bulldog
вобще я думал что expires=Sat, 19 Mar 2011 01:34:06 GMT задаёт сначала время получения куков

CookieManager уже предлагает расперсеные куки:
Код:
  IdHTTP1.CookieManager.CookieCollection[i].Comment
  IdHTTP1.CookieManager.CookieCollection[i].MaxAge
  IdHTTP1.CookieManager.CookieCollection[i].Version
  IdHTTP1.CookieManager.CookieCollection[i].CookieText
  IdHTTP1.CookieManager.CookieCollection[i].Domain
  IdHTTP1.CookieManager.CookieCollection[i].Expires
  IdHTTP1.CookieManager.CookieCollection[i].CookieName
  IdHTTP1.CookieManager.CookieCollection[i].Path
  IdHTTP1.CookieManager.CookieCollection[i].Secure
  IdHTTP1.CookieManager.CookieCollection[i].Value
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #8  
Старый 27.12.2010, 16:46
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Согласен с NumLock, что CookieManager-ом пользоваться удобнее.

На всякий случай проверил про expires:
Цитата:
Кроме пары имя/значение, куки может содержать срок действия, путь и доменное имя. RFC 2965 также предусматривает, что куки должны обязательно иметь номер версии, но это используется редко. Эти атрибуты должны идти после пары name=newvalue и разделяться точкой с запятой. Например:
Set-Cookie: name=newvalue; expires=date; path=/; domain=.example.org.

Образец HTTP-ответа google.com, содержащем куки с атрибутами.


Домен и путь говорят браузеру, что куки должна быть отправлена обратно на сервер при запросах URL для указанного домена и пути. Если они не указаны, используются домен и путь запрошенной страницы[6].
http://ru.wikipedia.org/wiki/HTTP_cookie
Ответить с цитированием
  #9  
Старый 27.12.2010, 17:36
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

NumLock я сделал так
Код:
  for N:=0 to CM.CookieCollection.Count-1 do
     CookieList.Add(CM.CookieCollection[N].CookieName+'='+CM.CookieCollection[N].Value);
     for N := 0 to CookieList.Count-1 do
    ShowMessage(CookieList[N]);
CookieList это Tstringlist cooke в него записываются, но как теперь отправить их FH.Request.CustomHeaders.Add(''+CookieList) в таком случае не работает
Ответить с цитированием
  #10  
Старый 28.12.2010, 10:06
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

ну если так хочется на половину все делать руками, то:
Код:
unit Unit1;

interface

uses
  IdHTTP,
  Dialogs,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses IdCookieManager, IdCookie;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  stringstream: TStringStream;
  i: Integer;
begin
  IdHTTP:=TIdHTTP.Create(nil);
  IdHTTP.AllowCookies:=True;
{
TIdCookieManager создавать не будем, ибо (Delphi 7):

unit IdHTTP

procedure TIdCustomHTTP.ProcessCookies(ARequest: TIdHTTPRequest; AResponse: TIdHTTPResponse);
...
begin
    ...
    if not Assigned(FCookieManager) and AllowCookies then
    begin
      CookieManager := TIdCookieManager.Create(Self);
      FFreeOnDestroy := true;
    end;
    ...
}
  IdHTTP.HandleRedirects:=True;
  // POST request
  stringstream:=TStringStream.Create('vb_login_username=имя&vb_login_password=пароль&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password=&vb_login_md5password_utf=');
  try
    IdHTTP.Request.ContentType:='application/x-www-form-urlencoded';
    IdHTTP.Request.ContentLength:=stringstream.Size;
    IdHTTP.Post('http://forum29.ru/login.php?do=login', stringstream);
    // не дождетесь raise
    if IdHTTP.CookieManager=nil then raise Exception.Create('CookieManager=nil');
    // в Edit1 соберем cookie
    Edit1.Text:='';
    for i:=0 to IdHTTP.CookieManager.CookieCollection.Count-1 do
      Edit1.Text:=Edit1.Text+IdHTTP.CookieManager.CookieCollection[i].CookieName+'='+IdHTTP.CookieManager.CookieCollection[i].Value+';';
  finally
    stringstream.Free;
    IdHTTP.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP:=TIdHTTP.Create(nil);
  // руками добавим cookie
  IdHTTP.AllowCookies:=False;
  IdHTTP.HandleRedirects:=True;
  try
    // в Edit1 наши cookie
    IdHTTP.Request.CustomHeaders.Add('Cookie: '+Edit1.Text);
    Memo1.Text:=IdHTTP.Get('http://forum29.ru/');
    Memo1.Lines.SaveToFile('c:\Downloads\forum29.htm');
  finally
    IdHTTP.Free;
  end;
end;

end.

по кнопке 1 авторизуемся и сохраняем куки в едите. по кнопке 2 получаем авторизованную страничку.

а вот если использовать TIdCookieManager, то никакой канители вообще не нужно для cookie. в случае использования нескольких TIdHTTP естественно.
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 28.12.2010 в 10:10.
Ответить с цитированием
  #11  
Старый 28.12.2010, 16:31
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию

под delhi 2010 со стандартым indy версеей мучений не было, появились после установки delhi xe с новой версией indy появились траблы в cookiemanager, но всё равно спс, ща попробую
Ответить с цитированием
  #12  
Старый 29.12.2010, 10:12
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Цитата:
Сообщение от bulldog
под delhi 2010 со стандартым indy версеей мучений не было, появились после установки delhi xe с новой версией indy появились траблы в cookiemanager, но всё равно спс, ща попробую
Во-во, а у меня проблеммы с AdoConnection в XE появились, ушел обратно на 2010 ( а писали, что XE исправили кучу ошибок )
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter