при создании проекта исползовал:
Цитата:
pngextra.pas
pngimage.pas
pnglang.pas
zlibpas.pas
|
код писан под загрузку png, Но в мозиле, при подгруженной страничке, капча предлагается сохранить в gif. Так что я не знаю в каком формате вобще картинка приходит.
Код:
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); // тут непонятно какой тип картинки придет, если пробовать сохранить в мозила, то там gif
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
требуется помощь, в идентификации ошибки и советы по правильному до писанию кода программы.
Прикрепляю сам проект.