Afficher champs RTF dans un TDBMemo dans un TDBCrtlGrid

**AlainBourgeois** · 09/08/2010, 11h43

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.

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

**totoche76** · 09/08/2010, 14h28

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")

**AlainBourgeois** · 09/08/2010, 15h22

"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).

**totoche76** · 09/08/2010, 17h04

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) ?

**AlainBourgeois** · 10/08/2010, 10h46

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**totoche76** · 10/08/2010, 12h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**AlainBourgeois** · 10/08/2010, 13h37

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

**totoche76** · 10/08/2010, 14h44

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...)

**AlainBourgeois** · 10/08/2010, 15h35

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).