Header einer Grafikdatei auslesen und dann die Datei öffnen

**MAINFRAIME**

Wie funktioniert dass mit den headern, ich kann so einige Infos über eine BMP Datei erhalten.

Delphi-Quellcode:

			var

  fileheader: TBitmapfileheader;

  infoheader: TBitmapinfoheader;

  s: TFilestream;

begin

  s := TFileStream.Create('c:\tmp\01.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;

Aber wie kann ich dass jetzt in eine Paintbox laden.
Und wie kann ich dass mit anderen Dateiformaten machen.

Header einer Grafikdatei auslesen und dann die Datei öffnen

Header einer Grafikdatei auslesen und dann die Datei öffnen

Forumregeln