RTF in MySQL

[Ykcim]

Hallo Zusammen,

ich stolpere mal wieder über die fehlenden Basics...

Ich möchte gerne den Inhalt eined RichEdits in eine MySQL DB speichern. Ich meine damit, dass ich den Inhalt und die Formatierung abspeichern und wieder herausholen möchte.

Beispiel:
Ich bin ein Test

Wenn es so abgespeichert wurde, soll es nach dem Laden der Daten auch so wieder angezeigt werden.

Ich habe dazu folgende Funktion gefunden, um nicht nur den Text (Ich bin ein Test), sondern auch die Formatierungsinformationen in eine string-Variable zu bekommen.

Delphi-Quellcode:

function RichText(re: TRichEdit): String;
var ss: TStringStream;
begin
  ss := TStringStream.Create ('');
  try
    re.Lines.SaveToStream(ss);
    Result := ss.DataString;
  finally
    ss.Free;
  end;
end;

Jetzt geht es aber um den Syntax, wie ich die Daten in dem MySQL Server speichern kann.
Ich habe es mit dem nachstehenden versucht (ein ganz normales insert), aber da bekomme ich Fehler...

So sieht das RichEdit aus:
Das ist ein Test

• bei dem ich RTF
• MySQL
• Delphi

zusammenbringen möchte

Delphi-Quellcode:

insert into plants (Name)
values({\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}'#$D#$A'\viewkind4\uc1\pard\ul\b\i\f0\fs16 Das ist ein Test\par'#$D#$A'\pard{\pntext\f1\''B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntxtb\''B7}}\fi-200\li200\ulnone\b0 bei dem ich RTF\par'#$D#$A'{\pntext\f1\''B7\tab}MySQL\par'#$D#$A'{\pntext\f1\''B7\tab}Delphi \i0\par'#$D#$A'\pard zusammenbringen m\''f6chte\par'#$D#$A'\par'#$D#$A'}'#$D#$A#0')

Der Fehler, den der MySQL-Server ausspuckt: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Tahoma' at line 2

Ich hoffe, dass ich mein Problem nachvollziehbar beschrieben habe, sonst bitte ich um einen Nachbesserungshinweis...

Kann mir jemand von Euch helfen, habe damit keine Erfahrungen?

Vielen Dank

Ykcim

[DeddyH]

Ich denke, Du musst den String escapen. Gibt es in der von Dir verwendeten Zugriffsbibliothek so etwas wie AddSlashes?

[himitsu]

Oder parametrisierte SQLStatement?

[mkinzler]

Bei RTF sollte das Escapen reiechn. Im Allgemeinen bietet sich aber u.U. eine Codierung in BASE64 o.ä an

[Ykcim]

Oh shit....

was Ihr mich da fragt weiß ich alles nicht :oops:

Ich weiß nicht, ob das hilft, aber das ist der Code, den ich verwende, um mit dem MySQL-Server zu kommunizieren...
Ich verwende die mysql.pas und die libmySQL.dll.

Delphi-Quellcode:

procedure TWorkshopFrame.Button1Click(Sender: TObject);
var query: string;
    Cols: TCols;
    Rows: TRows;
begin
  query:='insert into plants (Name) '+
         'values('+LOMUnit.RichText(RichEdit1)+')';
  LOMUnit.Connect;
  LOMUnit.ExecQuery(DB, query, Cols, Rows);
  LOMUnit.Disconnect;

Die Connect-Procedure

Delphi-Quellcode:

procedure connect;
var
  MYSQL_ROW: PMYSQL_ROW;
  Datei: TextFile;
  MyString: String;
begin
  libmysql_fast_load(nil);
  AssignFile(Datei, ExtractFilePath(Application.ExeName) + 'SQL.set');
  Reset(Datei);
  try
    ReadLn(Datei, MyString);
    host := copy(MyString, pos(':', MyString)+1, length(MyString));
    ReadLn(Datei, MyString);
    User := copy(MyString, pos(':', MyString)+1, length(MyString));
    ReadLn(Datei, MyString);
    Pass := copy(MyString, pos(':', MyString)+1, length(MyString));
    ReadLn(Datei, MyString);
    DB := copy(MyString, pos(':', MyString)+1, length(MyString));
  finally
    CloseFile(Datei);
  end;
  mySQL_Res := nil;
  if LibHandle<>nil
  then begin
    mysql_close(LibHandle);
    LibHandle := nil;
  end;
  LibHandle := mysql_init(nil);
  if LibHandle=nil
  then
    raise Exception.Create('mysql_init failed');
  if (mysql_real_connect(LibHandle,
                         PAnsiChar(AnsiString(Host)),
                         PAnsiChar(AnsiString(User)),
                         PAnsiChar(AnsiString(Pass)),
                         PAnsiChar(AnsiString(DB)),
                         3306, nil, 0)=nil)
  then
    raise Exception.Create(mysql_error(LibHandle));
