Mein Code funktioniert bereits,
Das halte ich für ein Gerücht!
Delphi-Quellcode:
sSourcecode2 := Copy(sSourcecode, Pos('<h1 class = "upuiUsername">', sSourcecode));
Was auch immer in sSourcecode steht, zum einen erwartet
copy
als dritten Parameter einen Integer . Sehr unwahrscheinlich, daß es da keine Fehlermeldung gibt.
Übrigens ist <h1 bzw. <H1 die Einleitung für die Überschrift/Header (Schau mal
hier herein.
Falls das mal funktionieren soll dann müßte das ungefähr so ausssehen:
Delphi-Quellcode:
const
TEXTTOFIND='<h1 class = "upuiUsername">';
sSourcecode2 := Copy(sSourcecode, Pos(TEXTTOFIND, sSourcecode)+length(TEXTTOFIND),UserIDLaenge);
Wobei TEXTTOFIND natürlich an die konkreten Gegebenheiten der Gegenseite angepasst werden muß.
Gruß
K-H
Nachtrag:
Ich hab da noch etwas verpennt:
Man sollte nicht blind darauf vertrauen, daß der gesuchte String auch wirklich vorhanden ist:
[DELPHI][/
const
TEXTTOFIND='<h1 class = "upuiUsername">';
var
tp:integer;
tp:=Pos(TEXTTOFIND, sSourcecode);
if
tp>0 then
sSourcecode2 := Copy(sSourcecode,
tp+length(TEXTTOFIND),UserIDLaenge);
DELPHI]
Sollte sSourcecode hinter TEXTTOFIND zu Ende sein, geht der Griff immer noch ins Leere, aber das kann man ja auch vorher prüfen.