Информация о BMP-файлахDelphi , Графика и Игры , BitmapИнформация о BMP-файлах
Оформил: DeeCo { 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 } Статья описывает, как извлечь информацию о файле BMP, включая размер файла, ширину, высоту, количество бит и использованных цветов, а также объясняет разницу в кодировке цветов (1 - черно-белый, 4 - 16 цветов, 8 - 256 цветов). Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |