[Resolvido] Alterar memory stream
Bom dia amigos,
Queria saber como posso alterar uma string em um memory stream, segue meu código,
ele escreve porem fica tudo em simbolos.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
MyStream: TMemoryStream;
C: string;
Cont: integer;begin
MyStream := TMemoryStream.Create;
MyStream.Clear;
try
MyStream.LoadFromFile(GetCurrentDir()+'\game.exe');
C := 'BBBBBBBBBBBBBBBB';
MyStream.Position := 1388135;
MyStream.WriteBuffer(C, Length(C));
MyStream.SaveToFile(GetCurrentDir()+'\game2.exe');
finally
MyStream.Free;
end;
end;
Grato.
Discussão (1)
Carregando comentários...