Binärbild einlesen

[Aphton]

Probier mal folgendes und sag bescheid, obs geklappt hat:

Delphi-Quellcode:

procedure ReadFile(filename:string);
var fs:   TFileStream;
    bmp:  TBitmap;
    p:    PWord;
    x:    Integer;
    y:    Integer;
begin
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf16bit;
    bmp.Width := 550;
    Bmp.Height := 550;
    fs := TFileStream.Create( filename, fmOpenRead );
    try
      for y := 0 to bmp.Height - 1 do
      begin
        p := bmp.ScanLine[y];
        for x := 0 to bmp.Width - 1 do
        begin
          fs.Read( p^, 2 );
          inc( p );
        end;
      end;
      form1.Image1.Picture.Bitmap.Assign( bmp );
    finally
      fs.Free;
    end;
  finally
    bmp.Free;
  end;
end;