Hallo,
versuche es mal so:
Delphi-Quellcode:
function PatchStream(s: TStream; offset, size: Cardinal; const buf): Boolean;
begin
Result := (offset + size) <= s.Size;
if Result then
begin
s.Position := offset;
s.WriteBuffer(buf, size);
end;
end;
Getippt und nicht getestet.
Grüße vom marabu