Hallo!
Ich greife auf eine
MySQL-Datenbank über "
MySQL direct" zu. Das hat bisher recht gut funktioniert. Nun soll aber ein RTF-Text in der Datenbank gespeichert werden. Das habe ich auf direktem Weg nicht hinbekommen:
Delphi-Quellcode:
function GetRTFFromRichEdit(): String;
var StrS : TStringStream;
begin
StrS := TStringStream.Create('');
try
MainForm.Richedit1.Lines.SaveToStream(StrS);
Result := StrS.DataString;
finally
StrS.Free;
end;
end;
Delphi-Quellcode:
procedure TMainForm.ToolButtonRTFSave(Sender: TObject);
var q:
string;
ex: boolean;
begin
Memo1.Text := QuotedStr(GetRTFFromRichEdit);
if assigned(FResult)
then begin
if FMysql.Status<>MYSQL_STATUS_READY
then
ShowMessage('
Ein Ergebnis wurde unvollständig gelesen!');
FreeAndNil(FResult);
end;
FResult := FMysql.query(
'
INSERT INTO req_items (text) VALUES (''
'+GetRTFFromRichEdit+'
''
)', true, ex);
if assigned(FResult)
then
ShowMessage('
Query: OK - Ergebnis gespeichert')
else
if ex
then
ShowMessage('
Query: OK - ausgeführt')
else
ShowMessage('
Query fehlgeschlagen: '+FMysql.LastError);
FreeAndNil(FResult);
end;
(Es handelt sich um ein Q&D-Beispiel, also bitte nicht auf jeder unnötigen Variable rummhacken - Danke!)
Hier werden diverse (notwendige) Zeichen nicht korrekt gespeichert.
Daraufhin habe ich an vielen Stellen im Forum gelesen, dass man RTF in einer Datenbank nur über einen Stream in ein Binärdatenfeld (z.B. blob) speichern kann. Ich habe aber keine Ahnung wie das (und ob das überhaupt) mit
MySQL direct geht.
Deshalb folgende Fragen an Euch:
- Können mit
MySQL direct streams verarbeitet werden?
Wenn ja:
- Wie geht das? Hat mir jemand ein Beispiel?
Wenn nein:
- Gibt es eine andere Möglichkeit den RTF-Text mit
MySQL direct in der Datenbank zu speichern (und wieder auszulesen), oder muss ich auf eine andere Zugriffsmethode ausweichen?
Gruß und schon mal besten Dank an alle!
StTüff