Цитата:
|
Сообщение от MiraLaklamon
Тип картинки можно определить по заголовку файла (т.е. по нескольким первым байтам).
GIF-картинки начинаются с символов 'GIF89';
|
такой параметр проскакивает в хттп анализаторе.
Код:
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;
при компиляции матерится на строку
Код:
Delete(html,1,pos('name="submit" src="',html)+length('name="submit" src="')); , и спотыкается на ней.