Vielen Dank marabu, aber es funktioniert noch immer nicht. Folgende Variante funktioniert ebenfalls nicht:
Delphi-Quellcode:
DBMD5Hash, MD5Hash: String;
DBUsername, Username: String;
Q: TADOQuery;
...
{Begin check database for username and password}
Q := ADOQuery_WebinterfaceUser;
with Q do
begin
Open;
DBUsername := FieldByName('Username').AsString;
DBMD5Hash := FieldByName('MD5Hash').AsString;
Close;
end;
...
if (DBMD5Hash = MD5Hash) and (DBUsername = Username) then
begin
{Begin page load}
...
Ich bekomme nur leeres Zeug zurück, obwohl ich zu 100% sicher bin, dass die eingegebenen Daten mit jenen in der Datenbank übereinstimmen.
[Edit]
Natürlich mit folgender
SQL-Abfrage:
SQL-Code:
SELECT Username, MD5Hash
FROM WebinterfaceUser
WHERE Username = :Username
AND MD5Hash = :MD5Hash;