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]

[mrbrown]

cool das hat einiges geholfen.
nun noch ne andrere Frage. Wenn ich nun daten aus der DB auslese, wie kann ich die in einem ListView anzeigen sodass die auch direkt in Titel, Datum, Von, Bis, Text geordnet werden. Außerm würde mich interessiere wie ich dann per klick eines auswählen kann um ein update durchzuführen.

[DeddyH]

Blätter einmal ein paar Seiten zurück: http://www.delphipraxis.net/internal...=839783#839783. Dort werden die Daten zwar in ein Memo geschrieben, aber das lässt sich ja anpassen. Und zur Auswahl: das musst Du auf der Clientseite (sprich: in Deinem Programm) implementieren. Eine Möglichkeit wäre z.B., Dir eine Klasse zu deklarieren, die die Feldinhalte als Properties beinhaltet. Ein Objekt dieser Klasse könntest Du ja dann im "Data"-Feld des ListItems hinterlegen.

[mrbrown]

hi also habe mir grad mal die demos angeguckt und auch den post den du meintest. bei dem wird ja wie du selnst sagst ein memo gefüllt was ja aber nicht ganz das ist was ich suche. leider komme ich selbst nicht drauf wie ich das realsieren kann. könntest du mir ggf. nen beispiel zeigen?

außerdem würde mich noch interessieren ob es möglich ist in irgend einer weise ein live-update zu haben ob die verbindung zur DB besteht. also in 2 sek abständen oder so.

Gruß MrBrown

[DeddyH]

Ich habe hier gerade kein MySQL am Laufen und verfüge auch nicht über die Units, aber versuch es einmal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Con: PMYSQL;
    host, user, pass, db: PChar;
    Row: PMySQL_Row;
    Res: PMYSQL_RES;
    query: string;
    i, j: integer;
    Item: TListItem;
begin
  host := 'Name_des_Servers';
  user := 'Name_des_Users';
  pass := 'Passwort_des_Users';
  db   := 'Name_der_DB';

  Con := mysql_init(nil);
  if Assigned(Con) then
    try
      if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
        begin
          //evtl. bestehende Items löschen
          DeineListview.Items.Clear;
          query := 'SELECT titel, datum, von, bis, text FROM testtabelle';
          mysql_real_query(Con,PChar(query), Length(query));
          Res := mysql_store_result(Con);
          if Assigned(Res) then
            for i := 0 to mysql_num_rows(Res) - 1 do
              begin
                Row := mysql_fetch_row(Res);
                //neues ListItem hinzufügen (erstes Feld)
                Item := DeineListView.Items.Add;
                Item.Caption := Row[0];
                //für jedes weitere Feld ein SubItem
                for j := 1 to High(Row) do
                  Item.SubItems.Add(Row[j]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;

[mrbrown]

Hey DeddyH, danke erstmal für den code.
Hab ein paar probleme damit. Habe gesehn dass du skype hast, könnte ich dich mal adden und dich direkt mit Fragen beballern?

Gruß

[DeddyH]

Solange Du nicht anrufst (habe nämlich kein Mikro angeschlossen), soll mir das recht sein.

[edit] Sry, ich hatte Nachrichten von außerhalb gesperrt, sollte nun aber gehen. [/edit]

[Manta12]

Hallo!
Irgendwie komm ich mit dem Abrufen nicht so ganz klar. Datenbank erstellt, Tabeller erstellt und Werte sind auch drin. Das seh ich mit MySQL-Front.
Ich möchte jetzt die Daten -->komplett aus der Database auslesen in einen Record als Array übergeben und anschließend im stringgrid ausgeben.
Aber ich bekomme entweder nur den Fehler "Acces violation" oder gar keinen Wert! Hier mal mein Verusch:
Meine Tabelle besteht aus: Kartei(sowas wie id), Titel, Autor, ISBN

Delphi-Quellcode:

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,xx: Integer;

begin

   mysql_select_db(_myCon, 'APITest');             //APItest heißt meine Datenbank
   query := 'SELECT * FROM buch';                  //hier habe ich doch den kompletten Datensatz ausgewählt!, oder?
   mysql_real_query(_myCon, query, Length(query));

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

  SetLength(Posts, mysql_num_rows(_myRes));        //Posts-Array-Größe auf Anzahl der Datensätze setzen

  for i := 0 to High(Posts) do
  begin
    _myRow := mysql_fetch_row(_myRes);             //Datensatz abholen (nächste Zeile)
    Posts[i].id := StrToInt(_myRow[0]);            //Kartei wird id
    Posts[i].time := _myRow[2];                    //Titel wird time   --->  time, text, author sind vom typ string
    Posts[i].text := _myRow[3];                    //ISBN wird text
    Posts[i].author := _myRow[1];                  //Autor wird Author
    
    stringgridcells1[0,i]:=StrToInt(Posts[i].id);  //mein Feld bleibt leider leer --> warum?

    mysql_free_result(_mySubRes);        //Ergebnissatz löschen
  end;

  mysql_free_result(_myRes);             //Ergebnissätze löschen
end;

Ich hoffe ihr habt einen Ansatz für mich. mfg

[DeddyH]

Zitat:

mysql_free_result(_mySubRes);

Wo kommt denn _mySubRes plötzlich her?

[edit] Sry, Willkommen in der DP [/edit]

[Manta12]

oh man, ich danke dir...hatte ich ganz übersehen die ganze zeit und dummerwiese direkt aus dem tut so übernommen. wunderbar jetzt klappt's. danke dir

[Manta12]

So ich bins nochmal
Ich versuche nun krampfhaft Daten an meine db durch variablen zu übertragen. Aber es klappt nicht!!!
Ich habe doch eine Variable, aber irgendwie wird die nich übernommen. Die direkten Werte schon

Delphi-Quellcode:

var  a:string;

begin
 {Verbindung wird ordnungsgemäß aufgebaut}

 a:=Edit2.Text;

 query :='INSERT INTO buch (Kartei, Autor, Titel, Genre, ISBN) VALUES (''1'',a,''1'',''1'',''1'')';
 mysql_real_query(_myCon, query, Length(query));

Das funktioniert aber so leider nicht. Wenn ich anstatt von a auch ''1'' schreibe, dann werden alle einsen übernommmen. Hat jmd einen Tip? mfg