Einlesen von Binärdateien

[RuX]

Ok danke für eure Tipps.
So sieht jetzt meine Lösung aus:

Delphi-Quellcode:

var fs: tfilestream;
    buffer: array of byte;
    l: integer;
begin
  fs := TFileStream.Create(AFile, fmOpenRead);
  try
    l := fs.Size;
    SetLength(Buffer, l);
    fs.Seek(0, soFromBeginning); //sicherheitshalber
    l := fs.Read(buffer[0], l); //wichtig: erstes element des arrays da pointer
  finally
    fs.free;
  end;
end;