Thema: Delphi DLL patchen

Einzelnen Beitrag anzeigen

Benutzerbild von stoxx
stoxx

Registriert seit: 13. Aug 2003
1.111 Beiträge
 
#2

Re: DLL patchen

  Alt 10. Feb 2004, 17:41
Zitat von Pseudemys Nelsoni:
hoi,

ich würd gern das wort "www.bla.de" aus einer dll durch "www.blablabla.de" ersetzen.
Ich hatte schonmal so eine Frage und habe diesen Link bekommen:

http://www.swissdelphicenter.ch/de/showcode.php?id=25

leider ersetzt das nur Text gleicher Länge und ist dazu noch ziemlich lahm, bei einer 13mb datei brauchtsa schon minuten...

hat jemand eine andere idee?

- das geht wirklich nur mit Strings gleicher Länge, da sonst die Sprungadressen danach alle falsch werden. (
ansonsten müsstest die DLL vorher disassemblieren).

Vorschlag. wenn es Deine eigene DLL ist könntest Du die Länge "reservieren"

mit s := 'www.delphipraxis.de.............................. ...';
(edit: Punkte deshalb, da das Forum die vielen leerzeichen automatisch entfernt, aber ansonsten leerzeichen )

somit hättest mehr Platz. und beim verwenden dann halt kurz trim() verwenden, um die leerzeichen zu entfernen.

- das ist deswegen so langsam. da dort bei einer 1000 byte langen Datei und einem 8 byte langen String
insgesamt 1000 !! mal 8 bytes gelesen werden. Du liest also 8 mal soviel wie nötig.

Du müsstest es mit einem file of byte oder Tfilestream / TMemorystream probieren.

ich hab hier mal Code,
Die Funktion is eingetragen prüft nur ob ein String vorhanden ist.
(hat aber noch eine kleine Schwäche, wird aber etwas komplizierter, das zu verhindern, soviel zeit hatte ich da nicht *g')
Den müsstest selber nochmal ändern, und Dir beim Finden die Position merken.
Und dann mit seek an der position den neuen String reinschreiben.


Code:
function isvorhanden(p: Pointer; ByteCount: DWORD; eintrag : string) : boolean;
var
  i: DWORD;
  q : ^BYTE;

  lauf : integer;
  gefunden : boolean;
  l : integer;

begin
  result := false;
  q := p;
  lauf := 1;
  l := length(eintrag) + 1;
  gefunden := false;

  i := 0;

  for i := 0 to ByteCount - 1 do
  begin
      /// ACHTUNG !! findet nicht 'abc' in einem String 'aabc' aber nicht so schlimm
      // findet nur 'abc' in einer abfolge '343*abc' wobei * <> erste buchstabe vom String
      if (q^ = ord(eintrag[lauf]) )
           then inc(lauf) else lauf := 1;
       if lauf >= l then gefunden := true;


      Inc(q);
  end; // von for

  result := gefunden;

end; // von isvorhanden

//////////////////////////////////////////////////////////////////////////////////

function iseingetragen(pfad, substr : string) : boolean;
var
  Stream: TMemoryStream;


begin
result := false;
  Stream := TMemoryStream.Create;
  try
    try
      Stream.LoadFromFile(pfad);
      if Stream.Size > 0 then
        begin
         result :=  isvorhanden(Stream.Memory, Stream.Size, substr)
        end;

     except

    end;


  finally
    Stream.Free
  end;

end; // von eingetragen

Gruß
stoxx
  Mit Zitat antworten Zitat