end;

Die ausführende Procedure

Delphi-Quellcode:

function ExecQuery(const Datenbank, query: Ansistring; var Cols: TCols;
                   var Rows: TRows): Boolean;
var
  j, i, field_count, row_count: Integer;
  mySQL_Field: PMYSQL_FIELD;
  tablename: String;
  MYSQL_ROW: PMYSQL_ROW;
begin
   SetLength(Cols, 0);
   // Datenbank auswählen
   ErrorCode := mysql_select_db(LibHandle, PAnsiChar(AnsiString(Datenbank)));
   if ErrorCode = 0 then
   begin
     // Query ausführen
   if mysql_real_query(LibHandle, PAnsiChar(query), Length(query))<>0
    then begin
      raise Exception.Create(mysql_error(LibHandle));
      exit;
     end
     else
     begin
       // Query speichern
       mySQL_Res := mysql_store_result(LibHandle);
       if mySQL_Res<>nil
       then begin
         // zurückgelieferte Anzahl der Spalten
         ColCount := mysql_num_fields(mySQL_Res);
         SetLength(Cols, ColCount);
         SetLength(Rows, ColCount, 0);
         SetLength(Cols, ColCount);
         // Spalten-Array füllen
         for i := 0 to ColCount - 1 do
         begin
           mySQL_Field := mysql_fetch_field_direct(mySQL_Res, i);
           Cols[i] := mysql_field_name(mySQL_Field);
         end;
         // Anzahl der betroffenen Zeilen ermitteln
         AffectedRows := mysql_num_rows(mySQL_Res);
         SetLength(Rows, ColCount, AffectedRows);
         // neu ->
         // Zeilen-array füllen
         // alle Zeilen ...
         for j := 0 to AffectedRows - 1 do
         begin
           // ... werden eingelesen
           MySQL_Row := mysql_fetch_row(mySQL_Res);
           // alle Spalten ...
           for i := 0 to ColCount - 1 do
           begin
             // ... werden in Rows[] übertragen
             Rows[i, j] := MySQL_Row[i];

           end;
         end;
         // gespeicherte Abfrage wieder freigeben
         mysql_free_result(MySQL_Res);
       end
     end
   end;
   result := ErrorCode = 0;
end;

Disconnect

Delphi-Quellcode:

procedure disconnect;
begin
  mysql_close(LibHandle);
  LibHandle := nil;
  mySQL_Res := nil;
  libmysql_free;
end;

Delphi xe2 starter...

Vielen Dank für die Unterstützung

Ykcim

[jobo]

wie wär's mit TBlobField.assign?
.loadFromFile / Stream
.saveToFile / Stream

Code:

if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert;
Query1<persist-fieldname>.Assign(Image1.Picture.Bitmap);
Query1.Post;

[Perlsau]

Warum nimmst du nicht einfach ein TDBRichEdit? Oder ist das bei der Starter-Version nicht dabei?

[Ykcim]

Hallo Zusammen,

zurück von der Geschäftreise und wieder aus dem Wochenende raus, hoffe ich auf Eure Unterstützung auch jetzt noch...

Ich habe das Problem, dass ich den MySQL Syntax nicht hinbekomme... Ich habe ihn oben gepostet, aber wenn ich ihn testweise im QueryBrowser ausführe, bekomme ich die Meldung, dass er mehrere Anweisungen enthalte und er daher nicht ausführbar ist.

Kann mir jemand sagen, wie ich einen derartigen MySQL-Befehl formatieren muss?

Vielen Dank

Ykcim

Hier noch einmal den MySQL-Befehl:

Delphi-Quellcode:

