RawByteString in Exe modifizieren

[DieDolly]

Ich komme leider nicht weiter. Ich habe eine ausführbare Datei die an irgendeiner Stelle einen const RawByteString deklariert hat.
Den Inhalt dieses Strings kann ich auch wiederfinden, wenn ich die Exedatei in ein Bytes Array schreibe und dann mit TEncoding.ANSI.GetString() in eine Txt-Datei schreibe.

Das Problem ist aber, dass ich es nicht schaffe diesen String richtig zu ersetzen. Eine Exe-Datei 1 soll diesen RawByteString in der Exe-Datei 2 ersetzen.
Der String wird ersetzt aber der neue String, also der, der durch den alten ersetzt wird, wird auch an den Anfang der Datei geschrieben und ich habe keine Ahnung warum.

Delphi-Quellcode:

 const MyRawByte: RawByteString = '___ABCD';

 RawByteTmp:= MyRawByte;
 RawBytePos := Pos(string(RawByteTmp), StringOf(ByteStream.Bytes) + 3; // 3 = die 3 Unterstriche. Die UNterstriche bleiben bestehen. Nur das ABC wird ersetzt.

 // Das Ersetzen passiert hier
 ReplaceWith := 'EFGH';
 Move(ReplaceWith[1], ByteStream.Bytes[RawBytePos - 1], 4); // 4 = die Länge des Strings der ersetzt wird, hier ABCD
 ByteStream.SaveToFile('newfile.exe');

Das funktioniert soweit ja auch und ABCD wird durch DEFG in der fertigen Exe ersetzt. Aber warum wird EFGH auch an Position 0 der Datei geschrieben?

[TiGü]

Bau uns doch bitte eine Projektgruppe mit zwei Konsolenprojekten A und B, in dem B dann entsprechend die EXE A modifiziert.

[himitsu]

Was ist ReplaceWith für ein Typ? (ich hoffe doch auch irgendeiner ANSI-Typen)

Und im POS würde ich den String nicht casten, denn dann bekommst du die Position im Unicode-String, anstatt im Original, auch wenn RawByteString zumindestens CodrpageConvertierungen umgewandelt werden sollty, also die Ord(Char) sollten gleich bleiben und demnach die Indize theoretisch gliech bleiben.


Besser über die String-Helper gehen, denn dort sind Indize immer 0-basiert.
Bei den Strings selber liegt Low(string) normal bei 1, aber in den NextGen-Compilern (Android, iOS, ...) fängt der String standardmäßig bei 0 an. (so wie normale Arrays)

[freimatz]

Weil bei Pos die Fehlerbehandlung fehlt?

[himitsu]

Abgesehn davon:
Warum kein RessourceString?

Delphi-Quellcode:

resourcestring
  deineKonstante = 'asdfasdfsda';  // wird über einen "zufälligen" String-Index in den Ressourcen gespeichert

bei Verwendung dieser Konstante wird intern LoadString vewendet

oder über den Ressourcen-Manager von Delphi (in die *.res jedes Projekte)
oder über eine eigene RC/RES-Datei
> hier jeweils über LoadString bzw. LoadResource/FindResource/... den String laden



und dann entweder selber mit UpdateResource oder über einen der vielen Resource-Editoren (teilweise lassen sie sich auch via Parameter steuern) diese Ressorce ändern, ohne bösswillig den "Programmcode" zu verändern.

und sowas lässt sich auch zur Laufzeit anpassen
* z.B. durch hooken der Load-Funktion (wird z.B. von einigen Lokalisierungskomponenten verwendet, um eine andere Sprache zu laden)
* oder über zusätzliche Dateien (z.B. siehe die .DE-Dateien neben den .BPL der Delphi-Packages)

[freimatz]

Warum? Vermutlich weil die "Exe-Datei 2" gar nicht von ihm ist.