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]

[Maja Jessica]

Hi,

dabei nervten mich immer die vielen verschiedenen Versionen der libmysql.dll, so dann und wann funktionierte irgendetwas nicht mehr welches vorher klappte.
Eventuell lag es auch an mir bzw meinen Code.
So habe ich es nie geschafft, mit den vorhandenen, die Feldtypen einer mysql-Tabelle zu bestimmen.

Wer Spass hat kann ja dieses hier nach Delphi portieren.

Grüße, MJ

[Chewie]

Zitat von JB82:

PS: Bitte an Chewie oder einen Admin/Mod: Bitte tausche doch den Link im ersten Posting aus, da er nicht mehr funktioniert.

Das muss ein Mod tun, ich hab dazu nicht die Rechte. Der erste Beitrag ist schon "bisschen" länger als 24 Stunden her

[JB82]

Moin Chewie,

Zitat von Chewie:

Das muss ein Mod tun, ich hab dazu nicht die Rechte. Der erste Beitrag ist schon "bisschen" länger als 24 Stunden her

na sowas! Ok, von der Einschränkung wusste ich nichts, da ich selbst mit YaBB arbeite und an phpBB nicht gewöhnt bin.

Viele Grüße, Jens

[Mackhack]

Aus Aktuellem Anlass,...

Gibt es eigentlich eine aktualisierte Version der .pas file?

[Maja Jessica]

Hi,

ich möchte mal zusammenfassen:
- Die Seiten von Fichtner sind nicht (nicht mehr) zu erreichen
- Der Zugriff über die LibMySql.dll ist immer noch beliebt
- Viele Tutorials im Netz beziehen sich auf die LibMySql.dll/mysql.pas
- Die Suche nach einer aktuellen Version endet fast immer in "Frage/Suche-Threads"

Da wäre es doch ein interessantes Projekt, die veraltete mysql.pas auf aktuellen Stand zu bringen.
Doch was ist der aktuelle Stand? Mysql5? Und wie stelle ich sicher, daß auch die "richtige" LibMysql.dll VersionXZY verwendet wird?
Woher weiss ich, welche Funktionen/Proceduren in einer vorliegenden LibMySql.dll vorhanden sind.
Wie ist die Vorgehensweise beim Schreiben einer 'neuen' mysql.pas.
Ich selbst traue mir das nicht zu, dafür reichen meine Programmierkenntnisse bei weiten nicht aus.
Wäre aber sehr interessant zu erfahren wie so etwas bewerkstelligt wird.
Eventuell in einen neuen Thread?
Oder ist das alles sinnlos, weil es eine Menge freier Zugriffskomponenten gibt?
Was meinen die Profis im Forum?

So long, MJ

[JB82]

Hallo MJ,

Ich finde auch, dass es ein interessantes Projekt wäre, da ich aber keinerlei Kenntnisse von C++ habe, kann ich es leider auch nicht beginnen.

Zitat von Maja Jessica:

Eventuell in einen neuen Thread?

Warum? dieser Threat ist schon so gut bevölkert, warum ihn nicht einfach fortsetzen? Schließlich ist es ja kein neues Thema, sondern nur die Erweiterung des laufenden Themas.

Zitat von Maja Jessica:

Oder ist das alles sinnlos, weil es eine Menge freier Zugriffskomponenten gibt?

Nein, ich denke es ist wahrlich nicht sinnlos, denn die vorhandenen Möglichkeiten unterliegen entweder der GPL (was sicherlich für viele Programmierer inakzeptabel ist) oder es handelt sich um Komponenten. Letztere sind aus min. drei Gründen von Nachteil:

