Binärbild einlesen

[Neutral General]

Nur ne kleine Anmerkung am Rande. Ich würde statt SmallInt vielleicht lieber den Datentyp "Word" benutzen. Vorzeichen brauchst du wohl eher nicht und die verwirren im Zweifelsfall nur.(bzw. könnte denke ich auch wirklich Probleme geben)

[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;