AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Tutorials Delphi MySQL ohne Komponenten

MySQL ohne Komponenten

Ein Tutorial von Chewie · begonnen am 14. Jul 2003 · letzter Beitrag vom 30. Mär 2020
Antwort Antwort
Seite 34 von 36   « Erste     24323334 3536   
Chewie
Registriert seit: 10. Jun 2002
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]
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Geändert von Matze (24. Jul 2010 um 15:25 Uhr)
 
Bonimahoni

 
Turbo Delphi für Win32
 
#331
  Alt 22. Jul 2010, 09:14
Ich hab die Datei von hier:

http://www.audio-data.de/mysql.html

Und da steht das diese vom (Version 2009-09-13) ist also dürfte das doch keine probleme aufwerfen

Kann es sein das Turbo Delphi 2006 einfach nicht will?

Geändert von Bonimahoni (22. Jul 2010 um 09:16 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#332
  Alt 22. Jul 2010, 09:22
Ja, und schau aber auch mal in die mysql.pas rein.

Diese Unit wurde zwar aktualisiert, damit sie bis Delph 2010 läuft, allerdings wurde nur die Unit an Delphi, aber nicht an MySQL angepaßt, denn da ist sie (und anscheinend auch viele andere C++-Header) bei MySQL 3.1 stehengeblieben.
(selbst der auf mysql.com unter MySQL 5.x verlinkte C++-Header ist nur für MySQL 3.1 )
  Mit Zitat antworten Zitat
Bonimahoni

 
Turbo Delphi für Win32
 
#333
  Alt 22. Jul 2010, 17:25


Ok dann muss ich es wohl aufgeben. Bin Programmieranfänger und hab so schon kaum Ahnung und dann noch in so ner komplizierten Datei rumwerkeln wird nichts.

Vielleicht gibt es ja jemand der das mal auf 5.1 aktualisiert oder ich such mir irgendwo her Delphi2010 da ist das ja schon integriert.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#334
  Alt 22. Jul 2010, 17:28
Du kannst ja immernoch eine MySQL-3.x-DLL verwenden.
Aber wenn du mal die MySQL-5.x-Header-Dateien findest (z.B. in C++ eine mysql.h oder Ähnlich), dann kannst du dich gerne melden und wir helfen beim Übersetzen.

Geändert von himitsu (22. Jul 2010 um 17:33 Uhr)
  Mit Zitat antworten Zitat
Bonimahoni

 
Turbo Delphi für Win32
 
#335
  Alt 23. Jul 2010, 10:14
Mit ner 3.1 dll geht aber der zugriff auf den 5.1 Server nicht oder?

Ich such mal bisl rum übers WE. Danke für deine Hilfe
  Mit Zitat antworten Zitat
mkinzler

 
Delphi 11 Alexandria
 
#336
  Alt 23. Jul 2010, 10:29
Standardmässig nicht. es gibt m.W. aber eine Einstellung am Server, welche die alte Zugriffsmethode ermöglicht
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#337
  Alt 29. Jul 2010, 12:12
Grade gesehn, die Erwähnung auf MySQL 4.0 5.0 5.1 stehen etwas versteckter im ChangeLog (bis 3.x hatte man das noch recht offensichtlich erwähnt).

Also müßte man doch nochmal nachsehn, warum da nun dieser Fehler auftritt.
  Mit Zitat antworten Zitat
Bonimahoni

 
Turbo Delphi für Win32
 
#338
  Alt 29. Jul 2010, 16:24
Ich schreib gerade den Rest meiner BA fertig und habe deshalb gerade wenig Zeit dafür.
Werde mich in zwei bis drei Wochen nochmal genauer damit beschäftigen. Will unbedingt raus finden warum der Dreck nicht geht... -.-
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#339
  Alt 30. Jul 2010, 19:25
Also, ich versuch es selber grade mal und bekomme mit meinen eigenen Headern ebenfalls einen Fehler raus.

Zitat:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt _MySQLp.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 1035600B in Modul 'libmysql.dll'. Lesen von Adresse 00000004' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
mir Debuginfos:
Zitat:
---------------------------
Microsoft Visual C++ Runtime Library
---------------------------
Assertion failed!

Program: ...
File: .\my_getopt.c
Line: 126

Expression: argc && *argc >= 1

For information on how your program can cause an assertion
failure, see the Visual C++ documentation on asserts

(Press Retry to debug the application - JIT must be enabled)
---------------------------
Abbrechen Wiederholen Ignorieren
---------------------------
Allerdings hab ich es mit der Embedded-Version versucht ... werd' mir aber demnächst mal einen MySQL-Server installieren
(wenn ich wieder daheim bin ... hier möchte ich das jetzt nicht drauf installieren)




hab hier mal einige libmysql.dll's zusammengestellt
diese sind direkt von mysql.com und Einige sind mit Debuginfos kompiliert wurden:
www.FNSE.de/DL/libmysql.7z (~13 MB)

Kannst es ja mal mit Einer davon versuchen.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

 
Delphi 12 Athens
 
#340
  Alt 2. Aug 2010, 21:46
versuch es mal so, also inklusive mysql_server_init und mysql_thread_init

PS: mysql_thread_init/mysql_thread_end muß in jeden Thread aufgerufen werden, wo man das MySQL nutzen will.
Delphi-Quellcode:
var
  sql: pmysql;
  args, groups: array[0..9] of PAnsiChar;

libmysql_load(nil);

groups[0] := nil;
mysql_server_init(0, @args, @groups);

mysql_thread_init;

sql := mysql_init(nil);
sql := mysql_real_connect(sql, 'localhost', 'root', 'FNSE1997', '', 3306, nil, 0);



mysql_close(sql);
mysql_thread_end;
libmysql_free;
  Mit Zitat antworten Zitat
Themen-Optionen Tutorial durchsuchen
Tutorial durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz