![]() |
Datenbank: MySQL • Version: 4.1.14-nt • Zugriff über: MYSQL direct
MySQL direct und stream und RTF
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:
(Es handelt sich um ein Q&D-Beispiel, also bitte nicht auf jeder unnötigen Variable rummhacken - Danke!)
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; 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz