MySQL ohne Komponenten

[Chewie]

Zugriff auf MySQL mit der MySQL-C-API

Fast jeder, der schon mit PHP gearbeitet hat, kennt wohl den Datenbankserver MySQl, und die meisten von euch werden wohl auch schon von PHP aus damit gearbeitet haben.
Während das mit PHP sehr einfach und unkompliziert ist, erscheint es mit Delphi am Anfang recht kompliziert. Gerade wenn man noch keine Datenbankerfahrungen mit Delphi verbuchen kann, erscheint die Benutzung der Zeos-Komponenten oder auch der ODBC-Schnittstelle aufwändig und kompliziert. Ganz zu schweigen von der Tatsache, dass Komponenten, die von Zeos benötigt werden, bei den Standard- und Personal-Versionen von Delphi nicht dabei sind.
Was liegt also näher, als auf diese Komponenten zu verzichten und eine Alternative zu suchen? Besonders, wenn man bereits mit PHP und MySQL gearbeitet hat, dürfte man sehr gut mit der hier vorgestellten Methode zurechtkommen.

Das Tutorial handelt davon, wie man die C-API von MySQL in Delphi einsetzt. Ja, ihr habt richtig gelesen, C-API, so heißt es auf der MySQL-Website. Nichtsdestotrotz kann man diese API (= Application Programming Interface) natürlich auch mit Delphi verwenden.
Anmerkung: SQL-Kenntnisse werden hier nicht vermittelt. Die sind Voraussetzung zum Begreifen dieses Tutorials.
Dafür notwendig sind in erster Linie einmal die Pascal-Übersetzungen der C-Header für die MySQL-Bibliothek (und natürlich die Bibliothek selbst). Die Header findet man unter http://www.audio-data.de/mysql.html, die Bibliothek libmysql.dll ist bei dem MySQL-Server dabei.
Die Pascal-Unit mysql.pas importiert die Funktionen von libmysql.dll und stellt sie Programmmierern zur Verfügung. Um auf die DLL zugreifen zu können, muss sie entweder im Programmverzeichnis liegen oder aber im Verzeichnis Windows, Windows\System oder Windows\System32.

Nachdem das getan ist, können wir die DLL verwenden. Dazu muss die Unit mysql.pas in unser Projektverzeichnis gelegt werden und per uses-Klausel eingebunden werden. Unsere Unit sieht also so aus:

Code:

unit MysqlTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, [b]mySQL[/b];
  
{ ... }

Bevor wir anfangen, mit dem SQL-Server zu arbeiten, kommen einige kleine Anmerkungen.
Eine Übersicht und Dokumentation der Funktion ist auf http://www.mysql.com/documentation/m...ction_overview verfügbar.
Von diesen werden in diesem Tutorial aber nur folgende verwendet:

mysql_close()
mysql_error()
mysql_fetch_row()
mysql_free_result()
mysql_init()
mysql_real_connect()
mysql_real_query()
mysql_store_result()

Die Verwendung der übrigen Funktionen sollte aber kaum Mühe bereiten, schon gar nicht, wenn man sie aus PHP kennt, da, wie man an der Auflistung sehen kann, die C-API und die PHP-API recht ähnlich sind.

Neben den Funktionen werden noch folgende Datentypen, die in mysql.pas definiert sind, benutzt:

PMySQL
PMySQL_Res
PMySQL_Rows


So, es kann nun losgehen.

Im nachfolgenden Beispiel werden wir uns zu einem MySQL-Server verbinden und ihn nach dem aktuellen Datum fragen.
Die einzelnen Schritte werden zunächst erläutert, bevor anschließend ein kurzes Code-Beispiel erklärt wird.

Bevor wir überhaupt eine Verbindung herstellen können, müssen wir unseren Verbindungsdeskriptor initialisieren. Dieser ist vom Typ PMySQL.

Ist dies getan, können wir die Verbindung herstellen.Dafür wird mysql_real_connect() benutzt.

mysql_real_connect() ist folgendermaßen augebaut:
mysql_real_connect: function(_mysql: PMYSQL; const host, user, passwd, db: pChar; port: longword; const unix_socket: pChar; clientflag: longword): PMYSQL; stdcall; Die Erklärung der einzelnen Parameter findet sich auf http://www.mysql.com/documentation/m...l_real_connect.

Als Rückgabe erhalten wir erneut unseren Verbindungsdeskriptor, der jetzt (hoffentlich) eine aktive Verbindung beschreibt.
Dies ist der Fall, wenn er ungleich nil ist.

