MySQL ohne Komponenten

[samso]

Bei der aktuellen Version der mysql.pas wird nun eine sinnvolle Fehlermeldung ausgegeben, wenn der Programmierer die Laderoutine nicht ausgeführt hat. Statt einer Schutzverletzung wird nun die Meldung "MySQL: libmysql not loaded" generiert. Weiterhin gibt es zusätzlich zu der bekannten Laderoutine noch eine weitere Laderoutine

Delphi-Quellcode:

procedure libmysql_fast_load(name: PAnsiChar);

Hier werden die Adressen der MySql-Funktionen nur noch bei Bedarf aufgelöst - und nicht schon beim Laden der Bibliothek.

Die aktuelle Unit mysql.pas

[computersport]

Hallöchen,

Ich hab ne kleine Frage kann man dieses Tutorial auch mit der Kostenlosen Turbo Delphi Version anwenden?

Greetz

compsport

[DeddyH]

Kann man ;)

[computersport]

Endlich geht es.... ein dickes Lob für das Tutorial.

=)

greetz

compsport

[p80286]

Das hätt ich auch gerne für Oracle.

ach ja *seufz*

Gruß
K-H

[samso]

Ich habe die unit mysql.pas erneut erweitert. In der neuen Version gibt es nun auch die Funktionen für die Benutzung der "Prepared Statements" (ab Server 4.1). Dazu gibt es auch ein einfaches Demoprogramm. Dieses Demoprogramm ist eine Umsetzung der C-Quelle aus dem Referenz-Manual nach Delphi.

Hier nochmals der Link zu der Download-Seite

Unit mysql.pas

[xFrankx]

Hallo erstmal an alle hier im Forum.

Bin der neue, komme jetzt öfters :dancer:



Mal ne Frage zu der mysql.pas Arbeitet die nur unter XP oder auch unter Vista ?




Gruß Frank

[DeddyH]

Die sollte auch unter Vista funktionieren, AFAIK ist die Unit ja lediglich ein Wrapper für die Client-DLL von mySQL (zumindest die Version, die ich kenne, die aktuelle habe ich mir noch nicht angesehen).

P.S.: Willkommen in der DP :dp:

[xFrankx]

Wenn man sich die neue Version holt, funzt es auch mit Vista :-)


Also das macht richtigen spaß damit zu Arbeiten.
Nur ein Problem habe ich, wäre echt nett wenn mir jmd einen Tipp geben könnte.
Denn ich suche schon seit heute morgen wie man Bilder (*.jpg) auf den Server bekommt.

Wie müsste mein query aussehen. ?


Weil die meisten links die ich dazu im Internet finde, sind für php geschrieben.





Gruß Frank

[xFrankx]

Kann mir keiner einen Tipp geben ?
ich suche mir seit gestern einen wolf....



Gruß Frank

[Luckie]

Zitat:

Zitat von xFrankx

Denn ich suche schon seit heute morgen wie man Bilder (*.jpg) auf den Server bekommt.

Wie müsste mein query aussehen. ?

Was meinst du mit "Bilder auf den Server bekommen"? Willst du Bilder auf den Server hochladen oder wie? Mit einem Query fragt man Daten einer Datenbank ab oder trägt welche ein. Man interagiert also mit der Datenbank auf dem Server. Wenn du ein Bild auf den Server hochladen willst, dann solltest du dir mal eine Internet-Komponenten Sammlung angucken.

[himitsu]

es sei denn er will die Bilder in der DB speichern :lol:

[xFrankx]

huhu, Danke für Antworten.....


Ja ich will die Bilder in der Datenbank abspeichern, in ein Blob Feld.


Alles andere kann ich abspeichern, sei es Texte / Integer oder sonst was.
Nur dieses jpg Bild nicht.

Wäre nett wenn ihr mir kleinen Tipp gebt, oder wo ich suchen müsste.






Gruß Frank

[Hansa]

Zitat:

Zitat von xFrankx

Ja ich will die Bilder in der Datenbank abspeichern, in ein Blob Feld.

