Hmm ich seh den Fehler nicht, vielleicht weiß wer von euch weiter.
Folgender Code funktioniert einwandfrei, während die Stream-Variante eine Exception bei jedem ReadBuffer auswirft mit der Meldung Stream-Lesefehler.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTGAFile = record
    iType: byte; // should be 2
     w, h: word; // Width, Height
      bpp: byte; // Byte per Pixel
     data: ^byte; // Pixels, dynamic length
  end;

procedure LoadTGA(const filename: string; var TGAFile: TTGAFile);
var f: file; bytes: longword;
begin
  assign(f, filename);
  reset(f, 1);

  // type
  seek(f, 2);
  blockread(f, TGAFile.iType, 1);

  // w, h, bpp
  seek(f, 12);
  blockread(f, TGAFile.w, 5);
  TGAFile.bpp := TGAFile.bpp div 8;
 
  // data
  bytes := TGAFile.w * TGAFile.h * TGAFile.bpp;
  getmem(TGAFile.data, bytes);
  seek(f, 18);
  blockread(f, TGAFile.data^, bytes);
 
  close(f);
end;

Stream-Variante, TTGAImage ist mit TTGAFile identisch und lediglich umbenannt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure LoadTGA(const filename: string; var TGAImage: TTGAImage);
var
  FStream: TFileStream;
  ImageSize: longword;
begin
  FStream := TFileStream.Create(filename, fmOpenRead);
  try
    //iType
    FStream.Seek(soFromBeginning, 2);
    FStream.ReadBuffer(TGAImage.iType, 1);

    //w, h, bpp
    FStream.Seek(soFromBeginning, 12);
    FStream.ReadBuffer(TGAImage.w, 5);
    TGAImage.bpp := TGAImage.bpp div 8;

    //Data
    ImageSize := TGAImage.w * TGAImage.h * TGAImage.bpp;
    GetMem(TGAImage.data, ImageSize);
    FStream.Seek(soFromBeginning, 18);
    FStream.ReadBuffer(TGAImage.data^, ImageSize);
  finally
    FStream.Free;
  end;
end;

FStream.Seek(2, soFromBeginning);