Lecture/écriture de texte rtf/à partir de champs de type blob


je voulais savoir comment conserver le texte au format RTF pour les champs de type blob, et comment faire pour le récupérer, en conservant la mise en forme. Ceux-ci devraient être suffisamment générique pour mettre dans votre bibliothèque de fonctions...
procédure SetRTFTextFromBlobField( dsData: TDataSet const sField: chaîne de remodifier: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp oBS := TBlobStream.Créer(dsData.FieldByName(sField) TBlobField, bmRead)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp remodifier.Les lignes.LoadFromStream(oBS)
& nbsp & nbsp enfin
& ! & ! & ! & nbsp oBS.Gratuit
& nbsp & nbsp fin
fin
procédure SaveRTFTextToBlobField( dsData: TDataSet const sField: chaîne de remodifier: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp si ce n' (dsData.État [dsEdit, dsInsert])
& ! & ! & ! & nbsp dsData.Edit
& nbsp & nbsp oBS := TBlobStream.Créer(dsData.FieldByName(sField) TBlobField, bmWrite)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp remodifier.Les lignes.SaveToStream(oBS)
& ! & ! & ! & nbsp dsData.Post
& nbsp & nbsp enfin
& ! & ! & ! & nbsp oBS.Gratuit
& nbsp & nbsp fin
fin









Lecture/ecriture de texte rtf/a partir de champs de type blob


Lecture/ecriture de texte rtf/a partir de champs de type blob : Plusieurs milliers de conseils pour vous faciliter la vie.


je voulais savoir comment conserver le texte au format RTF pour les champs de type blob, et comment faire pour le recuperer, en conservant la mise en forme. Ceux-ci devraient etre suffisamment generique pour mettre dans votre bibliotheque de fonctions...
procedure SetRTFTextFromBlobField( dsData: TDataSet const sField: chaîne de remodifier: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp oBS := TBlobStream.Creer(dsData.FieldByName(sField) TBlobField, bmRead)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp remodifier.Les lignes.LoadFromStream(oBS)
& nbsp & nbsp enfin
& ! & ! & ! & nbsp oBS.Gratuit
& nbsp & nbsp fin
fin
procedure SaveRTFTextToBlobField( dsData: TDataSet const sField: chaîne de remodifier: TRichEdit )
var
& nbsp & nbsp oBS: TBlobStream
begin
& nbsp & nbsp si ce n' (dsData.Etat [dsEdit, dsInsert])
& ! & ! & ! & nbsp dsData.Edit
& nbsp & nbsp oBS := TBlobStream.Creer(dsData.FieldByName(sField) TBlobField, bmWrite)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp remodifier.Les lignes.SaveToStream(oBS)
& ! & ! & ! & nbsp dsData.Post
& nbsp & nbsp enfin
& ! & ! & ! & nbsp oBS.Gratuit
& nbsp & nbsp fin
fin


Lecture/écriture de texte rtf/à partir de champs de type blob

Lecture/écriture de texte rtf/à partir de champs de type blob : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation