Marabus Code funktioniert einwandfrei, vielen Dank
Jetzt habe ich versucht, wie ich den stream wieder in die Datei zurückschreiben kann, mein kläglicher Versuch erzeugt aber nur ein (fast) leeres File:
Delphi-Quellcode:
procedure TEKG.WriteStream(const SelectedRoot, SelectedFile: string);
var
fs: TFileStream;
i: integer;
s: string;
begin
fs := TFileStream.Create(SelectedRoot + SelectedFile, fmCreate);
try
i := length(ba);
fs.Write(i, sizeOf(i));
finally
fs.Free;
end;
end;
Mit fs.Write(ba, Length(b)) bekomme ich eine Datei mit völlig zerstörten Daten zurück
Was mache ich denn schon wieder falsch
Ralf