Delphi-Quellcode:
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, PAnsiChar('
localhost'), PAnsiChar('
root'),
nil,
nil, 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;
es funktioniert, danke !!!
Nur noch eine Frage, zum Verständnis und weil es auch wichtig ist für das weitere Projekt.
Die libmysql.dll die aus dem XAMPP Ornder ist das eine allgemeine Datei oder speziell für XAMPP ?
Hintergrund: Das ganze ist ein Schulprojekt und der Lehrer will das ganze erst auf einem XAMPP Server sehen bevor er uns die Daten des Schulservers gibt, auf dem das Programm dann laufen soll.