Einloggen auf Website

[pinky1990]

habe folgenden Code:

Delphi-Quellcode:

2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
var
  http: TIdHTTP;
  s: String;
  Params: TStrings;
begin
  http := TIdHTTP.Create(nil);
  try
     //wenn die Übertragungsmethode POST ist
    Params := TStringList.Create;
    try
      Params.add('username='+Edit1.Text);
      Params.Add('passwort='+Edit2.Text);
      s := http.Post('http://xxx-xxxxx.xx/upp/xxx/xxxxx.php', Params);
    finally
      Params.free;
    end;

    ShowMessage(s); //Zeigt den Quellcode der Eregbnis- / Login- / oder sonstwas - Seite an
  finally
    http.free;

Und das mein php script:

Code:

<?php

$root_path = realpath(dirname(__FILE__).'/../../') . '/';

include("$root_path/upp/inc/class_template.php");
include("$root_path/upp/inc/config.php");
include("$root_path/upp/inc/funktionen.php");
require_once("$root_path/upp/errorHandling/mainErrorHandling.php");

$action = $_POST["action"];

$loggedin = false;

switch($action)
{
   case "login":
      $passwort = $_POST["passwort"];
      $username = $_POST["username"];
      $passwort = md5($passwort);
      
      $SQL = new mysqli(DB_HOST, DB_USER, DB_PW, DB_NAME);
        $query = $SQL->prepare("SELECT password, aktiv FROM upp_users WHERE username = ?");
        $query->bind_param("s", $username);
        $query->execute();
        $query->bind_result($password, $aktiv);
        $query->fetch();
      
      if($passwort == $password)
      {
            if($aktiv == 1) $loggedin = true;
      }
      
      break;
}

?>

So mit dem überprüfe ich ob die beiden eingaben in Edit Feld korreckt sind sprich username und Passwort.
Etz sollte aber wen der User existiert und das passwort korreckt ist form2 kommen wie mach ich das hab davon leider kein plan.

mfg

[wicht]

Gibt dein Delphi-Programm den Parameter "action" mit? Den vermisse ich hier. Ansonsten Debug-Ausgaben ins PHP bauen und mal mit einem Browser testen (dazu evtl von POST auf GET umstellen, temporär)?

Hm, und vielleicht wäre es nicht schlecht, wenn du vor dem Posten deine Rechtschreibung/Grammatik mal überprüfst...

[Luckie]

Warum kommt mir das so bekannt vor? http://www.delphi-forum.de/viewtopic...ighlight=login

Wenn schon Crosspostings erstellt werden, dann bitte auch verlinken.

[wicht]

Da muss ich mich ja schon fast für meine Antwort schämen.
Und ich bin nichtmal auf das ominöse "form2" eingegangen :( .. 0 Punkte für wicht.

[Luckie]

Wenn die Antwort in s steht, dann brauchst du doch nur noch gucken, was drin steht. Wenn das drin steht, was bei einem erfolgreichen Login drin steht, dann ruf Form2 auf.

Stichworte: if, pos, ...

[wicht]

Und die Form öffnest du vermutlich mit "Form2.Show", wenn du mit den herrlichen globalen Form-Variablen arbeitest...

[pinky1990]

Was meinst du mit

Zitat:

Wenn die Antwort in s steht, dann brauchst du doch nur noch gucken, was drin steht. Wenn das drin steht, was bei einem erfolgreichen Login drin steht, dann ruf Form2 auf.

[Luckie]

Na da wird dcoh was unterschiedliches drin stehen wenn der Login erfolgreich war oder nicht.

[pinky1990]

Ja aber wie überprüf ich des?

[Luckie]

Liest du auch meine Antworten? Mit pos und if.

[pinky1990]

ja klar aber hab noch nie damit gearbeitet :(

[Luckie]

Dann guck in der Hilfe oder suche hier im Forum. Auch die Codevervollständigung hilft.

[pinky1990]

Da find ich aber leider nichts

[Luckie]

Jetzt willst du mich aber veräppeln. Dann nutze die hier im Forum auf der Portalseite verlinkte online Hilfe.

Was steht denn im Erfolgsfall in s drin und was wenn der Login fehlschlägt?

[wicht]

Gut, dann nochmal ich...

Du hast noch nie irgendwas mit Delphi gemacht, oder? Der Code, den du da hast, wurde von irgendwelchen Quellen her zusammengeholt, aber du hast keine Ahnung, was da überhaupt passiert.
Falls das stimmt: Zieh dir ein paar Delphi-Tutorials rein. Besonders schwierig ist das nicht, aber wenn du deinen Beispielcode postest und sagst, dass du so kein "if" und "Pos()" kennst, wird das hier zu nichts führen. Also, steig erstmal in die Materie ein. Wenn du bei einem Tutorial fragen hast, wird dir sicherlich auch besser geholfen - weil du dann deine Fragen besser formulieren kannst, weil du weißt, was du vor hast, und was du bis jetzt wie gemacht hast. Falls du gerade mit Delphi angefangen hast, ist das hier vermutlich eine Nummer zu groß.

Ist alles nicht böse gemeint, nur ein gut gemeinter Ratschlag.


Edit: Roter Kasten. Aber der Post hier muss raus.

[pinky1990]

wieso kommt bei diesen code:

Delphi-Quellcode:

var
  s:string;
  stream: TStringList;
  begin
  try
    try
        stream := TStringList.Create;
      Stream.Add('username='+Edit1.Text);
      Stream.Add('passwort='+Edit2.Text);
      Stream.Add('action=Login');
      s := idhttp1.Post('http://www.pup-board.de/upp/uem/uem_funktionen.php',stream);

      if (Pos('Du bist als',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');
      if (Pos('Du bist als',s) = 0) then //Fehler!
        ShowMessage('Leider ist der Username oder das Passwort Falsch.');
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;

Immer Leider ist der username oder das Passwort falsch??
mfg

[Teekeks]

Was steht denn in S drin?

[pinky1990]

weis ich nicht wie lese ich das aus?

[implementation]

Nachdenken :roll:
Wie wäre es mit der Prozedur, die mit "Show" anfängt, mit "Message" aufhört, einen String als Parameter erwartet, und die du in deinem Code bisher schon 2x benutzst?
Richtig, ShowMessage.
Soll ich dir jetzt noch sagen, an welche Stelle genau das hingehört?
Und wie man es buchstabiert?
Und was du als Parameter/Argument angeben musst?

[wicht]

Nein, du solltest einfach ein fertiges Programm posten, so dass der TE gar nichts mehr machen muss...

[Teekeks]

Zitat:

Zitat von implementation (Beitrag 1057751)

die du in deinem Code bisher schon 2x benutzst?

[KLUGSCHEISS]
Falsch!
Sogar schon 3x!
[/KLUGSCHEISS]

[pinky1990]

Wenn ich s mit einer Showmessage(s); auslese und ich mich dan einloggen will kommt Username oder Passwort Falsch und danach kommt zwar der showmessage dialog aber der ist leer.

lg

[implementation]

Was schließt du daraus?
Richtig, s ist ein leerer String.

[Luckie]

Aber was dir hier http://www.delphi-forum.de/viewtopic.php?t=102138 gesagt wurde hast du schon verstanden und berücksichtigt?

[pinky1990]

Ich schaff es einfach nicht
kann man es nich irgendwie so machen das ich das ergebnis per echo von php script ausgeben lass oder so?

lg

[Luckie]

Klar kann man das. Du musst dann eben das PHP-Skript entsprechend schreiben.