Entwickler-Ecke

Internet / Netzwerk - idHTTP hilfe


s0xtech - Fr 03.08.07 18:49
Titel: idHTTP hilfe
hey


Thred neugeschrieben !! ich hatte kein Indy installiert. Deswegen gings nicht

so. Ich bin jetzt soweit. hab nur noch ne frage. ich hab ein formular was abgesant werden soll. ich will wissen ob ers gesendet hat oder nur eingetragen hat das ganze:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
 
procedure TForm1.LoginClick(Sender: TObject);
var sURL:String; slEintrag:TStringList; ausgabe:string;
begin
  slEintrag := TStringList.Create;
  sURL:='http://sound-base.extra.hu/admin/login-formular.php';
  with
  slEintrag do
  begin
    Values['name'] := name.Text;
    Values['passwort'] := pass.Text;
  end;
  try
    ausgabe:=IdHTTP1.Post(sURL,slEintrag);
    fehlermeldung.Text := 'loggedin';
  except
    fehlermeldung.Text := 'Senden fehlgeschlagen';
  end;
  slEintrag.Free;
end;


arj - Sa 04.08.07 10:41
Naja, wenn du was falsches Eintrags kommt ja nochmals die Loginseite.

Wenn du einfach die zurückgelieferte Seite nach "Login" überprüfst, dann weißt
du ob du "drin bist" *g* oder nicht.


Delphi-Quelltext 
1:
2:
3:
4:
 
If Pos('Login',ausgabe) > 0 then
  WriteLn('Drin')
else
  WriteLn('Nochmal versuchen');


Eventuell wäre eine Prüfung nach anderen Schlüsselwörtern oder ein Positivtest sinnvoller bzw. genauer.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!