Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: RTF in MySQL

   
    by samso, 5. Apr 2012
  Weil die Variable Text ein Unicodestring ist? Text sollte ein Ansistring sein.
  
  Probiere es mal so:
  
  procedure RichTextLoad(re: TRichEdit; const Text: AnsiString);
  var ss: TMemoryStream;
  begin
  ss := TMemoryStream.Create;
  try
  ss.WriteBuffer(Pointer(Text)^, Length(Text));
• Forum: Datenbanken

  AW: RTF in MySQL

   
    by samso, 5. Apr 2012
  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.
• Forum: Datenbanken

  AW: RTF in MySQL

   
    by samso, 5. Apr 2012
  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.
• Forum: Datenbanken

  AW: RTF in MySQL

   
    by samso, 3. Apr 2012
  @Ykcim
  Im Prinzip bist Du auf dem richtigen Weg. Wenn Du Dein Post #1 und den Tip aus #2 zusammenbringst, sollte es funktionieren (ungetestet!):
  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);