Das ist ja schön. :mrgreen: Nur, wo ist denn jetzt die Datenbank ? Im Internet oder lokal auf Rechner ? Im ersten Fall ist das recht einfach mit den Indy-Kömponenten zu bewerkstelligen. Kein großes Thema. Bei lokal wirds wohl eng wegen der Lizenzproblematik. MySQL ab V4 ohne 4 bis 5 stellige Lizenzkosten ? :gruebel: Nun ja, dann ist MySQL sowieso die falsche Wahl.

[xFrankx]

Moin,
ich möchte die jpg Datei von meinen Rechner aus, auf eine Global geschaltete MySql Datenbank speichern.
Also in ein Blob Feld...




Gruß Frank

[Hansa]

Zitat:

Zitat von xFrankx

..auf eine Global geschaltete MySql Datenbank speichern..

Was zum Teufel soll das sein ? :shock: Wenn schon keine präzisen Fragen gestellt werden, dann sollte man zumindest auf konkrete Rückfragen präzise antworten. 8)

[DeddyH]

Er möchte eine Grafik in einem BLOB-Feld ablegen, was ist daran so schwer zu verstehen? Was das mit global oder lokal oder gar Indy zu tun haben soll, ist mir völlig unklar.

[xFrankx]

Zitat:

Zitat von DeddyH

Er möchte eine Grafik in einem BLOB-Feld ablegen,

Genau das wollte ich machen, nur finde ich keine infos im Internet wie ich das am besten hinbekomme.


Wie ich texte an die MySql Datenbank sende ist mir klar.

query:= 'INSERT INTO `tbAdd` ( `id` , `tbName` , `tbVor` , `tbDatum` , `tbOrt` u.s.w

nur wie sende ich ein Bild an die Datenbank.?



Gruß Frank

[DeddyH]

Tja, das weiß ich auch nicht, wie man das mit dieser Lib anstellt.

[xFrankx]

vllt bekommen wir hilfe vom Entwickler ???


wäre schon was.... :hi:

[samso]

Binäre Daten werden an die Bibliothek genauso übergeben wie alle anderen Daten. Man speichert das Bild (oder andere binäre Daten) in dem man diese
1) zunächst in einen AnsiString überträgt,
2) dann mit der Funktion QuoteString die Anführungszeichen hinzufügt
3) und diesen AnsiString zu dem SQL-Statement hinzufügt.

Die eventuell vorkommendenden #0-Char sind deshalb kein Problem, weil an die Funktion "mysql_real_query" die Länge des Strings (oder besser eigentlich das array of Byte) übergeben wird. Die Library braucht also nicht nach einem abschließenden #0-Char zu suchen um die Länge des Strings zu ermitteln (im Unterschied zur veralteten Funktion "mysql_query").

[xFrankx]

samo ich Danke dir für deine Antwort.

Frage ? hättest du ein Demo oder noch etwas mehr Infos wie ich das machen könnte ?


Gruß Frank

[samso]

Ich habe ein neues Thema angelegt:

Binäre Daten in Blob speichern

[mrbrown]

Hu,

kann mir wer bezüglich eines kleinen Problems helfen?
Nutze die MySQL Verbindung wie im ersten Post erklärt mit der neuen .pas datei.
Folgdener Code:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  _myCon: PMySQL;       //unseren Verbindungsdeskriptor
  host, user, pass, db: PChar;       //die Anmeldedaten
  query: PChar;
  titel, datum, von, bis, test :string;

begin

   titel := Edit1.text;
   von := Edit2.Text;
   bis := Edit3.Text;
   test := RichEdit1.Text;



  libmysql_load(nil);
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'konfig.ini');
//wir werden uns als Root-Benutzer in localhost einloggen, ohne eine
  //bestimmte Datenbank auszuwählen
  host := Pchar(ini.Readstring('Server','ServerIp',''));
  user := Pchar(ini.Readstring('Server','Username',''));
  pass := Pchar(ini.Readstring('Server','Passwort',''));
  db := Pchar(ini.Readstring('Server','Datenabnk',''));

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

  mysql_select_db(_myCon, Pchar(ini.Readstring('Server','Datenbank','')));     //zu Datenbank wechseln
  mysql_real_query(_myCon, 'INSERT INTO testtable(titel, datum , von, bis, text) VALUES (titel, datum, von, bis, text)', Length(query));


  //zum Schluss wird die Verbindung wieder geschlossen
  mysql_close(_myCon);

  close;
end;

Wie man sieht soll eine MySQL Verbindung aufgebaut werden. In die Datenbank sollen dann 4 Werte (titel, datum, von, bis) sowie eine ID (Autoincrement, muss also nicht übergeben werden) eigetragen werden.
Problem ist, dass nichts übergeben wird. Ebenso bin ich mir nicht mal sicher ob er überhaupt die DB auswählt.

Könnte mir da ml wer helfen?

Gruß
MrBrown

[samso]

Zunächst mal finde ich die Sequenz

Delphi-Quellcode:

ini.Readstring('Server','Datenabnk','')

verdächtig. Hier müßte es ja wohl 'Datenbank' heißen. Außerdem sollten alle PChar in PAnsiChar geändert werden, um halbwegs die Kompatibilität zu Delphi2009 herzustellen. Sie schreiben "Problem ist, dass nichts übergeben wird". Hmm, soll vermutlich soviel heißen, wie "Der Eintrag wird nicht vorgenommen, aber ich erhalte auch keine Fehlermeldung".
Ich würde sagen, das liegt an der nicht initialisierten Variable "query". Richtig müßte es heißen:

Delphi-Quellcode:

var
  query: AnsiString;
begin
  ...
  query := 'INSERT INTO testtable(titel, datum , von, bis, text) VALUES (titel, datum, von, bis, text)';
  if mysql_real_query(_myCon, PAnsiChar(query), Length(query))<>0
  then
    raise Exception.Create('Schon wieder was falsch - '  + mysql_error(_myCon));
 ...
end;

[DeddyH]

Zitat:

SQL-Code:

INSERT INTO testtable(titel, datum , von, bis, text) VALUES (titel, datum, von, bis, text)

Was soll denn da eingetragen werden? So wie es da steht wird es jedenfalls nicht funktionieren.

[edit] Damit klar wird, was ich meine:

SQL-Code:

INSERT INTO testtable(titel, datum , von, bis, text) VALUES ('Hallo Welt', '2009-11-10', '2009-11-09', '2009-11-12', 'Dideldum')

Wobei man das Datum dann wohl besser auch als Datum(TDate) übergibt. [/edit]

[samso]

Ich gehe ja wohl auch davon aus, daß

SQL-Code:

INSERT INTO testtable(titel, datum , von, bis, text) VALUES (titel, datum, von, bis, text);

eher symbolisch gemeint war, oder? Wenn nicht, dann gibt es ja nun auch eine Fehlermeldung!

[DeddyH]

Davon gehe ich eben nicht aus, wozu sollte jemand eine einigermaßen umfangreichen Quelltext posten und an dieser Stelle plötzlich symbolische Werte eintragen (bei Passwörtern etc. macht das ja noch Sinn, aber hier)?

[mrbrown]

nein es sollte keine symbolischen werte sein sondern an dieser stelle sollten die variablen die mit den edits gefpüllt werden, an mysql weitergegeben werden.

[samso]

Dann vielleicht etwa so:

Delphi-Quellcode:

var 
  query: AnsiString; 
begin 
  ... 
  query := 'INSERT INTO testtable(titel, datum , von, bis, text) VALUES (' + 
           QuoteString(titel) + ',' +
           QuoteString(datum) + ',' +
           QuoteString(von) + ',' +
           QuoteString(bis) + ',' +
           QuoteString(text) + ')'; 
  if mysql_real_query(_myCon, PAnsiChar(query), Length(query))<>0 
  then 
    raise Exception.Create('Schon wieder was falsch - '  + mysql_error(_myCon)); 
... 
end;

Das setzt allerdings voraus, daß in "datum", "von" und "bis" das Datum bereits im korrekten Foramt vorliegt. Ist das nicht der Fall, muss der Datumsstring vorher noch in das richtige Format gebracht werden (yyyy-mm-dd oder yyyymmdd)
N.B. Falls Delphi2009 eingesetzt wird, muss noch die ein oder andere Stringkonvertierung hinzugefügt werden.

[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:

Delphi-Quellcode:

mysql_free_result(_mySubRes);

Wo kommt denn _mySubRes plötzlich her?

[edit] Sry, Willkommen in der DP :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!!! :wall:
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