[BLAGA]

Имеем сайт http://www.nemexia.ru после ввода рег данных, (для теста логин testos пароль testos) редиректит на страничку с капчей. Так вот суть в следующем, не могу физически поймать картинку капчи. IE если делать сохранение странички полностью с картинками не может сохранить. а только сохраняет в веб архив. снифером облазил все, не вижу куда подкидывается капча. Хотел ее решить методом исключения не нужных цветов, но для начала мне нужен алгоритм как поймать сам GIF.

[NumLock]

да все просто:

<input type="image" value="" name="submit" src="captcha.php" style="display: block; width: 100px; height: 50px; border: 1px solid #fff;" />

пример:



на картинке всегда будет текущее время

[BLAGA]

при создании проекта исползовал:

pngextra.pas
pngimage.pas
pnglang.pas
zlibpas.pas

код писан под загрузку png, Но в мозиле, при подгруженной страничке, капча предлагается сохранить в gif. Так что я не знаю в каком формате вобще картинка приходит.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

procedure TForm1.Button1Click(Sender: TObject); var html:WideString; Stream:TStream; png:TPNGObject; begin try png:=TPNGObject.Create; html:=IdHTTP1.Get('http://game.nemexia.ru/bot_check.php?redir=%2Fplanet.php'); Delete(html,1,pos('name="submit" src="',html)+length('name="submit" src="')); Delete(html,pos('" style="display',html),length(html)); Stream:=TStringStream.Create(IdHTTP1.Get('http://game.nemexia.ru/'+html)); png.LoadFromStream(Stream); Image1.Picture.Assign(png); // тут непонятно какой тип картинки придет, если пробовать сохранить  в мозила, то там <b>gif</b> Stream.Free; png.Free; except on e:Exception do begin png.Free; Stream.Free; end; end; end;     procedure TForm1.Button2Click(Sender: TObject); begin webBrowser1.Navigate('http://www.nemexia.ru') end;   end.

Проект создан в DXE2

требуется помощь, в идентификации ошибки и советы по правильному до писанию кода программы.
Прикрепляю сам проект.

[MiraLaklamon]

Тип картинки можно определить по заголовку файла (т.е. по нескольким первым байтам).
GIF-картинки начинаются с символов 'GIF89';
PNG-картинки начинаются с символов #$89'PNG';

P.S. Вместо

Код:

1	Delete(html,pos('" style="display',html),length(html));

лучше писать так

Код:

1	Delete(html,pos('" style="display',html),MaxInt);

или так

Код:

1	SetLength(html,pos('" style="display',html)-1);

И ещё нужно быть уверенным, что такая подстрока в строке существует, иначе функция Pos возвращает ноль, что не является корректным параметром для Delete и SetLength.

[BLAGA]

Сообщение от MiraLaklamon

Тип картинки можно определить по заголовку файла (т.е. по нескольким первым байтам).
GIF-картинки начинаются с символов 'GIF89';

такой параметр проскакивает в хттп анализаторе.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Button1Click(Sender: TObject); var html:WideString; Stream:TStream; Gif: TGIFImage; begin try GIF:=TGIFImage.Create; html:=IdHTTP1.Get('http://game.nemexia.ru/bot_check.php?redir=%2Fplanet.php'); Delete(html,1,pos('name="submit" src="',html)+length('name="submit" src="')); SetLength(html,pos('" style="display',html)-1); Stream:=TStringStream.Create(IdHTTP1.Get('http://game.nemexia.ru/'+html)); Gif.LoadFromStream(Stream); Image1.Picture.Assign(Gif); Stream.Free; Gif.Free; except on e:Exception do begin Gif.Free; Stream.Free; end; end; end;

при компиляции матерится на строку

Код:

1	Delete(html,1,pos('name="submit" src="',html)+length('name="submit" src="'));

, и спотыкается на ней.

[MiraLaklamon]

Сообщение от BLAGA

при компиляции матерится на строку

Код:

, и спотыкается на ней.

У меня компилируется без мата.

[NumLock]

нужно смотреть Content-Type в ответе:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   TForm1 = class(TForm)     IdHTTP1: TIdHTTP;     Edit1: TEdit;     procedure FormCreate(Sender: TObject); ... procedure TForm1.FormCreate(Sender: TObject); var   AFileStream: TFileStream; begin   AFileStream:=TFileStream.Create('temp.png', fmCreate);   try     IdHTTP1.Get('http://j2me.webservis.ru/notedelphi.php', AFileStream);     Edit1.Text:=IdHTTP1.Response.ContentType;   finally     AFileStream.Free;   end; end;

для PNG картинки будет image/png

[M.A.D.M.A.N.]

По сигнатуре, наверное, проще.

[NumLock]

а для GdipLoadImageFromStream вообще все-равно какой формат картинки) + GdipGetImageRawFormat и с сигнатурой заморачиваться не нужно