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]

[Tyler]

Danke für die Antwort.

Das mein ich zwar nich ganz, erklärt aber die Kompo ganz gut. Ich dachte ich brauch bloss wieder ein Grid mit der DataSource verbinden und die Daten würden angezeigt.

mfg

[Knut]

also ich mein prolem ist, dass ich eine fehlermeldung bekomme weil beii der abfrage nil in _myRes steht.
die meldung lautet wie folgt:
Commands out of sync; You can't run this command now was bedeutet das??
hier mein code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    host, user, pass, db: PChar;
begin
   host := 'localhost';
   user := 'root';
   pass := nil;
   db := 'masternr1de_de_db';

   //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;

procedure TForm1.Button2Click(Sender: TObject);
var
   Posts: TPostEntries;
   idAuthor: String; //zum Zwischenspeichern der Verfasser-ID
   query: PChar;
   _myRes: PMySQL_Res; //hier wird der gesamte Ergebnissatz gespeichert
   _mySubRes: PMySQL_Res; //benötigt, um Autor zu ermmitteln
   _myRow: PMySQL_Row; //enthält den aktuellen Datensatz
   _mySubRow: PMySQL_Row; //benötigt, um Autor zu ermmitteln
   i: Integer;
begin
   query := 'SELECT * FROM sprueche';
   mysql_real_query(_myCon, query, Length(query));

   _myRes := mysql_store_result(_myCon); //alle Datensätze vom Server anfordern
   if _myRes = nil then
   begin
      ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' +
         mysql_error(_myCon));
      Exit;
   end; 
   mysql_free_result(_myRes);
end;

_myCon ist bei mir global kann es daran liegen???

[Chewie]

Sorry, hab das eben erst gesehen

Ich nehm mal an, du führst zuerst Button1Click aus, dann Button2Click. Das Problem dabei ist, dass die Verbindung am Ende der Click-Routine von Button1 geschlossen wird (mysql_close(_myCon)). Dann kannst du natürlich keine Querys mehr ausführen, du musst schon eine Verbindung offen haben!

[Knut]

jo danke mir isses auch schon aufgefallen, aber ich habs vergessen hier zu posten. tut mir leid.

[MathiasH]

Hallo Leute
Also erstmal echt gutes tut, endlich mal mysql einfach wie in php und ohne den ganzen BDE/ADO/ODBC Käse

bei mir verhält sich das ding allerdings höchst seltsam. wenn ich nämlich connect und disconnect in eigene funktionen auslagere und die benötigten variablen alle global mache hängt sich das Programm mit access violations in der mysql dll auf (nicht an Adresse 000000). Setze ich jedoch meinen gesammten Mysql Quelltext in eine funktion klappt die Sache wunderbar... höchst sonderbar... hat jemand ne idee, woran das liegen kann?

MathiasH

[Huor]

Hallo,
ich wollte für select-Abfragen gerne Überschriften im StringGrid erstellen. Gibt es eine einfache Möglichkeit, diese bei einer mysql-Anfrage zu erhalten? Das Auslesen aus einem SQL-Befehl-String scheint alternativ ja recht kompliziert.
Viele Grüße
Huor

[Chewie]

Du meinst die Namen der Spalten? Versuchs mal mit mysql_fetch_fields

[Huor]

Vielen Dank Chewie für die schnelle Lösung!

Nach anfänglichen Schwierigkeiten funktioniert es jetzt. Ist ja wirklich genial. Mir kommen die ganzen Typen zwar undurchschaubar vor, aber es läuft.

Gruß
Huor

[hubertus224]

Ich finde das Tutorail echt klasse.

Ichbesitze Delphi 3 und würde es gerne auch da verwenden nur müsste da wohl etwas verändert werden gegenüber diesem Tutorial.

Könnte mir einer eine lauffähige version für delphi 3 zeigen und erklären?

veilen dank schon mal an alle

[supermuckl]

leute wie siehts mit mysql api unter kylix aus ?

da gibts ja die mysql lib .so ( dll unter linux )

wie und was muss ich da einbinden damit ich das wie ihr hier beschrieben habt unter kylix auch verwenden kann ?

da die zeos komponenten ziemlich viel ärger machen unter linux

habe kylix 3 enterprise