Formatierten Text in PostgreSQL 9 speichern

[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' ) );