Ich muss eine Datei binär einlesen, einzelne Bytes ändern und dann wieder in einer Datei speichern.
Leider scheitere ich bereits am Einlesen, obwohl ich ausgiebig im Forum gesucht habe:
Delphi-Quellcode:
procedure TEKG.ReadStream(const SelectedRoot, SelectedFile: string);
var
s: string;
i, BUFFERSIZE: integer;
ByteArray: array of byte;
begin
//Dateigröße feststellen
with tfilestream.create(SelectedRoot + SelectedFile ,fmopenread or fmShareDenyNone) do
try
size;
BUFFERSIZE := Size;
finally
Free;
end;
//Arraygröße festlegen
SetLength(ByteArray, BUFFERSIZE);
i := 0;
with TFileStream.Create(SelectedRoot + SelectedFile, fmOpenRead) do
try
Read(ByteArray, BUFFERSIZE);
finally
Free;
end;
//zum testen der Funktion lesbare Zeichen in Char umwandeln und in Memo1 anzeigen
for i := 1 to BUFFERSIZE do begin
if ByteArray[i] in [65..90, 97..122, 196, 214, 220, 228, 246, 252]
then s := s + Char(ByteArray[i])
end;
Memo1.text := s;
end;
Wenn ich das ganze mit einem statischen ByteArray mache, funktioniert es seltsamerweise korrekt. Aber ich weiß doch zum Entwurfszeitpunkt noch nicht, wie groß die zu lesende Datei ist.
Wer kann mir weiterhelfen und auch gleich sagen, wie ich anschließende zum Beispiel das Byte ByteArray[249] in die Zahl 09 ändere und das ganze in eine neue oder diesselbe Datei speichere?
Vielen Dank