Hi,
ich will mich mal etwas mit diesem Tutorial befassen, aber leider habe ich bereits am Anfang ein Problem, jedes mal wenn ich versuche die Verbindung herzustellen, kriege ich diese Meldung
Zitat:
Client does not Support authentication protocol request by server; Consider upgrading
MySQL Client
Die Firewall(McAfee Personal Firewall Plus) habe ich eigentlich soweit eingerichtet, aber dennoch kriege ich den Fehler nicht weg.
Hat evtl. jemand einen Tipp für mich?
Mein Code:
Delphi-Quellcode:
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit12;
type
TForm11 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
var
_myCon: PMySQL;
//unseren Verbindungsdeskriptor
host, user, pass,
db: PChar;
//die Anmeldedaten
begin
//wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
//bestimmte Datenbank auszuwählen
host := '
localhost';
user := '
root';
pass :=
nil;
db :=
nil;
//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;
end.
Gruß
Chris