Byte Seek & Patch

[ReVenGer]

Da mir hier schon super weitergeholfen wurde, hab ich nochmal eine Frage:

Ich suche ein Byte mit:
FStream.Seek(89,soFromBeginning); Gibt es irgendwie die möglichkeit das Byte auch so direkt zu überschreiben?


Gruß

[marabu]

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

[ReVenGer]

Abgetippt und getestet. Danke Dir!

Gruß