Récupérer une donnée blob dans un RichEdit

Bonjour à tous.
Comment récuperer une donnée BLOB dans Rich Edit.
J'utilise Delphi 7 avec ADO et Mysql 5.

Merci d'avance.

Salut

La méthode la plus simple serait à mon avis d'utiliser TDBRichEdit.

@+

Merci beaucoup. En dehors de cette solution , il yen a d'autres ?

Salut

Citation:

---

Envoyé par hugobob

Merci beaucoup.

---

Avec plaisir.

Citation:

---

Envoyé par hugobob

En dehors de cette solution , il yen a d'autres ?

---

Si, tu lis le contenu de ton champ blob et le charge dans un flux (TMemoryStream), puis tu l'injectes dans ton TRichEdit via sa méthode Lines.LoadFromStream.

Faire la méthode inverse pour mettre à jour ton champ blob si tu veux sauvegarder les modification apportées au contenu du RichEdit.

Chose que je n'ai jamais implémentée d'ailleurs.

@+ Claudius

Citation:

---

Si, tu lis le contenu de ton champ blob et le charge dans un flux (TMemoryStream), puis tu l'injectes dans ton TRichEdit via sa méthode Lines.LoadFromStream.

---

Merci beaucoup.
mais comment lire le contenu de mon champ blob et le charger dans un flux TMemoryStream.

Merci encore .

Utilises les méthodes SaveToStream et LoadFromStream de ton champ TBlobField.

@+

Merci pour la reponse.

Mais voila ce que j'ai comme erreur(J'utilise ADODataSet)

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var bs : TStream; blobF : TBlobField; Ts: TMemoryStream; begin blobF :=ADODataSet.FieldByName('ChpBLOB') as TBlobField; // Commentaire blobF.SaveToStream(Ts); RichEdit1.Lines.LoadFromStream(Ts); end;

---

ça me renvoi une erreur au niveau du commantaire

Merci de m'aider je suis pratiquement bloqué.

salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var Ts: TMemoryStream; begin Ts := TMemoryStream.Create; try (ADODataSet.FieldByName('ChpBLOB') as TBlobField).SaveToStream(Ts); RichEdit1.Lines.LoadFromStream(Ts); finally Ts.free; end; end;

---

@+Phil

Merci anapurna.
Je regarde ce code tout à l'heure.