Информация о BMP-файлах

Delphi , Графика и Игры , Bitmap

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

{ 
  This tip show, how to get the filesize, width, height, bitcount and color used 
  from a bitmap. 

  Dieses Beispiel zeigt, wie man Dateigrosse, breite, hohe, Farbtiefe und Farbanzahl 
  von einem Bitmap ausliest. 
}


 procedure TForm1.Button1Click(Sender: TObject);
 var
   fileheader: TBitmapfileheader;
   infoheader: TBitmapinfoheader;
   s: TFilestream;
 begin
   s := TFileStream.Create('c:\YourBitmap.bmp', fmOpenRead);
   try
     s.Read(fileheader, SizeOf(fileheader));
     s.Read(infoheader, SizeOf(infoheader));
   finally
     s.Free;
   end;
   listbox1.Items.Clear;
   listbox1.Items.Add('Filesize:    ' + IntToStr(fileheader.bfSize));
   listbox1.Items.Add('Width:       ' + IntToStr(infoheader.biWidth));
   listbox1.Items.Add('Height:      ' + IntToStr(infoheader.biHeight));
   listbox1.Items.Add('BitCount:    ' + IntToStr(infoheader.biBitCount));
   listbox1.Items.Add('Used:        ' + IntToStr(infoheader.biClrUsed));
 end;

 { 
  BitCount: 
  1 = black/white 
  4 = 16 colors 
  8 = 256 colors 
}

Привет! Я переведу текст на русский язык:

Представлен код-snippet на Delphi, который читает информацию из файла BMP (Bitmap) и отображает ее в контроле ListBox. Вот шаг за шагом, что делает код:

1. Процедура Button1Click вызывается при клике кнопки на форме.
2. Создается объект TFileStream, чтобы прочитать содержимое файла BMP, расположенного по адресу 'c:\YourBitmap.bmp' (замените на ваш реальный путь к файлу).
3. Читаются заголовок файла и информационный заголовок из потока с помощью метода Read, который записывает данные из потока в переменные.
4. Заголовок файла содержит информацию о файле himself, включая его размер. Информационный заголовок содержит информацию о битмап-изображении, включая ширину, высоту, количество бит (число бит, используемых для представления каждого пикселя) и размер таблицы цветов.

Вот краткое изложение того, что код получает из файла BMP:

• Filesize: Размер файла в байтах.
• Width и Height: Размеры битмап-изображения.
• BitCount: Количество бит, используемых для представления каждого пикселя, которое определяет количество цветов, которые можно отобразить. Обычные значения:
  • 1: Черно-белое (2^1 = 2 цвета)
  • 4: 16 цветов
  • 8: 256 цветов
• Used: Размер таблицы цветов, используемой в битмап-изображении.

Полученная информация затем добавляется в контроле ListBox с помощью метода Items.Add, позволяя пользователю просматривать детали о файле BMP. Обратите внимание, что код предполагает, что файл BMP расположен по адресу 'c:\YourBitmap.bmp' и имеет корректный формат. Если файл не найден или формат неправильный, процедура может вызвать ошибку.

Статья описывает, как извлечь информацию о файле BMP, включая размер файла, ширину, высоту, количество бит и использованных цветов, а также объясняет разницу в кодировке цветов (1 - черно-белый, 4 - 16 цветов, 8 - 256 цветов).

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Bitmap ::