RTF in MySQL

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

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

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!!!



Ykcim

Aber damit ich auch etwas lerne:

ss.WriteBuffer(Pointer(Text)^, Length(Text)); Ist das der Verweis auf den Speicherort des String? Wozu das ^?