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