insert into plants (Name)
 values({\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}'#$D#$A'\viewkind4\uc1\pard\ul\b\i\f0\fs16 Das ist ein Test\par'#$D#$A'\pard{\pntext\f1\''B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntxtb\''B7}}\fi-200\li200\ulnone\b0 bei dem ich RTF\par'#$D#$A'{\pntext\f1\''B7\tab}MySQL\par'#$D#$A'{\pntext\f1\''B7\tab}Delphi \i0\par'#$D#$A'\pard zusammenbringen m\''f6chte\par'#$D#$A'\par'#$D#$A'}'#$D#$A#0')

[mkinzler]

SQL-Code:

insert into plants (Name) values( :name);

Delphi-Quellcode:

Query.ParambyName('name').value := LOMUnit.RichText(RichEdit1);

oder kodiert:

Delphi-Quellcode:

Query.ParambyName('name').value := TIdURI.PathEncode(LOMUnit.RichText(RichEdit1));

[Ykcim]

Hallo,

darf ich annehmen, dass Du bei Deinem Beispiel Komponenten für die Kommunikation mit dem MySQL Server verwendest? Ich arbeite bislang ohne, habe es nie hinbekommen und je nach Komponente bei einem Kollegen eine Menge Fehler feststellen müssen...

Ich habe die Kommunikation bislang immer über die drei Funktionen / Prozeduren Connect, ExecQuery und Disconnect vorgenommen, die ich oben gepostet habe.

Ich würde gerne mal zu meinem Verständis einen Wert von Hand, d.h. per query-Befehl über den Query-Browser eingeben. Wenn mir das gelingt, könnte ich dann gucken, wie ich diese Query dynamisch über mein Delphi Programm generiere und dann mit den verfügbaren Funktionen an den MySQL-Server schicke.

Da ich noch nie eine andere Kommunikationsweise verwendet habe, verstehe ich Dein Beispiel leider nicht, SORRY!

Gruß

Ykcim

[mkinzler]

Dann müsste stmt_bind_param() die richtige Funktion sein, um mit Parametern zu arbeiten

http://dev.mysql.com/doc/refman/5.0/...ind-param.html

[Ykcim]

Vielen Dank für die Info!!!

Ich habe keine Ahnung, wie ich Funktionen auf dem MySQL Server ausführe und fürchte, dass ich das auch nicht so schnell erlerne...
Ich finde einfach keinen Ansatz und die Online Dokumentation ist für mich nicht nachvollziehbar...

Wäre nur leider eine wichtige Funktion für mein Programm...

Ich habe bis heute gedacht, dass ich die Feldinformationen und den Text in einem Feld (BLOB) der Datenbank speichere und dann mit einer Funktion diese getrennt von dem Text auslesen und an das RichEdit übergeben kann. Aber das scheint so nicht zu funktionieren.

Wenn jemand einen Tip für einen Dummi auf diesem Gebiet hat, wäre ich Euch sehr dankbar...

Vielen Dank

Ykcim

[mkinzler]

Das ist auch keine Funktion, die auf den Server ausgeführt wird, sondern eine Funktio der Clientbibliothek, die einen Parameter mit einem wert füllt.

[Ykcim]

Hallo,

ich fürchte ich muss dieses Thema auf Grund von Ahnungslosigkeit zurückstellen. Ich habe von den ganzen Hinweisen leider noch keine Ahnung...

Vielen Dank für die Hilfe bis hierhin!

Ykcim

[Klaus01]

Hallo,

kannst Du die RTF-Datei nicht komplett in ein BLOP Feld packen?
Dann müssten auch die Steuerzeichen nicht escapted werden.

Grüße
Klaus

[Perlsau]

Zitat:

Zitat von Klaus01 (Beitrag 1159969)

kannst Du die RTF-Datei nicht komplett in ein BLOP Feld packen? Dann müssten auch die Steuerzeichen nicht escapted werden.

Hab ich ihn oben auch schon gefragt, aber keine Antwort bekommen.

Es geht hier doch um Delphi-Programmierung und nicht um reines SQL, wenn ich das richtig verstanden habe. Wie man eine x-beliebige Datei via SQL in ein MySQL-Blobfeld bekommt, wüßte ich jetzt auch nicht. Wieso auch sollte man ein Blob-Feld mittels SQL-Query befüllen/auslesen, wenn man in Delphi entweder direkt ein TDBRichEdit verwenden oder aber via FileStream die Datei direkt vom Datenträger ins Blobfeld einlesen kann?

