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
By commentfaire
Lecture/écriture de texte rtf/à partir de champs de type blob : Plusieurs milliers de conseils pour vous faciliter la vie.