Datei in array of Byte öffnen und Speichern

[bixi400]

hi!

Wie kann ich eine Datei in einem "array of Byte" öffnen
und nach dem Bearbeiten wieder 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]

[bixi400]

Danke Funktioniert!!! :hello: :hello: :spin2: :spin2:

[Jens Schumann]

Achtung: Es funktioniert aber nur mit kleinen Dateien
Wenn Du eine z.B. 100 MB Datei öffnest wird die komplett in der Arbeitsspeicher geladen.
Wenn es darum geht auf die einzelnen Bytes zuzugreifen ist 1. ziemlich langsam und 2. Arbeitsspeicherverschwenderei erster Extraklasse. Das Array wird dann ebenfalls 100 MB groß sein.

Wenn Du auf die einzelnen Bytes zugreifen möchtest bis Du mit Seek besser bedient.
Verwende lieber folgende Methoden

Delphi-Quellcode:

function ReadByteFromStream(aStream: TStream; aIndex: Int64): Byte;
begin
  aStream.Seek(aIndex,soFromBeginning);
  aStream.Read(Result,SizeOf(Byte));
end;

procedure WriteByteToStream(aStream: TStream; aIndex: Int64; aByte : Byte);
begin
  aStream.Seek(aIndex,soFromBeginning);
  aStream.Write(aByte,SizeOf(Byte));
end;

aIndex entspricht dann dem ArrayIndex.