Einzelnen Beitrag anzeigen

CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#1

MySQL-API will nicht die 1.

  Alt 18. Feb 2003, 19:51
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
  Mit Zitat antworten Zitat