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.