Hi,
folgender Source:
Delphi-Quellcode:
var
_Query:
String;
_connecter: PMYSQL;
begin
_connecter.host := PChar(sDBHost);
_connecter.user := PChar(sDBUser);
_connecter.passwd := PChar(sDBPass);
_connecter := mysql_connect(_connecter, PChar(sDBHost), PChar(sDBUser), PChar(sDBPass));
mysql_select_db(_connecter, '
chrishde');
_Query := '
SELECT * FROM members WHERE charUsername LIKE ''
'+LabeledEdit1.Text+'
''
AND charPassword LIKE ''
'+LabeledEdit2.Text+'
''
;';
if mysql_query(_connecter, @_Query[1]) <> 0
then begin
MessageDlg('
Fehler beim senden einer MySQL-Abfrage', mtError, [mbOK], 0);
Exit;
end;
if mysql_num_rows(mysql_store_result(_connecter)) = 1
then
ShowMessage('
Right!');
mysql_close(_connecter);
end;
Wenn ich jetzt aber compiliere, dann läuft das, aber wenn ich auf den Button klicke, dann kommt eine
AV und das Programm wird an der Zeile
_connecter.host := PChar(sDBHost);
angehalten.
Ich nutze die
MySQL-
API, die auch beim
MySQL-Server dabei ist. Hat jemand eine Idee/Lösung?
Chris