Datei in array of Byte öffnen und Speichern

[MrKnogge]

Ich würde sie mit einem TFileStream in das array einlesen.

ungetestet:

Delphi-Quellcode:

...

var
  Form1: TForm1;
  MyDat: array of Byte;

...

// einlesen
procedure TForm1.btnlesenClick(Sender: TObject);
var
  fs: TFileStream;
  i: integer;
begin
  fs := TFileStream.Create('C:\test.dat', fmOpenRead);
  SetLength(MyDat, fs.Size);
  for i := 0 to fs.Size-1 do
    fs.Read(MyDat[i], SizeOf(byte));
  fs.free;
end;


// speichern
procedure TForm1.btnlesenClick(Sender: TObject);
var
  fs: TFileStream;
  i: integer;
begin
  fs := TFileStream.Create('C:\test.dat', fmCreate);
  for i := 0 to High(MyDat) do
    fs.Write(MyDat[i], SizeOf(byte));
  fs.free;
end;

[edit]fs.free vergessen[/edit]