Ein Möglicher Ansatz, nur hier im Editor erstellt als Vorwarnung....
Delphi-Quellcode:
Procedure DollyCopy(const SourceFilename, TargetFilename: string);
var
Source, Target: TFileStream;
Begin
Source := TFileStream.Create(SourceFilename, fmOpenRead);
Try
Target := TFileStream.Create(TargetFilename, fmOpenWrite OR fmCreate);
Try
Target.CopyFrom(Source, Source.Size);
Finally
Target.Free;
End;
Finally
Source.Free;
End;
End;
Noch wird nichts geprüft, noch wird alles in einem Rutsch erledigt, das soll lediglich die Basics verdeutlichen.
Es gibt auch zig andere Möglichkeiten.... so in etwa sieht meine auch aus, nur das ich nicht alles auf einmal lese/schreibe.