Hi Leute!
Folgende Funktion soll mir dazu dienen, den Namen von HTML-Inputs z.B. vom Typen "Password" auszulesen.
"Bezeichnung" wäre in diesem Fall 'type="password"'
Dazu wird der gesamte Quelltext per IdHTTP ausgelesen. Dann wird ein 100 Stellen großes Stück, in welchem sich auf jeden Fall "Bezeichnung" befindet in "Name" gespeichert.
An "Name" wird dann so lange per Delete() herumgeschnitten, bis eigentlich in "Name" der Tatsächliche Name des Inputs stehen müsste.
Naja, das Problem:
Es funktioniert natürlich nicht wie es soll, und liefert manchmal sogar strings, die überhaupt gar nicht im quelltext zu finden sind...!!
WARUM??
Ich hoffe, mir kann jemand helfen. Danke schomma!
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| function GetPasswordName(idhttp:TidHttp ;Bezeichnung:String):string;
var
a,i,stelle:integer;
name,text:string;
begin
text:=idhttp.Get(adresse);
stelle:=pos(Bezeichnung,text)-50;
for i:=0 to 100 do
begin
name:=name+text[stelle+i];
end;
delete(name,1,pos('name="',name)-1);
delete(name,pos('name="',name),6);
a:=length(name)-pos('"',name);
delete(name,pos('"',name),a);
result:=name;
end; |
