{$APPTYPE CONSOLE}
uses
SysUtils, Classes;
procedure InsertWithOffset(const SourceFile, MainFile: string; Offset: Integer);
var
Source, Main: TFileStream;
begin
Writeln('Wklejanie pliku ' + SourceFile + ' do pliku ' + MainFile);
Writeln('Czekaj...');
Source := TFileStream.Create(SourceFile, fmOpenRead);
Main := TFileStream.Create(MainFile, fmOpenReadWrite);
Main.Seek(Offset, soBeginning);
Main.CopyFrom(Source, Source.Size);
Main.Free;
Source.Free;
Writeln('');
Writeln('Gotowe!');
Readln;
end;
begin
InsertWithOffset('BODYPROG.BIN', 'SILENT', $47800);
end.
mam oto taki kod
Plik bodyprog.bin (~660kb) jest wklejany do pliku silent (~77mb) w konkretnym miejscu
wszystko działa prawidłowo lecz teraz analogicznie potrzebuje wkleić ten plik silent do pliku sh.iso (~590mb)
tu zaczynają się problemy bo plik jest zmieniany lecz wartość w pliku zostaje wklejona zupełnie w niewłaściwy sposób
zmiany w pliku docelowym czyli w sh.iso są również w innych miejscach
jedyne co przychodzi mi do głowy to czy wina nie tkwi w tym że są jakieś ograniczenia co do rozmiaru plików bo reszta przecież się nie zmienia
jak można obejść ten problem?