Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

cb01

Registriert seit: 4. Okt 2006
17 Beiträge
 
Turbo Delphi für Win32
 
#181

Re: MySQL ohne Komponenten

  Alt 14. Okt 2006, 16:41
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
  Mit Zitat antworten Zitat