страная авторизация

[bulldog5293]

есть код, который авторизирует на саете

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;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  stringstream: TStringStream;
  i: Integer;
begin
  IdHTTP:=TIdHTTP.Create(nil);
  IdHTTP.AllowCookies:=True;
  IdHTTP.HandleRedirects:=True;
  stringstream:=TStringStream.Create('username=''&password=''');
  try
    IdHTTP.Request.ContentType:='application/x-www-form-urlencoded';
    IdHTTP.Request.ContentLength:=stringstream.Size;
    IdHTTP.Post('http://сайт.ru/login.php?do=login', stringstream);
    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
    IdHTTP.Request.CustomHeaders.Add('Cookie: '+Edit1.Text);
    Memo1.Text:=IdHTTP.Get('http://сайт.ru/');
  finally
    IdHTTP.Free;
  end;
end;

end.

но если его использовать так, то не работает

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;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(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;
  IdHTTP.HandleRedirects:=True;
  stringstream:=TStringStream.Create('username=''&password=''');
  begin
    IdHTTP.Request.ContentType:='application/x-www-form-urlencoded';
    IdHTTP.Request.ContentLength:=stringstream.Size;
    IdHTTP.Post('http://сайт.ru/login.php', stringstream);
    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+';';
//    stringstream.Free;
//    IdHTTP.Free;
//  IdHTTP.AllowCookies:=False;
    IdHTTP.Request.CustomHeaders.Add('Cookie: '+Edit1.Text);
    IdHTTP.Get('http://сайт.ru/');
end;
end;
end.

Почему?

[grafgrial]

Возможно параметры передаете непрвильно (username=''&password='')

[bulldog5293]

в снифере смотрел передаваемый параметр правельный, просто если на 2 кнопки раскидать то работает, на одной кнопке не хочет

[fate]

а в снифере параметры одинаковые передаются если авторизоваться первым способом и вторым?

[bulldog5293]

да, только при пост запроси разный код рецидива выдаёт, в первом случае 578 на сайте авторизирован, но после пост запроса соединение закрыто, хотя на страницу ака попадаю, а во втором случае при гет запросе ака выдаётся рецидив 549 и идёт редирект на авторизацию

[kangreon]

Может проблема в том, что куки передаются 2 раза ( IdHTTP.AllowCookies:=True; + IdHTTP.Request.CustomHeaders.Add('C ookie: '+Edit1.Text);) ? Попробуйте перед строчками

    IdHTTP.Request.CustomHeaders.Add('Cookie: '+Edit1.Text);

    IdHTTP.Get('http://сайт.ru/');

Пересоздать IdHTTP.