@Ykcim: Vielleicht hilft es dir, wenn du dir erst einmal ein wenig Datenbank-Grundlagen erarbeitest?

[samso]

@Ykcim
Im Prinzip bist Du auf dem richtigen Weg. Wenn Du Dein Post #1 und den Tip aus #2 zusammenbringst, sollte es funktionieren (ungetestet!):

Delphi-Quellcode:

function RichText(re: TRichEdit): AnsiString;
var ss: TMemoryStream;
begin
   ss := TMemoryStream.Create;
   try
     re.Lines.SaveToStream(ss);
     SetLength(Result, ss.Size);
     move(ss.Memory^, Pointer(Result)^, ss.Size);
   finally
     ss.Free;
   end;
end;

Der String muss dann Escaped, und an die Datenbank übergeben werden.

Delphi-Quellcode:

var
  query: AnsiString;
begin
  query := 'insert into plants set Name=' + QuoteString(RichText(MyRichEdit));
  mysql_real_query(LibHandle, PAnsiChar(query), Length(query))
end;

Zum Auslesen aus der Datenbank musst Du den umgekehrten Weg gehen. Also den Inhalt des Feldes Name in einen MemoryStream kopieren und diesen Stream dann in die RichEdit-Kompnente einlesen.

[Ykcim]

Toll, das Ihr mich offensichtlich nicht aufgebt!!!

Zitat:

Ich denke, Du musst den String escapen. Gibt es in der von Dir verwendeten Zugriffsbibliothek so etwas wie AddSlashes?

Ich weiß nicht, was escapen bedeutet. Deshalb bin ich nicht darauf eingegangen.
Ich verwende die mysql.pas und die libmySQL.dll. Was bedeutet AddSlashes?

Zitat:

Der String muss dann Escaped, und an die Datenbank übergeben werden.

Delphi-Quellcode:

var
   query: AnsiString;
begin
   query := 'insert into plants set Name=' + QuoteString(RichText(MyRichEdit));
   mysql_real_query(LibHandle, PAnsiChar(query), Length(query))

end;

Wird das unter escapen verstanden? Dann muss ich damit beschäftigen, genau wie mit dem Hinweis, es beim Auslesen andersherum zu machen, denn das ist mir noch nicht klar.

Zitat:

kannst Du die RTF-Datei nicht komplett in ein BLOP Feld packen?
Dann müssten auch die Steuerzeichen nicht escapted werden.

Das hört sich für mich am leichtesten an, auch wenn ich nicht weiß, wie ich das anstellen soll, weil ich es ja noch nicht einmal geschafft habe, den Wert der Query durch einen Haltepunkt abzugreifen und dann manuell im QueryBrowser auszuführen...

Vielen Dank für die tolle Unterstützung!!!

Gruß
Ykcim

[DeddyH]

Schau doch einfach in die mysql.pas, ob es da eine Routine namens AddSlashes gibt. Erläuterungen dazu findest Du z.B. hier.

[samso]

Zitat:

Ich weiß nicht, was escapen bedeutet

In der mysql.pas gibt es eine Funktion:

QuoteString
Diese Funktion ersetzt bestimmte Zeichen durch Escape-Sequenzen und fügt die Anführungszeichen hinzu.
(Hinweis: QuoteString ruft EscapeString auf)

Dazu siehe auch:
http://de.wikipedia.org/wiki/Escape-Sequenz

Ob Du ein Blob-Feld oder ein Text-Feld benutzt, spielt hier keine Rolle, weil der Insert-String in beiden Fällen gleich ist.

[Ykcim]

Hallo Zusammen,

vielen Dank für die guten Hilfen!!!

Ich habe jetzt mit dieser Zeile die Daten und die Formatierungen tatsächlich in den MySQL Server bekommen.:)

Delphi-Quellcode:

query:='insert into plants (Name) values(' + QuoteString(LOMUnit.RichTextSave(RichEdit1))+')';

Jetzt habe ich es testen und eine RichEdit diesen Text mit der Formatierung zuweisen wollen.
Dabei habe ich das Feld aus der Datenbank ausgelesten, so das mir der Wert in einem String (Rows[0,0]) vorlag. Diesen wollte ich dann mit diesem Aufruf

Delphi-Quellcode:

RichTextLoad(RichEdit1,Rows[0,0]);

und dieser Funktion

Delphi-Quellcode:

