Text auf website auslesen / Text eingeben

[toddler1992]

Huhu,
ich sitze hier gerade an meinem ersten 'großem' Projekt und habe nun erstmal ein paar Probleme. Ich fand keine wirklichen Tutorials dazu und habe hier ein paar Fragen!

Ich möchte ein Tool schreiben das mit Accounts arbeitet, sprich überprüft ob der Account vorhanden ist etc.

Ziel : Username wird in einem Edit Feld eingegeben und per HTTP Komponente öffne ich die Seite : blabla.com/Username. Nun möchte ich auswerten was die Seite mir sagt, falls es : Die Seite wurde nicht gefunden ausgibt, soll dies dem Nutzer auch dementsprechend mitgeteilt werden. Mein Code funktioniert bereits, jeddoch habe ich keine Ahnung wieso..

Delphi-Quellcode:

Verbindung := TIdHTTP.Create(nil); //Opens the connection
sSourcecode := Verbindung.Get('http://instagram.com/' + user + '/');
sSourcecode2 := Copy(sSourcecode, Pos('<h1 class = "upuiUsername">', sSourcecode));
if sSourcecode2 = sUsername then
  begin
  ShowMessage('Account : http://instagram.com/' + sUsername + ' is valid.');

So habe ich das jetzt gemacht, nur habe ich keine Ahnung wie ich mit einer bestimmten Position arbeite.. das mit h1 habe ich aus einem anderen Source kopiert und da hat es dann auch funktioniert, wenn ich auf meiner gewünschten Seite jeddoch Element untersuchen mache, steht nirgendswas von H1.. hoffe mir kann einer erklären wie genau ich das mit der Position machen.

2. Wie gebe ich etwas auf der Website ein ? Muss ich das über einen unsichtbaren Webbrowser machen oder geht das zB über Verbindung.Post ? ( Verbindung ist in dem Code mein TIdHTTP )

[toddler1992]

Frage ist immernoch offen!

[hathor]

Zitat von toddler1992:

Mein Code funktioniert bereits, jedoch habe ich keine Ahnung wieso..
Frage ist immer noch offen!

Es kann z.Zt. niemand antworten - es krümmen sich alle vor Lachen...
Warte 24 Stunden!

[toddler1992]

Zitat von hathor:

Zitat von toddler1992:

Mein Code funktioniert bereits, jedoch habe ich keine Ahnung wieso..
Frage ist immer noch offen!

Es kann z.Zt. niemand antworten - es krümmen sich alle vor Lachen...
Warte 24 Stunden!

Gut, ich vergaß zu erwähnen das ich ein totaler Anfänger bin und mir das jetzt etwas peinlich ist, aber immerhin hat es einen positiven Nebeneffekt!

[p80286]

Zitat von toddler1992:

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.

[toddler1992]

Zitat:

Das halte ich für ein Gerücht!

Irgendwie hatte es den gewünschten Effekt!, vielen vielen Dank

Edit : Habe immer noch nichts zum Thema eingabe auf einer Website finden gefunden!