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 14 von 36   « Erste     4121314 151624     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)
 
Chewie

 
Turbo Delphi für Win32
 
#131
  Alt 31. Jul 2006, 17:16
Du musste alle Strings und auch Datums-Werte in Hochkommata einfassen:

INSERT INTO posts(id,author,date,entry) VALUES(1,'Mimi','10-10-2005','Dies ist ein test') Und soweit ich weiß muss man Datums-Werte im Format YYYY-MM-DD angeben, also

INSERT INTO posts(id,author,date,entry) VALUES(1,'Mimi','2005-10-10','Dies ist ein test') Kann aber sein, dass das im Server konfigurierbar ist.

Den Rest der Frage versteh ich nicht so ganz.
Martin Leim
  Mit Zitat antworten Zitat
mimi

 
FreePascal / Lazarus
 
#132
  Alt 31. Jul 2006, 17:55
der fehler kommt in der forschleife bei den zugrief auf Posts[i].author := _mySubRow[0];

warum ?
die anweisung sieht jetzt so aus:
Delphi-Quellcode:
  MakeTables(_myCon);
  query:=PChar('DELETE FROM posts');
  mysql_real_query(_myCon, query, Length(query));

  query:=PChar('INSERT INTO posts(id,author,date,entry) VALUES(''1'',''1'',''2005-10-10'',''Dies ist ein test'')');
  mysql_real_query(_myCon, query, Length(query));

  query := 'SELECT * FROM posts ORDER BY id';
  mysql_real_query(_myCon, query, Length(query));
Michael Springwald
  Mit Zitat antworten Zitat
Chewie

 
Turbo Delphi für Win32
 
#133
  Alt 31. Jul 2006, 19:09
Naja, abgesehen davon, dass du nur die String-Argumente in Hochkommata einfassen solltest und nicht die Integers, kuck dir doch mal die Queries an: In der Schleife wird ja zu zu jedem Post der Name des entsprechenden Benutzers abgerufen. Wenn du aber nur dieses Insert stehen hast, gibt es aber doch gar keine Zeilen in der Tabelle users!

Die Grundlagen, wie du Queries an die Datenbank absetzt, scheinst du ja soweit verstanden zu haben, experimentiere doch mal mit eigenen Tabellen und eigenene Abfragen.

Und Sinn dieses Tutorials ist es keineswegs, die SQL-Syntax von MySQL näherzubringen, sondern einzig und allein der Zugriff über die API. Wenn du Schwierigkeiten mit SQL grundsätzlicher Natur hast, so bietet es sich an, erstmal dort irgendwelche Tutorials oder Bücher durchzuarbeiten, bevor du dich daran machst, eine Datenbankverbindung in deine Anwendung zu integrieren.
Martin Leim
  Mit Zitat antworten Zitat
mimi

 
FreePascal / Lazarus
 
#134
  Alt 31. Jul 2006, 19:18
naja ich wollte letzendlich nur ersteinaml schauen wie aufwendig es währe mySql unter delphi nutzbar zu machen, doch wie bei allen openSoruce projekten(aus eigener erfahrung) weiß ich jetzt es ist doch nicht so einfach....
ich habe ja ein tutorial parat und zwar das von DelphiForum das beschreibt wie das gehen sollte und im Querybrowser geht es ja aber nicht in delphi
Michael Springwald
  Mit Zitat antworten Zitat
mimi

 
FreePascal / Lazarus
 
#135
  Alt 1. Aug 2006, 09:02
jetzt geht ja luckie beispiel aber dafür geht dein noch nicht und zwar nur wegen einer zeile:
Posts[i].author := _mySubRow[0];
nehme ich diese rauß geht es.... der code sieht so aus:
Delphi-Quellcode:
procedure MakeTables(_myCon: PMySQL);
var
  query: PChar;
begin
  mysql_select_db(_myCon, 'APITest'); //zu Datenbank "APITest" wechseln
  query:='CREATE TABLE posts(id integer, author integer, date datetime, entry text)';
  mysql_real_query(_myCon,query , Length(query));
  query:='CREATE TABLE users(id integer, name varchar(50), pass varchar(50))';
  mysql_real_query(_myCon, query, Length(query));