function RichTextLoad(re: TRichEdit; Text: string): String;
var ss: TStringStream;
begin
  ss := TStringStream.Create ('');
  try
    ss.WriteBuffer(Text[1],Length(Text));
    ss.Position := 0;
    re.Lines.LoadfromStream(ss);
    Result := ss.DataString;
  finally
    ss.Free;
  end;
end;

dem RichEdit1 wieder zuweisen.
Das klappt aber leider nicht, denn ich bekomme nur soetwas ausgegeben:
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}
\viewkind4\uc1\pard{\pnte

Der vollständige Feldinhalte sieht aber so aus:
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 Tahoma;}{\f1\fnil\fcharset2 Symbol;}}
\viewkind4\uc1\pard{\pntext\f1\'B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntx tb\'B7}}\fi-200\li200\ul\b\i\f0\fs16 Das ist ein zweiter Test\ulnone\b0\i0\par
}

Das rote fehlt komischer Weise und es ist natürlich auch nichts formatiert.

Ich habe mir diese Vorgehensweise aus Euren Hinweisen und stöbern überlegt...

Könnt Ihr mir helfen?

Vielen Dank

Ykcim

P.S.: Ich wünsche allen schöne Ostern

[samso]

Sehr wahrscheinlich ist das Feld "Name" einfach zu klein.
N.B.: Ich bewusst einen MemoryStream benutzt, denn der TStringStream ist ab Delphi 2009 ein Unicode-String und deshalb an dieser Stelle ungeeignet.

[Ykcim]

Das kann eigentlich nicht sein. Aber ich habe gerade festgestellt, dass er mir immer #0 zwischen die einzelnen Zeichen setzt... Warum?

Ykcim

[samso]

Weil die Variable Text ein Unicodestring ist? Text sollte ein Ansistring sein.

Probiere es mal so:

Delphi-Quellcode:

procedure RichTextLoad(re: TRichEdit; const Text: AnsiString);
var ss: TMemoryStream;
begin
   ss := TMemoryStream.Create;
   try
     ss.WriteBuffer(Pointer(Text)^, Length(Text));
     ss.Position := 0;
     re.Lines.LoadfromStream(ss);
   finally
     ss.Free;
   end;
end;

[Ykcim]

IT WORKS!!!!

Vielen Dank!!!

und schöne Ostern!!!

:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D:-D

Ykcim

Aber damit ich auch etwas lerne:

Delphi-Quellcode:

ss.WriteBuffer(Pointer(Text)^, Length(Text));

Ist das der Verweis auf den Speicherort des String? Wozu das ^?

[mkinzler]

Weil die Methode einen Zeiger auf den Speicherbereich verlangt.

[mabubo]

Lieber Ykcim,

ich würde auch gerne den Inhalt einer rft-Datei in ein Feld einer MySQL-Datenbank schreiben und war daher hoch erfreut zu sehen, dass sich schonmal jemand in diesem Forum damit beschäftigt hat.

Leider kann ich Deine Lösung nciht nachvollziehen. Du schreibst, dass es am Ende mit einer einzigen Zeile geklappt hat. Aber woher kommt "QuoteString"? (Delphi 2005 sagt, dass es den Befehlt nicht kennt) und was ist "LOMUnit"? Bzw woher kommt "Richtextsave" ?

Ich wüprde mich sehr über eine Antwort von Dir oder jemand anderem mit Überblick freuen.

Danke& Grüße
Martin

[himitsu]

QuoteString ist eine Funktion, welche bestimmt irgendwo in den DBX-Units versteckt ist (bei mir als Methode im TDBXTraceFormatter) und es gibt bestimmt auch eine ähnliche Funktion (vermutlich sowas wie escape_string) bei den mySQL-Funktion.
Such einfach etwas, welchesn " von und hinten an den String hängt (also den String quotet) und "böse" Zeichen im String escapet.

Aber statt dessen solltest du lieber, wenn die Möglichkeit besteht, auf parametriesierte Abfragen umsteigen.

[mabubo]

Dake für die schnelle Antwort. QuoteString habe ich inzwischen auch gefunden. Ich hatte eine zu alte Version der mySQL.pas, in der das noch nciht implementiert war.

Jetzt weiß ich aber immer noch nicht, woher "richtextsave" kommt, bzw, was die funktion zurückgibt.

@himitsu: Was meinst Du mit "parametriesierter Abfrage"?

Grüße
Martin