Thema: RTF in MySQL

Einzelnen Beitrag anzeigen

samso

Registriert seit: 29. Mär 2009
183 Beiträge
 
#17

AW: RTF in MySQL

  Alt 3. Apr 2012, 16:28
@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.
  Mit Zitat antworten Zitat