Проблеммы с авторизацией на сайте и с капчёй!

[AquaKlaster]

Вот пытаюсь написать регер асек через bigmir.net
Вот собственно код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdIOHandler, IdIOHandlerSocket, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, IdSSLOpenSSL,
  IdServerIOHandler, ExtCtrls, XPMan, pngimage, IdIOHandlerStack, IdSSL;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    EditLogin: TEdit;
    EditPass: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    XPManifest1: TXPManifest;
    GroupBox2: TGroupBox;
    Image1: TImage;
    Edit1: TEdit;
    Button2: TButton;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then Exit else a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS)-a+1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b-1);
end;

procedure ShowImg(Url: string; Img: TImage);
  var
    M: TMemoryStream;
    http: TIdHttp;
    jpg: Tpngimage;
  begin
    M := TMemoryStream.Create;
    http := TIdHttp.Create(nil);
    jpg := Tpngimage.Create;
    try
      http.Get(URL, M);
      M.Position := 0;
      jpg.LoadFromStream(M);
      Img.Picture.Graphic := jpg;
    finally
      M.Free;
      http.Free;
      jpg.Free;
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
s:=TStringList.Create;
s.Add('url=/icq');
s.Add('pid=2');
s.Add('login='+EditLogin.Text);
s.Add('pass='+EditPass.Text);
s.Add('auth_type=1');
s.Add('subm=1');
try
idHTTP1.Post('https://global.bigmir.net/auth',s);
finally
s.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s1:string;
sslkanakartinku:string;
begin
s1:=idHTTP1.Get('http://passport.bigmir.net/icq/');
sleep(500);
sslkanakartinku:= pars( 'img src="',s1, '"><br>');
edit1.Text:=sslkanakartinku;
end;
end.

Пытаюсь вывести пропарсеную ссылку капчи в Edit1 но что то не выходит!
Подскажите плиз! И прозьба модератора Квэнди не удалять данный топик! Спс зарание!

[Виталий Серов]

У тебя точно приходит страница _http://passport.bigmir.net/icq/ , а то перенаправление на адрес /login/?url=%2Ficq (_http://passport.bigmir.net/loginform/?url=%2Ficq) и никакой капчи там нет ...

Ну а если страница точно нужная , то перед строчкой pars( 'img src="',s1, '"><br>') удали весь html до Введите цифры, расположенные справа и обязательно проверяй наличие строчки .png в результате

[AquaKlaster]

в том то и дело что я не знаю приходит ли страница http://passport.bigmir.net/icq или у меня вобще не проходит авторизацию!
Больше всего наверно у меня проблеммы с авторизацией!

[Виталий Серов]

Просто сохрани s1 в фаил(index.html например) и посмотри что там тебе приходит
или обрабытывай событие onRedirect - оно происходит если нет авторизации
Что бы подсматривать за куками брось на форму Куки Менеджер