Formatierten Text in PostgreSQL 9 speichern

[FBrust]

Hallo zusammen, einen schönen 4. Advent wünsche ich,

ich versuche seit längerem für eine kleine Notizenanwendung den Text der Notiz formatiert (also fett, kursiv etc.) in einer PostgreSQL-Datenbank zu speichern, erhalte jedoch beim Wiederauslesen nur Zeichensalat.

Das Feld in der Datenbank ist vom Typ bytea. Wenn ich mit der Methode

Delphi-Quellcode:

function TfrmMain.GetRTFText: string;
var
  FStream : TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  FStream.Clear;
  redt1.Lines.SaveToStream(FStream);
  Result := PChar(FStream.Memory);
  FStream.Free;

end;

den Text als Stream in der Datenbank speichere, erhalte ich

Zitat:

"\345\261\273\347\221\262\343\205\246\346\205\234\ 347\215\256\345\261\251\346\225\244\346\231\246\34 7\254\260\346\231\234\346\271\257\347\221\264\346\ 261\242\345\261\273\343\201\246\346\231\234\346\24 5\256\345\261\254\346\215\246\346\205\250\347\215\ 262\347 (...)"

Beim Wiederauslesen mit

Delphi-Quellcode:

procedure TfrmMain.SetRTFText(RichRTFText: string);
var
  FStream : TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  FStream.Clear;
  FStream.WriteBuffer(RichRTFText[1], Length(RichRTFText));
  FStream.Position := 0;
  redt1.Lines.LoadFromStream(FStream);
  FStream.Free;
end;

erhalte ich nur wirren Zeichensalat.

Hat vielleicht jemand einen Tip, wo ich ansetzen kann?


Gruß
Frank

[nahpets]

Hallo,

das sieht aus wie unvollständiges RTF.

Zeichenfolgen in der Form "\345\261\273\347\221\262\343" können da schon vorkommen, es scheint aber der Header zu fehlen.

Ein bisserl was zum RTF-Format ist hier zu finden: https://en.wikipedia.org/wiki/Rich_Text_Format

Speichere doch bitte den Text auch einmal mit  redt1.Lines.SaveToFile('Testdatei.rtf'); und schau, ob Du die Datei mit 'ner Textverarbeitung öffnen kannst und sie dort vernünftig angezeigt wird.

Und schau bitte mal mit Notepad, Hexeditor (oder so) in die Datei und prüfe, ob die Datei der Spezifikation entspricht oder den gleichen Inhalt hat, wie der Stream.

Datei und Stream müssten eigentlich mit {\rtf beginnen und mit } enden.

Ist dem bei Beiden nicht so, so wird von redt1 kein (vollständiges) RTF gespeichert. Prüfe dann mal bei den Eigenschaften, ob da was zu konfigurieren ist.

Eventuell fehlt hier in der Routine aber auch was:

Delphi-Quellcode:

function TfrmMain.GetRTFText: string;
var
  FStream : TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  FStream.Clear;
  redt1.Lines.SaveToStream(FStream);
  FStream.Position := 0; // <- fehlt das?
  Result := PChar(FStream.Memory);
  FStream.Free;
end;

Ansonsten helfen diehier?
http://www.delphipraxis.net/167329-t...ichern-db.html
http://stackoverflow.com/questions/4...into-trichedit

[jobo]

Ich würde es mal mit Datentyp
TEXT oder für kleinere Texte VARCHAR statt BYTEA versuchen.

[FBrust]

Hallo,

danke für die Antworten.

Also die RTF-Datei wird einwandfrei gespeichert und hat dann auch den korrekten Inhalt.

Ich habe zwischenzeitlich ein varchar-Feld für die Daten genommen.

Wenn ich allerdings den Inhalt des Richedits mit GetRTFText in einen Stream umwandle, wird ein Teil der RTF-Daten abgeschnitten, was dann so aussieht:

Zitat:

