Форум программистов [Powered by Invision Power Board]

Код

procedure ReadBMP(FileName: String);
type
  
  TBitmapContent = packed record
    Identifier: array[0..1] of Char;
    FileSize: DWORD;
    Reserved1: Word;
    Reserved2: Word;
    BitmapDataOffset: DWORD;
    BitmapHeaderSize: DWORD;
    Width: DWORD;
    Height: DWORD;
    Planes: Word;
    BitsPerPixel: Word;
    Compression: DWORD;
    BitmapDataSize: DWORD;
    HResolution: DWORD;
    VResolution: DWORD;
    Colors: DWORD;
    ImportantColors: DWORD;
  end;
      
var
  BitmapContent: TBitmapContent;
  BitmapData: TBitmapData;
  Steam: TFileStream;
begin
  Steam:= TFileStream.Create(FileName,fmOpenRead);
  Steam.Seek(0, soFromBeginning);
  Steam.Read(BitmapContent, sizeof(BitmapContent));
end;