MYSQL Login Script

[samso]

Zitat:

query := 'SELECT username,password FROM user WHERE username = '+username.Text+ 'AND password = '+password.text;

Anderer Vorschlag:

Delphi-Quellcode:

        query := 'SELECT NULL FROM user WHERE username = ' + QuoteString(username.Text) + 
                 ' AND password = ' +  QuoteString(password.text);

(Falls die aktuelle mysql.pas genutzt wird.)

[blawen]

Anderer Vorschlag:

Delphi-Quellcode:

Query.SQL.Text := 'SELECT username,password FROM user WHERE ' +
                  'username = :username AND ' +
                  'password = :password';
 
Query.ParamByName('username').AsString := Username.Text;
Query.ParamByName('password').AsString := Password.Text;
Query.Active := True;

Den Vergleich kannst Du dann einfach über die Rückmeldung machen.

Delphi-Quellcode:

If Query.RecordCount <> 1 
  then...
  else...

PS: Wo führst Du den SQL-Befeh eigentlich aus? (Letzte Zeile im obigen Bsp.)

[samso]

@blawen: Geht gar nicht, weil die C-API keine Parameter kennt. Dies geht nur mit dem DB-Zugriff über eine der vielen Delphi-Klassen. Die C-API ist eine Funktionssammlung, die keine Klassen benutzt.

[1carter1]

mysql_real_query(Con,PChar(query), Length(query)); hier wird der befehl ausgeführt.

[blawen]

Zitat von samso:

@blawen: Geht gar nicht, weil die C-API keine Parameter kennt. Dies geht nur mit dem DB-Zugriff über eine der vielen Delphi-Klassen. Die C-API ist eine Funktionssammlung, die keine Klassen benutzt.

OK, Schade eigentlich...

Zitat von 1carter1:

mysql_real_query(Con,PChar(query), Length(query));

...aber man lernt eben nie aus

[Sharky]

Zitat von 1carter1:

... habs auch schon lange hinbekommen, ...

Die Höflichkeit gebietet es die anderen zu informieren wenn Du deinen Fehler "gefunden" hast.