Captcha

[nefakt]

Вот как у меня код написан при нажатии войти вылезает ошибка а в Edit3 появляется надпись PNG

procedure TForm2.sSpeedButton7Click(Sender: TObject);
 var
LoginData, Response: TStrings;
S, s_id: string;
begin
LoginData := TStringList.Create;
Response := TStringList.Create;
 S:=IdHTTP1.Get('http://investreklam.com/');
 s_id:=Copy(S, Pos('PHPSESSID=', S), 20);
  S:=IdHTTP1.Get('http://investreklam.com/blocks/captcha.php');
 s_id:=Copy(S, Pos('captcha=', S), 20);
 edit3.text:=s_id;
try
LoginData.Add('email='+Edit1.Text);
LoginData.Add('pass='+Edit2.Text);
LoginData.Add('captcha='+Edit3.Text);
LoginData.Add('login=submit');
LoginData.Add('x=0');
LoginData.Add('y=0');
Response.Text := IdHTTP1.Post('http://investreklam.com/',LoginData);
if Pos('logout',Response.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

[BDA]

procedure TForm2.sSpeedButton7Click(Sender: TObject);
 var
LoginData: TStrings;
S: string;
begin
LoginData := TStringList.Create;
try
IdHTTP1.Get('http://investreklam.com/');
// получить каптчу по ссылке 'http://investreklam.com/blocks/captcha.php', отобразить ее для удобства на другой форме и запросить ее значение у пользователя
LoginData.Add('email='+Edit1.Text);
LoginData.Add('pass='+Edit2.Text);
LoginData.Add('captcha='+Edit3.Text);
S := IdHTTP1.Post('http://investreklam.com/',LoginData);
if Pos('<a href="http://investreklam.com/exit/">', S)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
LoginData.Free;
end;
end;

[nefakt]

Спасибо сейчас попробую а можно поставить так что бы при загрузки формы он автоматически делал запрос на капчу что бы она сразу выводилась как форма откроется?!

А капчу я запрос делаю так

var
 html:String;
 Stream:TStream;
 png:TPNGObject;
begin
   try
    png:=TPNGObject.Create
    html:=IdHTTP1.Get('http://investreklam.com/blocks/captcha.php');
    Delete(html,1,pos('<td><img src="',html)+length('<td><img src="'));
    Delete(html,pos('" id',html),length(html));
    Stream:=TStringStream.Create(IdHTTP1.Get('http://investreklam.com/blocks/captcha.php'+html));
    png.LoadFromStream(Stream);
    Image1.Picture.Assign(png);
    Stream.Free;
    png.Free;
   except
    on e:Exception do
     begin
      png.Free;
      Stream.Free;
     end;
   end;

Подключил модель PNGimage и при компиляции он ругается на PNGimage.pas

[BDA]

На мой взгляд это будет не совсем корректно, но так сделать можно.
Тогда в onCreate формы делаете 2 get запроса (первый получит PHPSESSID, а второй - каптчу), а по кнопке посылаете POST запрос.

[nefakt]

А на счет капчи то что я выше написал то что ругается на pngimage.pas что мне делать в этом случае? и правильно ли написан код на её получения?

[BDA]

У меня не ругается (Delphi 2010).

procedure TForm1.FormCreate(Sender: TObject);
var
  Stream: TMemoryStream;
  png: TPNGObject;
begin
  try
    png := TPNGObject.Create;
    Stream := TMemoryStream.Create;
    IdHTTP1.Get('http://investreklam.com/blocks/captcha.php', Stream);
    Stream.Position := 0;
    png.LoadFromStream(Stream);
    Image1.Picture.Assign(png);
  finally
    png.Free;
    Stream.Free;
  end
end;

UPD
Пожалуйста

[nefakt]

Все авторизовался спасибо за помощь.

[nefakt]

Ещё последний вопрос, я пытаюсь пропарсить определенные данные
с помощью данного кода

procedure TForm2.Button9Click(Sender: TObject);
var
HTTP: TidHTTP;
reg2:TRegExpr  ;
prx2: TStringList;
str: string;
int: integer;
Begin
  HTTP:=TidHttp.Create;
  str:= HTTP.Get('http://investreklam.com/crystal-work/');

 ////////////
 prx2:= tstringlist.Create;
 reg2:= tregexpr.Create; 
 reg2.Expression:='<p align="left">(.*?)</p>' ;   
  if reg2.Exec(utf8toansi (str)) then repeat  
 prx2.Add(reg2.Match[1]) ;
 Until
 Not
 Reg2.ExecNext; //Готово

 ////////////

   Form2.Memo1.Lines.Add(prx2.Text)  ;
End;

В итоге ни чего не появляется в memo а если пропарсить просто исходной код он выведет его полностью но со страницы типа я не авторизован хотя до этого через программу авторизуюсь.
Из-за чего это может быть? Заранее спасибо

[eval]

из-за того что не аутентифицированны

[nefakt]

Как сделать парсинг через WebBrowser в инете искал сколько находил пробовал что то не получалось а обычный парсинг в обычном браузере получается. Но мне нужно именно через webbrowser. Заранее спасибо.