Formatierten Text in PostgreSQL 9 speichern

[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.

[HolgerX]

Mal ne Frage:

Wie groß ist den der Text im RichEdit?

Per Default kann das RichEdit nur 64K aufnehmen. Vielleicht wird zwar mehr Text angezeigt, aber beim Speichern nur die 64K exportiert.
Zu Bedenken ist hier der Unterschied zwischen Text und RTF.

[Sir Rufo]

Es ist schon sehr abenteuerlich, was du da mit dem Stream veranstaltest (casten des Stream-Inhalts mit PChar ).

Wenn du den RTF-String haben möchtest, dann nimm doch einfach

Delphi-Quellcode:

function TfrmMain.GetRTFText: string;
begin
  Result := redt1.Lines.Text;
end;

Wenn du in ein Blob-Feld speichern möchtest, dann nimm doch die einfache Variante:

Delphi-Quellcode:

// DataSet und Name des Felds musst du anpassen
MyDataSet.FieldByName( 'MyRtfBlobField' ).Assign( redt1.Lines );

und das Lesen geht ähnlich kompliziert

Delphi-Quellcode:

// DataSet und Name des Felds musst du anpassen
redt1.Lines.Assign( MyDataSet.FieldByName( 'MyRtfBlobField' ) );