text in dll finden und ersetzen?

[Pseudemys Nelsoni]

hoi,

ich suche einen bestimmen text in einer dll (natürlich ist mit einem texteditor nichts zu erkennen weil ja alles verschlüsselt is). also in dieser dll steht ein server z.b "irgendwas.bla.de:6999" diesen möcht ich ledeglich ersetzen, weiss jemand wie ich das mache?

[Pseudemys Nelsoni]

folgendes, die dll ist doch nicht verschlüsselt, also den text den ich ändern will seh ich,
wie ändere ich ihn? mit var t: TextFile; ? ne oder?

[toms]

Hi,

Vielleicht lässt dich das inspirieren?

[Pseudemys Nelsoni]

hoi,

sieht bisschen schwer aus mit Seek usw, kann ich mit File nicht auch die datei in einen string geben und beim speichern wieder in die datei?

danke nochmal

[sakura]

Zitat von Pseudemys Nelsoni:

kann ich mit File nicht auch die datei in einen string geben und

Nein, da Binärdateien auch Steuerungszeichen enthalten können, die bei Strings Probleme bereiten. (z.B. #0)

......

[Pseudemys Nelsoni]

ah ok,

kannst du mir noch sagen was die schleife in dem beispiel tut?

[Pseudemys Nelsoni]

ich hab das jetztmal so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: File;
  s: string;
  ww: string;
  wu: string;
  i: integer;
begin
  ww := 'blaaa';
  wu := 'hallo';
  s := ww;
  AssignFile(f, pfad);
  reset(f);
  for i := 0 to FileSize(f) - Length(ww)-1 do
  begin
    Seek(f, i);
    BlockRead(f, ww[1], Length(ww));
    if ww = s then
      BlockWrite(f, wu[1], Length(wu));
    Application.ProcessMessages;
  end;
  CloseFile(f);
end;

testweise in einer textdatei, in dieser steht "blaaa" wird aber nicht durch "hallo" ersetzt, ist da ein fehler?

[Pseudemys Nelsoni]

hab schon, musste reset(f, 1); statt reset(f); heissen

mfg und danke

[toms]

Ersetze mal das:
for i := 0 to FileSize(f) - Length(ww)-1 do durch das:
for i := 0 to FileSize(f) - Length(ww) do

[Pseudemys Nelsoni]

hoi toms, hab ich, aber beide möglichkeiten gehen, kannst du mir sagen warum ohne -1?

mfg