AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Tutorials Delphi MySQL ohne Komponenten
Tutorial durchsuchen
Ansicht
Themen-Optionen

MySQL ohne Komponenten

Ein Tutorial von Chewie · begonnen am 14. Jul 2003 · letzter Beitrag vom 30. Mär 2020
Antwort Antwort
Seite 18 von 36   « Erste     8161718 192028     Letzte »    
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)
 
Benutzerbild von freak4fun
freak4fun

 
Delphi 10.2 Tokyo Starter
 
#171
  Alt 9. Sep 2006, 23:41
Zitat von Chewie:
Zitat von freak4fun:
>.< Mit der SQL-Abfrage komme ich net klar.

Also wenn du schon mit dem SHOW TABLES Probleme hast, würde ich dir dringendst anraten, dich mit SQL vertraut zu machen, bevor du programmatisch mit einer Datenbank kommunizieren willst.
Hab ich bis jetzt noch nicht gebraucht, also kann ich es nicht. Nach etwas rumprobieren hab ich es aber dann doch geschafft. Ich lerne halt immer nur das, was ich brauch.

MfG
freak
  Mit Zitat antworten Zitat
Chewie

 
Turbo Delphi für Win32
 
#172
  Alt 10. Sep 2006, 10:18
Zitat von BaedDog:
Aber ich hab 'ne Frage, wie kann ich rausfinden ob ein Feld einer Abfrage NULL ist? Bei einer Abfrage werden diese ja automatisch in ein leeren String umgewandelt.
Die Ergebnisse sind ja keine direkten Strings, sondern PChars. Und die können NULL bzw. NIL sein. Und laut MySQL-Doku sind sie das auch in diesem Fall.
Martin Leim
  Mit Zitat antworten Zitat
BaedDog
 
#173
  Alt 10. Sep 2006, 18:37
Zitat von Chewie:
Die Ergebnisse sind ja keine direkten Strings, sondern PChars. Und die können NULL bzw. NIL sein. Und laut MySQL-Doku sind sie das auch in diesem Fall.
Ah geht doch, hatte immer versucht das Ergebnis mit = NULL abzufragen, hatte vergessen das in Delphi alles nil ist ^^
  Mit Zitat antworten Zitat
Benutzerbild von eLem3ntx
eLem3ntx
 
#174
  Alt 3. Okt 2006, 13:49
Bei mir funzt es mit der Connection wirklich n1 Super TUT jedoch kommt bei der zweiten Verbindung immer ein Fehler dass in der libmySQL.dll zugriffsverletzungen seien.
Und das insert into geht nit, Zahlen gehen aber variablen oder strings nicht:
Delphi-Quellcode:
var
 var1, var2: string;
...

var1 := 'Name';
var2 := 'TestText :D';

...

query := 'INSERT INTO delphi (name, text) VALUES (var1, var2)';
mysql_real_query(_myCon, query, Length(query));
Das funkt einfach nicht kommt auch keine Fehlermeldung oder so
Jedoch so funkt es:
Delphi-Quellcode:
query := 'INSERT INTO delphi (name, text) VALUES (1, 2)';
mysql_real_query(_myCon, query, Length(query));
Dann wird die 1 und die 2 eingetragen! Komisch oder??^^ Weiß jemand eine Antwort, thx im Vorraus
Marc
  Mit Zitat antworten Zitat
mkinzler

 
Delphi 11 Alexandria
 
#175
  Alt 3. Okt 2006, 13:56
query := 'INSERT INTO delphi (name, text) VALUES ('+QuotedStr(var1)+', '+QuotedStr( var2)'+ ');';
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von eLem3ntx
eLem3ntx
 
#176
  Alt 3. Okt 2006, 14:18
Ok erstmal danke (mkinzler du bist ja echt wirklich sehr aktiv )
Jedoch sagt BDES dann im Debug modus <<[Pascal Fehler] Unit1.pas(82): E2010 Inkompatible Typen: 'string' und 'PAnsiChar'>>

Liegt es vtl. daran dass die vars strings sind? Ind er DB sind die 2 spalten als "text" markiert.
Marc
  Mit Zitat antworten Zitat
mkinzler

 
Delphi 11 Alexandria
 
#177
  Alt 3. Okt 2006, 14:22
Zitat:
Liegt es vtl. daran dass die vars strings sind? Ind er DB sind die 2 spalten als "text" markiert.
Nein, es liegt an der Funktion aus der Dll.

Versuch mal:
mysql_real_query(_myCon, PChar(query), Length(query));
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von eLem3ntx
eLem3ntx
 
#178
  Alt 3. Okt 2006, 14:27
Zitat von mkinzler:
Zitat:
Liegt es vtl. daran dass die vars strings sind? Ind er DB sind die 2 spalten als "text" markiert.
Nein, es liegt an der Funktion aus der Dll.

Versuch mal:
mysql_real_query(_myCon, PChar(query), Length(query));
Nein funktioniert leider auch nicht da die INSERT INTO Zeile ja zuerst kommt und da diese ja schon als "falsch" markiert wird kommt es gar nicht zum mysql_real_query.
hab auch mal folgendes versucht:
query := 'INSERT INTO delphi (name, text) VALUES ('+var1+', '+var2+')'; Dort kommt jedoch der gleiche Fehler wie bei deinem query (QuotedStr...).

Hab auch schon versucht die vars als PChar zu setzen, jedoch ohne Erfolg
Aber so was muss ja möglich sein!!
Marc
  Mit Zitat antworten Zitat
mkinzler

 
Delphi 11 Alexandria
 
#179
  Alt 3. Okt 2006, 14:31
query := 'INSERT INTO delphi (name, text) VALUES ('+PCahr(QuotedStr(var1))+', '+PChar(QuotedStr( var2))'+ ');';
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von eLem3ntx
eLem3ntx
 
#180
  Alt 3. Okt 2006, 14:50
Hmm geht leider immer noch nicht sagt immer noch den gleichen Fehler dass es inkompatibel mit Pchar oder string sei!
Marc
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 18 von 36   « Erste     8161718 192028     Letzte »    


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 22:18 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