Mit den eigentlichen Transaktionen beschäftigen wir uns im nächsten Kapitel, deshalb wird jetzt lediglich die Verbindung getrennt.
Das geschieht mittels mysql_close().


Das Beispiel:

Delphi-Quellcode:

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;

Im nächsten Teil werden wir ein paar einfache SELECT, INSERT, UPDATE und DELETE-Transmissionen durchführen.

[edit=Matze]Link korrigiert. MfG, Matze[/edit]

[cb01]

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

[Chewie]

Hallo Chris,

die Fehlermeldung sagt dir doch genau, was du tun musst:

Zitat:

Client does not Support authentication protocol request by server; Consider upgrading MySQL Client

Du hast also eine libmysql.dll, die nicht zu der Server-Version passt. Besorg dir also die Client-DLL, die der Version des Servers entspricht.

[Bääm]

HI!

Ich habe statt host = 'localhost' ma meine Netzwerk-IP Adresse eingegeben und dann kommt eine Fehlermeldung:


Host 'Computername' is not allowed to connect to the Mysql Server.


Hm ?! Was muss ich machen? Schließlich soll das programm ja auch funktionieren, wenn ich einen Mysql-Server übers Internet ansteuern möchte !

thx für antworten!

[Bernhard Geyer]

Zitat von Bääm:

Ich habe statt host = 'localhost' ma meine Netzwerk-IP Adresse eingegeben und dann kommt eine Fehlermeldung:

Host 'Computername' is not allowed to connect to the Mysql Server.

Hm ?! Was muss ich machen? Schließlich soll das programm ja auch funktionieren, wenn ich einen Mysql-Server übers Internet ansteuern möchte !

Die Fehlermeldung sagt doch auch wieder alles: Du darfst von diesem PC's aus nicht mit diesen User auf die Datenbank zugeifen. Willst du es trotzdem muß du halt die Konfiguration des User in der DB ändern das er das darf.

Falls du MySQL bei irgendeinen Webhoster hast und keinen direkten Adminzugang für User-Konfiguration hast könnte es sein das dein Hoster das aufgrund von Sicherheitsaspekten nicht erlaubt bzw. entsprechend konfiguriert.

[Bääm]

mir ist durchaus bewusst was diese fehlermeldung sagt! Aber ich finde nix in der DB (teste es über xampp) wo ich das einstellen könnte! Da ich mich via root-User einlogge hat dieser alle Rechte !

[Chewie]

Besorg dir mal ein Administrationstool (z.B. phpMyAdmin) und sieh dir dort die Benutzer an, insbesondere die Hosts, von denen sie zugreifen dürfen.

[Bääm]

Ja phpmyadmin is dabei ! Hab die funktion jetzt auch gefunden !thx nochmal!
Jetzt habe ich noch eine Frage! Habe n mysql server bei server4you, wie kann ich jetzt auf diesen zugreifen ?
muss ich da was besonderes beachten ?

[eLem3ntx]

Hey Leute hab immernoch das große problem dass ich keine Variablen per mySQL inserten kann.

Delphi-Quellcode:

 var1 := 'testname';
  var2 := 'testeintrag';

    query := 'INSERT INTO delphi (name, text) VALUES (var1, var2)';
    mysql_real_query(_myCon, PChar(query), Length(query));

So wenn ich nun vor und nach den vars nach VALUES jeweils ein " setze, wird in die DB var1 und var2 als text eingetragen, jedoch will ich den inhalt dieser Variablen aber dass geht nicht da dass query mit den einzelnen kleinen anführungszeichen gestartet und beendet wird, kann man nicht irgendwie z.B. einen Schrägsrich davor machen (\') oder gibt es eine andere methode einen String mit Text zu füllen ohne die einfachen ("'") anführunsstrichchen zu benutzen?

[Mumpe]

Vielleicht so?

Delphi-Quellcode:

 
var1 := 'testname';
var2 := 'testeintrag';

    query := 'INSERT INTO delphi (name, text) VALUES ('+var1+','+ var2+')';
    mysql_real_query(_myCon, PChar(query), Length(query));

[cb01]

Hi,

lange ist's her, nun hab ich endlich mal wieder mehr Zeit für Delphi und leider auch gleich ein Problem, es geht im Prinzip immer noch um das Problem von weiter oben, ich finde irgendwie keine libMySQL die mit meinem Server funktionert, ich habe einen Suse 9.3 Server mit MySQL 4.1.10a, hat evtl. jemand einen Link wo ich die .dll downloaden kann?...

Gruß

Chris