{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
\viewkind4\uc1\par

Das FStream.Position := 0; hat tatsächlich gefehlt, die Korrektur hat aber keine Auswirkung auf das Ergebnis.



Gruß
Frank

[Perlsau]

Hatte vor längerer Zeit mal ähnliche Probleme beim Speichern von RTF-Dateien in Firebird. Seitdem ich nun RTF-Dateien in binären Blobfeldern speichere, wird alles so ausgegeben, wie es gespeichert wurde, und zwar fehlerfrei ebenfalls mit SaveToStream und LoadFromStream. Zuvor hatte ich den Subtyp Text des Blobtypes verwendet, was zu Darstellungsfehlern nach dem Einlesen aus Blobfeld führte.

Da du ja ebenfalls ein Blob-Feld verwendest, um RTF-Inhalte zu speichern, könnte es sich vielleicht um eine ähnliche Problematik handeln. Unter PostGreSql gibt es ja ebenfalls ein binäres (Hex Format) und ein textbasiertes (Escape Format) Blobfeld. Vielleicht lassen sich nicht alle Zeichen, die in deinem RTF-Text vorkommen, als Ascii-Werte speichern bzw. kommt es zu Fehlern beim maskieren der unbekannten Zeichen. Bei einer binären Speicherung dürfte das dann keine Rolle mehr spielen.

[FBrust]

Hallo,

eigentlich wollte ich die Daten auch binär in einem BYTEA-Feld speichern, aber dann kommt nur wirrer Zeichensalat bei raus.

Wenn ich ein Varchar-Feld nehme, wird der RTF-Text, der ja die Formatierungen enthält, abgeschnitten, obwohl das Feld groß genug ist.

Ich steh irgendwo auf dem Schlauch...


Gruß

Frank

[nahpets]

Ich weiß nur, dass beim Zugriff auf PostGres über ADO die Größe von Textmemos begrenzt ist.

Das Größenproblem liegt nicht auf der Datenbankseite und nicht in Delphi, sondern irgendwo dazwischen.

Beim Zugriff über ODBC kann man in der Konfiguration unter "Options -> DataSource" einen Wert für "Max Varchar" eingeben (der unter ADO aber keine Auswirkung zu haben scheint).

Kann man das beim Zugriff über die Zeos-Komponenten irgendwo konfigurieren?

[Perlsau]

Wenn ich die oben bereits verlinkte Dokumentation richtig verstehe, gibt zwei Blob-Typen:

The bytea type supports two external formats for input and output: PostgreSQL's historical "escape" format, and "hex" format. Both of these are always accepted on input. The output format depends on the configuration parameter bytea_output; the default is hex. (Note that the hex format was introduced in PostgreSQL 9.0; earlier versions and some tools don't understand it.)

The SQL standard defines a different binary string type, called BLOB or BINARY LARGE OBJECT. The input format is different from bytea, but the provided functions and operators are mostly the same.

Ich würde da jetzt mal herumexperimentieren (oder besser: nein, ich würde jetzt nicht, aber du könntest). Schau dir auch mal die beiden Tabellen in der verlinkten Doku an, da gibt es auch sog. Ausgabe-Parameter, die darüber entscheiden, was wie ausgegeben wird, insbesondere, wenn Zeichen zuvor maskiert wurden.

Gerade finde ich noch einen Hinweis in meinem PostGre-Handbuch: Um den Datentyp bytea zu verwenden, sollten Sie einfach die Methoden getBytes(), setBytes(),
getBinaryStream() oder setBinaryStream() anwenden.

[FBrust]

Hallo,

der RTF-String ist schon abgeschnitten, wenn ich in innerhalb des Programms in einen Stream und wieder zurück wandele, ohne dass die Datenbank im Spiel ist.

Perlsau hat schon recht, ich muss da experimentieren und die richtige Kombination aus Stream-Konfiguration, Komponenteneinstellung und Wissen aus Forenbeiträgen austüfteln.

Jedenfalls danke für die Ideen, ich werde berichten.




Gruß
Frank

[Perlsau]

Sorry, aber das kann ich nun überhaupt nicht nachvollziehen. Im Anhang eine Zip-Datei mit einem Test-Projekt (D2009), das einwandfrei funktioniert: Die geladene RTF-Datei wird via TMemoryStream in ein zweites RichEdit kopiert, und zwar vollständig fehlerfrei:

Delphi-Quellcode:

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TFormMain = class(TForm)
    Panel_Main: TPanel;
    Panel_Navi: TPanel;
    Rich_Quelle: TRichEdit;
    Rich_Ziel: TRichEdit;
    Btn_Close: TButton;
    OpenDlg: TOpenDialog;
    SaveDlg: TSaveDialog;
    Btn_Open: TButton;
    Btn_Save: TButton;
    Btn_Kopie: TButton;
    procedure Btn_CloseClick(Sender: TObject);
    procedure Btn_OpenClick(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure Btn_KopieClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.Btn_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFormMain.Btn_OpenClick(Sender: TObject);
begin
  If Not OpenDlg.Execute Then Exit;
  Rich_Quelle.Lines.LoadFromFile(OpenDlg.FileName);
end;

procedure TFormMain.Btn_SaveClick(Sender: TObject);
begin
  If Not SaveDlg.Execute Then Exit;
  Rich_Ziel.Lines.SaveToFile(SaveDlg.FileName);
end;

procedure TFormMain.Btn_KopieClick(Sender: TObject);
Var
  S : TMemoryStream;
begin
  S := TMemorystream.Create;
  Try
    Rich_Quelle.Lines.SaveToStream(S);
    S.Position := 0;
    Rich_Ziel.Lines.LoadFromStream(S);
  Finally
    S.Free;
  End;
end;

end.