Servus,
ich bin ganz neu bei Delphi und hätte da wegen einer Datenbankverbindung eine Frage. Ich habe mir den Quelltext von hier kopiert.
Zur Info:
Benutze Turbo Delphi aus Borland Studio 2006
libmysql.dll liegt in System / System32 / Projektverzeichnis
Version ist 5.1.41.0 direkt aus XAMPP rauskopiert
Die
mysql.pas und mysql_win32.inc sind im Projektverzeichnis
Quelltext:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
mySQL;
type
TFrame1 =
class(TFrame)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
_myCon: PMySQL;
//unseren Verbindungsdeskriptor
host, user, pass,
db: PChar;
//die Anmeldedaten
implementation
{$R *.dfm}
begin
//wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
//bestimmte Datenbank auszuwählen
host := '
localhost';
user := '
root';
pass :=
nil;
db := '
hallo';
//jetzt wird _myCon initialisiert
_myCon := mysql_init(
nil);
if _myCon =
nil then
begin
ShowMessage('
Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
//anschließend wird die Verbindung hergestellt
if mysql_real_connect(_myCon, host, user, pass,
db, 3306,
nil, 0) =
nil then
begin
ShowMessage('
Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
Exit;
end;
ShowMessage('
Verbindung hergestellt');
//zum Schluss wird die Verbindung wieder geschlossen
mysql_close(_myCon);
end.
jetzt kommt beim kompilieren folgende fehlermeldung:
Im Project1.exe ist eine
Exception der Klasse
Exception mit der Meldung '
MySQL: libmysql not loaded' aufgetreten.
Weiß jemand ne Lösung dazu? Im Voraus schonmal vielen Dank!