Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi MySQL direct und stream und RTF (https://www.delphipraxis.net/104440-mysql-direct-und-stream-und-rtf.html)

StTüff 4. Dez 2007 12:20

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


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