Авторизация coppermine galery

[slavec]

Не получается пройти авторизацию с помощью idhttp на сайте galery.12a2009.org(Coppermine Photo Gallery).
Cookie получаю, POST запрос выдает что всё ок, а после последнего get запроса опять получаю сообщение с просьбой залогиниться.

Var data:TStringList;
    StrPage:string;
begin
  data:=TStringList.Create;
  data.Add('UserName=test');
  data.Add('PassWord=12345');
  data.Add('submitted=Вход');
  idHttp.Get('http://galery.12a2009.org');
  idhttp.Post('http://galery.12a2009.org/login.php?referer=index.php',data);
  StrPage:=idHttp.Get('http://galery.12a2009.org/');
  Memo1.Text:=StrPage;

В чём может быть проблема. Cookie получаю столько же как и в браузере.

[Пепел Феникса]

CookieManager подключен?

[slavec]

Да.
Вот кусок dfm.

object IdHTTP: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    RecvBufferSize = 1
    OnWorkBegin = IdHTTPWorkBegin
    OnWorkEnd = IdHTTPWorkEnd
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.Referer = 'http://galery.12a2009.org/upload.php'
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    CookieManager = CookieManager
    Left = 192
    Top = 128
  end
  object IdAntiFreeze1: TIdAntiFreeze
    IdleTimeOut = 60
    OnlyWhenIdle = False
    Left = 192
    Top = 104
  end
  object CookieManager: TIdCookieManager
    Left = 192
    Top = 80
  end

[Пепел Феникса]

так...а какая версия ИнДИ?

[slavec]

9. Сейчас поставлю последнюю. ТОлько сейчас прочитал о глюках в этой версии.
По результату установки отпишусь. Спасибо за мысль!!!

[slavec]

Поставил последнюю версию ИНДИ.
Теперь не работает процедура idhttpworkbegin.
Программа вылетает с ошибкой.

[Квэнди]

надо смотреть весь код.

[slavec]

.pas

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Button1Click(Sender: TObject);
    procedure IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    memo1.Text:=idhttp1.get('http://galery.12a2009.org/upload.php');
    memo1.lines.add(idcookiemanager1.CookieCollection.Items[0].CookieText);
    memo1.lines.add(idcookiemanager1.CookieCollection.Items[1].CookieText);
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
    inc(i);

end;

end.

.dfm

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 862
    Height = 473
    Align = alTop
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 32
    Top = 488
    Width = 817
    Height = 113
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object IdHTTP1: TIdHTTP
    OnWorkBegin = IdHTTP1WorkBegin
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    CookieManager = IdCookieManager1
    Left = 496
    Top = 128
  end
  object IdCookieManager1: TIdCookieManager
    Left = 312
    Top = 184
  end
  object IdAntiFreeze1: TIdAntiFreeze
    IdleTimeOut = 60
    OnlyWhenIdle = False
    Left = 432
    Top = 200
  end
end