Wie lese ich den BINÄRCODE einer Datei aus?

[Ferber]

BlockRead und BlockWrite sind gut und schnell, haben aber den Nachteil das sie nur 'Portionen' lesen und schreiben.
Hat wieder einen Vorteil bei wahnsinnig grossen Dateien.

IMHO am elegantesten, und sauschnell, ist ein MemoryStream.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  ms.LoadFromFile('aFileName');

// Sieh Dir mal in der OH an:
// ms.Memory;
// ms.Read;
// ms.Write;

  ms.SaveToFile('aFileName');
  ms.Free;
end;