RTF in MySQL

[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