• Sie können nicht in den eingeschränkten personal-Versionen von Delphi genutzt werden
• Der Zugriff auf die Daten ist zwar verspielt einfach möglich, aber eine schnelle Abfrage / Änderung ist nicht möglich, mit der DLL ist es schnell umgesetzt und schnell durchgeführt. Außerdem ist die DLL problemlos aus einer TForm-losen Anwendung (Kommandozeilenanwendung!!!) nutzbar. (Nebenbei bemerkt, ich fand es dramatisch einfacher, die Funktionsweise der DLL zu verstehen, als die Funktionsweise der Borland-Komponenten!)
• Durch die Verwendung der DLL entsteht im Gegensatz zur Nutzung einer Komponente kein unnötiger Overhead im Programm.

Zitat von Maja Jessica:

Was meinen die Profis im Forum?

Zugegeben, ich bin neu hier, aber ich hoffe, meine Meinung wird auch mit in die Diskussion aufgenommen

Viele Grüße, Jens

[micha0815]

Hallo Forum,

auch ich wäre interessiert. Bringe leider auch die gleichen Vorraussetzungen mit (keine Ahnung) denke aber das, daß ganze mehr oder weniger nur eine Fleißarbeit ist. So schwer kann das nicht sein.

Wer hat Tipps und Tutorial

Verwenden von C++ Bibliotheken mit Delphi
und was muß man beachten das nicht nur Delphi-Leute sondern Free-Pascal und Turbo -Leute auch damit arbeiten können? (auch unter Linux bzx. alle Plattformen die Free-Pascal auch untersützt.


mfg - Micha

[pemue]

Hi ich habe folgendes Problem, wenn Compilieren will, kommt immer eine Meldung "[82] Variable 'query' ist möglicherweise nicht initialisiert worden"

Aber es compiliert trotzdem, nur mit dem erstellen der Tabellen haut es nicht hin, also DB wird erstellt, aber die Tabellen nicht... bitte helft mir weiter
Danke schonmal

Gruß
Pemue

Delphi-Quellcode:

unit MySQLTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mySQL, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    grbConnect: TGroupBox;
    btConnect: TButton;
    edHost: TEdit;
    edUser: TEdit;
    edPassw: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edDB: TEdit;
    Label4: TLabel;
    PopupMenu1: TPopupMenu;
    localhost1: TMenuItem;
    procedure btConnectClick(Sender: TObject);
    procedure localhost1Click(Sender: TObject);
    procedure MakeTables(_myCon: PMySQL);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btConnectClick(Sender: TObject);
var
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
  query: PChar;
begin
  //Aufnehmen der Anmeldedaten
  host := pchar(edHost.Text);
  user := pchar(edUser.Text);
  pass := pchar(edPassw.Text);
  db := pchar(edDB.Text);

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

    if MessageDlg('Soll eine neue Datenbank angelegt werden?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      query := 'CREATE DATABASE apitest';
      mysql_real_query(_myCon, query, Length(query));
    end;
      if MessageDlg('Neue Tabellen anlegen?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        MakeTables(_myCon)
end;

procedure TForm1.MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'apitest');     //zu Datenbank "APITest" wechseln
  mysql_real_query(_myCon, 'CREATE TABLE posts(id int, author int, date datetime, entry text)', Length(query));
  mysql_real_query(_myCon, 'CREATE TABLE users(id int, name varchar(50), pass varchar(50))', Length(query));
end;

procedure TForm1.localhost1Click(Sender: TObject);
begin
edHost.Text := 'localhost';
edUser.Text := 'root';
edPassw.Text := 'jazzy';
end;

end.

[DeddyH]

Ich kenne die Bibliothek nicht, aber aus dem Bauch heraus würde ich sagen:

Delphi-Quellcode:

procedure TForm1.MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'apitest');     //zu Datenbank "APITest" wechseln
  query := 'CREATE TABLE posts(id int, author int, date datetime, entry text)';
  mysql_real_query(_myCon, query, Length(query));
  query := 'CREATE TABLE users(id int, name varchar(50), pass varchar(50))';
  mysql_real_query(_myCon, query , Length(query));
end;

[pemue]

Oh vielen Danke, ich bin gerade bei den ersten schritten, und klammere mich dabei sehr an dieses tuturial, und bemerke selbst manche fehler nicht. Vielen Dank für deine Hilfe DeddyH