HEX Position umschreiben

[F.Art]

Derzeit benutze ich einen HEX Editor um eine bestimmte Possition in einer Datei (Spielstand) um zu schreiben. Nur möchte ich dies nicht immer von Hand erledigen. Daher würde ich gerne ein Delphi Projekt machen, was diese Possition ermittelt und um schreibt.

Wie stelle ich das nun an?

[XHelp]

Wenn du nach "HEX" hier im Forum suchst, findest du jede Menge Themen darüber.
http://www.delphipraxis.net/123574-i...speichern.html
http://www.delphipraxis.net/55161-he...schreiben.html
http://www.delphipraxis.net/108318-d...-ausgeben.html
usw.

[F.Art]

Der dritte Link "Datei inhalt als HEX-String ausgeben..."
Interessiert mich, nur wenn ich das beispiel benutze bekomme ich eine Fehlermeldung.

procedure TForm1.Display(const S: string);
Undefinierter Bezeichner: ‚Display‘

--------------------------

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  datei: TMemoryStream;
begin
if FileExists('at') then begin
   datei := TMemoryStream.Create;
   try datei.LoadFromfile('at');
       finally datei.SaveToFile('at2') end;
   datei.Free
   end;
end;

mich würde noch interessieren wie groß eine datei sein darf um sie so einladen zu können in den speicher? und ich dachte mir das ich in dem memorystream nun die possition abändere und wieder speicher. nur habe ich noch keine idee wie ich die possition ansteuern lasse und ändere.

[Klaus01]

Zitat von F.Art:

Der dritte Link "Datei inhalt als HEX-String ausgeben..."
Interessiert mich, nur wenn ich das beispiel benutze bekomme ich eine Fehlermeldung.

procedure TForm1.Display(const S: string);
Undefinierter Bezeichner: ‚Display‘

Hallo,

du kannst Dir ein TMemo auf das Formular legen
und es Display nennen.
Dann dürfte der Fehler verschwinden.

Grüße
Klaus

[rollstuhlfahrer]

Zitat von F.Art:

mich würde noch interessieren wie groß eine datei sein darf um sie so einladen zu können in den speicher? und ich dachte mir das ich in dem memorystream nun die possition abändere und wieder speicher.

Wenn du einen TFileStream nimmst, dann dürfen die Dateien SEHR groß werden (> 3 GB). Bei der Verwendung eines TMemoryStreams bist du an die 2GB-Marke gebunden.

Bernhard

PS: Positionen steuert man sinnvollerweise mit .Position an.

[F.Art]

[QUOTE=Klaus01;1038129
Hallo,

du kannst Dir ein TMemo auf das Formular legen
und es Display nennen.
Dann dürfte der Fehler verschwinden.

Grüße
Klaus[/QUOTE]

das funktionierte nicht, habe es aber ans laufen bekommen.
procedure Display(const S: string); einfach bey types reingeschmissen.

Zitat von rollstuhlfahrer:

Wenn du einen TFileStream nimmst, dann dürfen die Dateien SEHR groß werden (> 3 GB). Bei der Verwendung eines TMemoryStreams bist du an die 2GB-Marke gebunden.

Bernhard

PS: Positionen steuert man sinnvollerweise mit .Position an.

also 2gb reicht mir voll und ganz.

also mit
datei.Position:=$AED3; kann ich anscheind auf die possition springen, nun möchte ich genau diesen wert durch 3F zb ersetzen, wie mache ich das?

[rollstuhlfahrer]

Zitat von F.Art:

das funktionierte nicht, habe es aber ans laufen bekommen.
procedure Display(const S: string); einfach bey types reingeschmissen.

Es liegt einfach daran, dass du es hier mit OOP zu tun hast. Heißt: Alles was du unterhalb von implementation an dein Objekt gebunden hast, muss auch oberhalb so sein und anders herum. Du musst also diese eine rot markierte Zeile in die Deklaration deines Objektes kopieren und den Objektnamen samt Punkt wieder aus der kopierten Zeile rausschmeißen.

Zitat von F.Art:

nun möchte ich genau diesen wert durch 3F zb ersetzen, wie mache ich das?

Jetzt kommt es darauf an, wie viele Bytes du ersetzen willst. Für 1 Byte kannst du Byte als Datentyp verwenden, 2 Bytes -> Word, 4 Bytes: Integer/Cardinal. Dann musst du in deine Variable (Zahl) deine Zahl reinschreiben. Mit Hilfe von .Write kannst du dann schreiben. .Read ist das äquivalent fürs lesen.

Bernhard

[F.Art]

Delphi-Quellcode:

procedure WriteHEX(fs: TMemoryStream; hexpos: string; hex: string);
var
  buf: array of byte;
  i: integer;
begin
fs.Position:=StrToInt('$'+hexpos);
SetLength(buf, Length(hex) shr 1);
for i := Low(buf) to high(buf) do
    buf[i] := StrToInt('$' + Copy(hex, Succ(i shl 1), 2));
fs.Write(buf[0], Length(buf));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('at') then begin
   datei := TMemoryStream.Create;
   try datei.LoadFromfile('at');
       finally
         WriteHex(Datei, 'AED6', 'FF');
         datei.SaveToFile('at2');
         end;
   datei.Free
   end;
end;

dies wäre nun meine lösung.
würde mir jemand dies nun noch optimieren und vereinfachen soweit es möglich ist?

[rollstuhlfahrer]

Da alle Streams in Delphi auf TStream aufbauen, würde ich die Prozedur nicht auf TMemoryStream beschränken, sondern es offen lassen, welche Art von Stream verwendet werden darf. Heißt: procedure WriteHEX(fs: TStream; ... . Außerdem würde ich die Prozedur nicht mit Stringwerten befüllen, sondern dafür echte Zahlen nehmen. HEX-Konstanten werden ja auch als Zahl übergeben.

Bernhard

[Blup]

Wird der Rückgabewert von Write nicht auswertet, statt dessen WriteBuffer verwenden.
Dann wird im Fehlerfall zumindest eine Exception ausgelöst.

Bitte rück mal den Code auch ordentlich ein, erstens ist es verständlicher und man findet eventuelle Fehler auch einfacher...