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