Afficher champs RTF dans un TDBMemo dans un TDBCrtlGrid

Bonjour,

j'ai une table oracle avec un champs clob comprenant un texte RTF.
J'aimerais afficher (pas éditer) cette valeur dans un TDBCtrlGrid.
Le composant TDBRichEdit ne peut être placé dans un TDBCtrlGrid. :arf:
Je peux y placer un TDBMemo, mais le champs est illisible.

Y a-t'il moyen d'afficher le texte non formatté dans le TDBMemo?
Comment?

Merci,
Alain

Hello,

Suggestions:
- un champ calculé sur ton TQuery + un TDBRichEdit masqué sur le TForm: sur l'événement OnCalcFields du TQuery, tu récupères le contenu du TDBRichEdit et tu l'affectes à ton champ calculé. Le TDBMemo affiche le contenu du champ calculé.
- Si tu as définis les champs sur ton TQuery, travailles sur le OnGetText du champ correspondant à ton RTF (en utilisant un TDBRichEdit ou un TRichEdit bidons ou n'importe quoi qui te renverras le texte sous une forme "présentable")

"Si tu as définis les champs sur ton TQuery, travailles sur le OnGetText du champ correspondant à ton RTF".
J'ai essayé, l'évènement OnGetText n'est même pas déclenché (bcb 2010).

Citation:

---

J'ai essayé, l'évènement OnGetText n'est même pas déclenché (bcb 2010).

---

Le TDBMemo et le TxxxField pointent sur le même champ ?
Est-ce qu'il y'a au moins un OnGetText qui fonctionne (j'imagine que tu as d'autres champs affichés dans ton TDBCtrlGrid) ?

En effet, le OnGetText est bien déclenché pour les autres champs.
Pour mon memo (qui est ReadOnly), il n'est pas déclenché.

J'ai essayé ceci dans le OnGetText d'un autre champs:

Code:

---

1 2 3 4 5 6 7 8 9

TRichEdit * toto=new TRichEdit(this); TStringStream *x=new TStringStream(SQLevDetORDERCOMMENT->AsString); toto->Parent=this; toto->Lines->LoadFromStream(x); toto->PlainText=true; DBMemo2->Text=toto->Lines->Text; delete x; delete toto;

---

mais j'ai un run-time error:
Field 'ORDERCOMMENT' cannot be modified.
sur la ligne DBMemo2->Text=toto->Lines->Text;

Donc, ca ne marche pas. Et je ne veux pas non plus que le champs soit modifié sans formattage, je veux juste l'afficher.

Hello

Tu as encore la possibilité d'utiliser un champ calculé affiché dans un TDBMemo. La difficulté sera alors de récupérer le RTF sans son formatage:

Code:

---

1 2 3 4 5

void __fastcall TForm4::Query1CalcFields(TDataSet *DataSet) { // ChampTest: champ calculé de type String Query1ChampTest->AsString = /**/Query1Notes->AsString;/**/ }

---

Si tu n'affiches qu'un seul panneau dans ton TDBCtrlGrid, tu peux encore dériver un composant de TDBRichEdit, et dans son constructeur mettre:

Code:

---

1 2 3 4 5

__fastcall TDBRichEditEx::TDBRichEditEx(TComponent* Owner) : TDBRichEdit(Owner) { ControlStyle = ControlStyle << csReplicatable; }

---

Cela aura au moins le mérite d'afficher le contenu du RichEdit pour l'enregistrement courant.

je pense que je vais devoir abandonner. J'ai créé un champs Computed, Size=4000.

Code:

---

1 2 3 4 5 6 7 8 9

TRichEdit * toto=new TRichEdit(this); TStringStream *x=new TStringStream(SQLevDetORDERCOMMENT->AsString); toto->Parent=this; toto->Lines->LoadFromStream(x); toto->PlainText=true; SQLevDetComputed->AsString=toto->Lines->Text.SubString(1,4000); delete x; delete toto;

---

et au run-time j'ai
Field is not BLOB.

Qu'est-ce que c'est compliqué pour afficher (même pas updater) une bête zone dans une grille. Vive access et les dlookup! :)

Citation:

---

et au run-time j'ai
Field is not BLOB.

---

Sur quelle ligne ? le SQLevDetORDERCOMMENT->AsString ?
Pour info, la technique que tu utilises m'a permis d'afficher un rtf stocké dans un champ MEMO (bon ok, c'est pas un CLOB issu d'une base Oracle, mais la pauvre base Paradox fournie en exemple avec Builder...)

sur la ligne SQLevDetComputed->AsString=toto->Lines->Text.SubString(1,4000);

La db: en test: oracle xe.
Le champs n'existe pas (computed).
type de query: ODAC (composants spécifiques oracle)

Le type: j'ai essayé ftMemo=> Il ne veut pas du champs calculé (en design-time avec la query open)
J'ai essayé ftWideString : pas d'erreur en design-time mais bien en run-time.

Le champs source est de type clob (4000).

Citation:

---

Envoyé par AlainBourgeois

Le champs source est de type clob (4000).

---

Et pourquoi pas un VARCHAR2(4000) ?

Parce qu'en prod c'est un clob, longueur illimitée. (le rtf peut être long!)