La lectura/escritura de texto rtf/de campos blob

La lectura/escritura de texto rtf/de campos blob

La lectura/escritura de texto rtf/de campos blob : Multi-millones de consejos para hacer su vida mas facil.

tenia que averiguar como almacenar RTF formato de texto a los campos blob, y como recuperarlo, conservando todo el formato. Estos deben ser lo suficientemente generica como para poner en su funcion de biblioteca...
procedimiento SetRTFTextFromBlobField( dsData: TDataSet const sField: cadena de reeditar: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp oBS := TBlobStream.Crear(dsData.FieldByName(sField) como TBlobField, bmRead)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp reeditar.Lineas.LoadFromStream(oBS)
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp oBS.Libre
& nbsp & nbsp final
fin
procedimiento SaveRTFTextToBlobField( dsData: TDataSet const sField: cadena de reeditar: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp si no (dsData.Estado en [dsEdit, dsInsert]) entonces
& nbsp & nbsp & nbsp & nbsp dsData.Editar
& nbsp & nbsp oBS := TBlobStream.Crear(dsData.FieldByName(sField) como TBlobField, bmWrite)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp reeditar.Lineas.SaveToStream(oBS)
& nbsp & nbsp & nbsp & nbsp dsData.Puesto
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp oBS.Libre
& nbsp & nbsp final
fin