end;

procedure CreateDB;
var
  Posts: TPostEntries;
  _myCon: PMySQL; //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar; //die Anmeldedaten
  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;
  idAuthor: String;
begin
  //wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := 'localhost';
  user := 'root';
  pass := '';
  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');

  query := 'CREATE DATABASE APITest';
  mysql_real_query(_myCon, query, Length(query));


  MakeTables(_myCon);
  query:=PChar('DELETE FROM posts');
  mysql_real_query(_myCon, query, Length(query));

  query:=PChar('INSERT INTO posts(id,author,date,entry) VALUES(1,2,2005-10-10,''Dies ist ein test'')');
  mysql_real_query(_myCon, query, Length(query));

  query := 'SELECT * FROM posts ORDER BY id';
  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 konntenkeine 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
 // ShowMessage(IntToStr(High(Posts)));
  for i := 0 to High(Posts) do
  begin

    _myRow := mysql_fetch_row(_myRes); //Datensatz abholen
    Posts[i].id := StrToInt(_myRow[0]); //ID des Posts ist erstes Feld im Datensatz
    Posts[i].time := _myRow[2]; //Zeitpunkt ist drittes Feld
    Posts[i].text := _myRow[3]; //Text ist viertes Feld
    idAuthor := _myRow[1];
    query := PChar('SELECT name FROM users WHERE id=' + idAuthor);
    mysql_real_query(_myCon, query, Length(query));
    _mySubRes := mysql_store_result(_myCon);
    _mySubRow := mysql_fetch_row(_mySubRes);

    Posts[i].author := _mySubRow[0];

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

  {...}
  {Verbindung schließen oder etwas anderes machen}

// for i:=0 to
  //mysql_close(_myCon);
end;
Michael Springwald
  Mit Zitat antworten Zitat
Chewie

 
Turbo Delphi für Win32
 
#136
  Alt 1. Aug 2006, 14:16
Ich denke, du solltest dir erstmal den Quellcode als gesamtes durchlesen und verstehen, auch und insbesondere die SQL-Queries! Dann wirst du sehen, dass in die Tabelle users gar nichts eingetragen wird, ergo kann auch nichts daraus ausgelesen werden!

Es ist eben nur ein Tutorial und kein unter allen Umständen lauffähiges Programm.
Martin Leim
  Mit Zitat antworten Zitat
mimi

 
FreePascal / Lazarus
 
#137
  Alt 1. Aug 2006, 18:18
sowas habe ich mir auch schon gedacht... ich dachte halt das das programm soweit funktioniert was im tutrial beschrieben wurden ist....
Michael Springwald
  Mit Zitat antworten Zitat
Chewie

 
Turbo Delphi für Win32
 
#138
  Alt 1. Aug 2006, 18:50
Sofern die richtigen Daten in der Datenbank stehen, funktioniert das auch
Martin Leim
  Mit Zitat antworten Zitat
Lich
 
#139
  Alt 21. Aug 2006, 14:23
hi leute,

hab noch mal ne Frage, und zwar hab ich in meiner Anwendung auf Datensätze zugreifen, wo die id = einer Variable ist, nur gibt mir der Compiler immer die Fehlermeldung: You have an error in your SQL Syntax near " at line 1. Mein Quellcode sieht folgendermaßen aus:

Zitat:
_myCon := mysql_init(nil);
if _myCon = nil then
begin
ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;

mysql_real_connect(_myCon, unit1.host, unit1.user, unit1.pass, unit1.db, 3306, nil, 0);
query := PChar('SELECT * FROM posts WHERE id =' + IntToStr(g_id));
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;
  Mit Zitat antworten Zitat
Chewie

 
Turbo Delphi für Win32
 
#140
  Alt 21. Aug 2006, 14:36
Lass dir am besten mal den erzeugten Query ausgeben und lass ihn von einem Programm wie z.B. phpMyAdmin ausführen. Erst wenn er dort funktioniert, soltest du ihn in dein eigenes Programm einbauen.
Martin Leim
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 14 von 36   « Erste     4121314 151624     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 08:16 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