1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
{*****************************************************************************}
{
This file is part of the Free Pascal's "Free Components Library".
Copyright (c) 2003 by Mazen NEIFER of the Free Pascal development team
BMP reader/writer common code.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
}
{*****************************************************************************}
{$mode objfpc}{$h+}
unit BMPcomn;
interface
const
{BMP magic word is always 19778 : 'BM'}
BMmagic=19778;
{ Values for Compression field }
BI_RGB = 0;
BI_RLE8 = 1;
BI_RLE4 = 2;
BI_BITFIELDS = 3;
BI_JPEG = 4;
BI_PNG = 5;
type
TBitMapFileHeader = packed record
{00+02 :File type}
bfType:word;
{02+04 :File size in bytes}
bfSize:longint;
{06+04 : Reserved}
bfReserved:longint;
{10+04 : Offset of image data : size if the file hieder + the info header + palette}
bfOffset:longint;
end;
PBitMapFileHeader = ^TBitMapFileHeader;
TBitMapInfoHeader = packed record
{14+04 : Size of the bitmap info header : sould be 40=$28}
Size:longint;
{18+04 : Image width in pixels}
Width:longint;
{22+04 : Image height in pixels}
Height:longint;
{26+02 : Number of image planes : should be 1 always}
Planes:word;
{28+02 : Color resolution : Number of bits per pixel (1,4,8,16,24,32)}
BitCount:word;
{30+04 : Compression Type}
Compression:longint;
{34+04 : Size of image data (not headers nor palette): can be 0 if no compression}
SizeImage:longint;
{38+04 : Horizontal resolution in pixel/meter}
XPelsPerMeter:Longint;
{42+04 : Vertical resolution in pixel/meter}
YPelsPerMeter:Longint;
{46+04 : Number of colors used}
ClrUsed:longint;
{50+04 : Number of imprtant colors used : useful for displaying on VGA256}
ClrImportant:longint;
end;
PBitMapInfoHeader = ^TBitMapInfoHeader;
TColorRGB=packed record
B,G,R:Byte;
end;
PColorRGB = ^TColorRGB;
TColorRGBA=packed record
case Boolean of
False:(B,G,R,A:Byte);
True:(RGB:TColorRGB);
end;
PColorRGBA = ^TColorRGBA;
{54+?? : Color map : Lenght of color map is 4 bytes + the rest until the beginning of image data fixed in BFH.bfOffset}
TColorMap=TColorRGBA;
procedure SwapBMPFileHeader(var BFH : TBitMapFileHeader);
procedure SwapBMPInfoHeader(var BFI : TBitMapInfoHeader);
implementation
uses FPImgCmn;
procedure SwapBMPFileHeader(var BFH : TBitMapFileHeader);
begin
with BFH do
begin
bfType:=swap(bfType);
bfSize:=swap(bfSize);
bfReserved:=swap(bfReserved);
bfOffset:=swap(bfOffset);
end;
end;
procedure SwapBMPInfoHeader(var BFI : TBitMapInfoHeader);
begin
with BFI do
begin
Size:=swap(Size);
Width:=swap(Width);
Height:=swap(Height);
Planes:=swap(Planes);
BitCount:=swap(BitCount);
Compression:=swap(Compression);
SizeImage:=swap(SizeImage);
XPelsPerMeter:=swap(XPelsPerMeter);
YPelsPerMeter:=swap(YPelsPerMeter);
ClrUsed:=swap(ClrUsed);
ClrImportant:=swap(ClrImportant);
end;
end;
end.
|
