Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 091

•  TDictionary Custom Sort  6 178

•  Fast Watermark Sources  5 980

•  3D Designer  8 859

•  Sik Screen Capture  6 318

•  Patch Maker  6 729

•  Айболит (remote control)  6 724

•  ListBox Drag & Drop  5 582

•  Доска для игры Реверси  95 973

•  Графические эффекты  6 940

•  Рисование по маске  6 197

•  Перетаскивание изображений  5 111

•  Canvas Drawing  5 482

•  Рисование Луны  5 190

•  Поворот изображения  4 737

•  Рисование стержней  3 345

•  Paint on Shape  2 583

•  Генератор кроссвордов  3 482

•  Головоломка Paletto  2 783

•  Теорема Монжа об окружностях  3 582

•  Пазл Numbrix  2 352

•  Заборы и коммивояжеры  3 033

•  Игра HIP  1 990

•  Игра Go (Го)  1 911

•  Симулятор лифта  2 268

•  Программа укладки плитки  1 976

•  Генератор лабиринта  2 429

•  Проверка числового ввода  2 107

•  HEX View  2 437

•  Физический маятник  2 065

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Получить размер GIF-картинки



Оформил: DeeCo

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;




Похожие по теме исходники

TGIFImage (GIF изображения)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте