Delphi World - Получить размер GIF-картинки
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получить размер GIF-картинки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   TImageSize = record
     Width: Integer;
     Height: Integer;
   end;

 function ReadGIFSize(Stream: TStream): TImageSize;
 type
   TGifHeader = record
     Signature: array [0..5] of Char;
     Width, Height: Word;
   end;
 var
   Header: TGifHeader;
 begin
   FillChar(Header, SizeOf(TGifHeader), #0);
   Result.Width := -1;
   Result.Height := -1;
   with Stream do
   begin
     Seek(0, soFromBeginning);
     ReadBuffer(Header, SizeOf(TGifHeader));
   end;
   if (AnsiUpperCase(Header.Signature) = 'GIF89A') or
     (AnsiUpperCase(Header.Signature) = 'GIF87A') then
   begin
     Result.Width  := Header.Width;
     Result.Height := Header.Height;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 const
   FileName = 'D:\test.gif';
 var
   fs: TFileStream;
   gifsize: TImageSize;
 begin
   fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
   try
     gifsize := ReadGIFSize(fs);
     ShowMessage(Format('Breite %d Hцhe %d', [gifsize.Width, gifsize.Height]));
   finally
     fs.Free;
   end;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования