Lesen und Schreiben von Rtf-Texten zum/vom Blob-Felder

Lesen und Schreiben von Rtf-Texten zum/vom Blob-Felder

Lesen und Schreiben von Rtf-Texten zum/vom Blob-Felder : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Ich musste herausfinden, wie RTF-formatierten Text Blob-Felder speichern und abrufen, die Formatierung erhalten bleibt. Diese sollte generische genug zu Ihrer Funktionsbibliothek zulegen...
Prozedur SetRTFTextFromBlobField (DsData: TDataSet; const sField: string; herausgeben: TRichEdit);
var
oBS: TBlobStream;
beginnen
oBS: = TBlobStream.Create(dsData.FieldByName(sField) als TBlobField, BmRead);
versuchen Sie
reEdit.Lines.LoadFromStream(oBS);
Schließlich
oBS.Free;
Ende;
Ende;
Prozedur SaveRTFTextToBlobField (DsData: TDataSet; const sField: string; herausgeben: TRichEdit);
var
oBS: TBlobStream;
beginnen
Wenn nicht (dsData.State in [DsEdit, DsInsert]) dann
dsData.Edit;
oBS: = TBlobStream.Create(dsData.FieldByName(sField) als TBlobField, BmWrite);
versuchen Sie
reEdit.Lines.SaveToStream(oBS);
dsData.Post;
Schließlich
oBS.Free;
Ende;
Ende;