Seltsam. 2 mal hat es geklappt. Dann beim 3ten mal kam diese Meldung:
"Die Verbindung konnte nicht hergestellt werden. Ursache:
Access denied for user 'root'@ '
localhost' (using password YES)
Dabei habe ich das Passwort und den zugang bei XAMPP nicht verändert. Host:
localhost, Benutzer : root, PW: Keins
Delphi-Quellcode:
SQLServer := PAnsiChar(AnsiString(edtServernameSQL.Text));
SQLBenutzer := PAnsiChar(AnsiString(edtBenutzernameSQL.Text));
SQLPasswort := PAnsiChar(AnsiString(edtPasswortSQL.Text));
SQLDatenbank := PAnsiChar(AnsiString(edtDatenbankSQL.Text));
procedure TfrmSQL.SqlVerbindung;
var
myConnect: PMySQL; //Verbindungsdeskriptor
begin
//jetzt wird _myCon initialisiert
libmysql_load(nil);
myConnect := mysql_init(nil);
if myConnect = nil then
begin
ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
//anschließend wird die Verbindung hergestellt
if mysql_real_connect(myConnect, SQLServer, SQLBenutzer, SQLPasswort, SQLDatenbank, 3306, nil, 0) = nil then
begin
ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(myConnect));
Exit;
end;
ShowMessage('Verbindung hergestellt');
//zum Schluss wird die Verbindung wieder geschlossen
mysql_close(myConnect);
end;
Bei SQLPasswort trage ich Nil ein und bei SQLDatenbank auch.