Einzelnen Beitrag anzeigen

toddler1992

Registriert seit: 18. Feb 2015
6 Beiträge
 
#1

Text auf website auslesen / Text eingeben

  Alt 18. Feb 2015, 12:24
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 )
  Mit Zitat antworten Zitat