Hallo Thomas,
dein Programm musst du selbst anpassen, aber hier zwei Routinen, die ein dynamisches Byte-Array aus einer Datei laden und in eine Datei speichern. Vielleicht hilft es dir zu verstehen:
Delphi-Quellcode:
uses
Types;
procedure ArrayLoad(var bda: TByteDynArray; fn: TFileName);
begin
with TFileStream.Create(fn, fmOpenRead + fmShareDenyWrite) do
begin
SetLength(bda, Size);
ReadBuffer(bda[0], Length(bda));
Free;
end;
end;
procedure ArraySave(bda: TByteDynArray; fn: TFileName);
begin
with TFileStream.Create(fn, fmCreate) do
begin
WriteBuffer(bda[0], Length(bda));
Free;
end;
end;
Freundliche Grüße vom marabu