Discussion :

[Leesox]

Bonjour,

J'ai lu quelques posts concernant la manipulation de TRichEdit.
Je désire enregistrer TRichEdit avec son formatage (police en gras, couleur, ...)
L'enregistrement de ces données peut s'effectuer par un fichier .rtf.

Par contre est-il possible d'enregistrer tout ceci dans un champ d'une base de données au lieu d'un fichier.

Merci

Edit : Je pense avoir posté ce message dans un mauvaix forum. Merci de le transférer dans Delphi/Composants

[ShaiLeTroll]

Un SaveToFile en jouant sur la propriété PlainText pourrait aboutir à une solution ?

[Leesox]

En fait, le programme enregistre des recettes.
J'ai une table d'une BDD Access avec comme champs :
ID
Nom de la recette
Catégorie
Ingrédients de type Mémo
Fabrication de type Mémo

Ce qui m'intéresse, c'est de laisser à l'utilisateur le choix de formater le texte de "Ingrédients" et "Fabrication" qui serait chacun sur la Form dans un TRichEdit.

Donc, si je comprend bien ta question ou ta réponse, ce serait d'enregistrer dans les champs de la table une référence propre à l'ID de la recette qui irait sauvegarder un fichier .rtf dans un sous répertoire.
Pourquoi pas. Mais est-ce une méthode normal pour faire ce genre de programme ?

Edit : Ce que je voulais savoir, c'est s'il était possible à une base de données de sauvegarder des données formatées. Apparement non !

[ShaiLeTroll]

Dans ce cas, tu peux faire un SaveToStream et TBlobField.LoadFromStream ...

Mais stocker trop de blobs ce n'est pas terrible, tout dépend tes possibilités, avec Paradox pour la santé de la base, un sous-dossier avec les fichiers serait plus prudent, avec MySQL, Oracle, ... le blob, ça tient la route, je maintiens une application qui stocke image, fichier, dfm, xml (zippé) dans des blobs et pas que des petits volumes

Pour le champ blob, c'est du binaire, cela ne concerne aucunement la base de savoir comment le gérer, ...

[rbh]

Salut
J'ai fait une classe qui hérite de TRichEdit pour les mêmes raison que toi.
j'ai fait ces 2 fonctions:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function TMSRichEdit.GetTexteFormate: string;
var
  MyStrStream: TStringStream;
begin
  MyStrStream := TStringStream.Create('');
  Self.Lines.SaveToStream(MyStrStream);
  result := LeftStr(MyStrStream.DataString, Length(MyStrStream.DataString) - 1);
  FreeAndNil(MyStrStream);
end;
 
procedure TMSRichEdit.SetTexteFormate(Value: string);
var
  MyStrStream: TStringStream;
begin
  MyStrStream := TStringStream.Create(Value);
  Self.Lines.Clear;
  Self.Lines.LoadFromStream(MyStrStream);
  FreeAndNil(MyStrStream);
end;

Le tout enregistrer dans des champs memo d'un table access

[ShaiLeTroll]

sinon en standard, il y a le TDBRichEdit qui se connecte via un DataSource sur n'importe quel champ String ou Blob ... (le Edit et Post explicite sont nécessaire pour les modifications du formatage uniquement)

[Leesox]

Merci à tous les deux pour vos réponse.

sinon en standard, il y a le TDBRichEdit qui se connecte via un DataSource sur n'importe quel champ String ou Blob ... (le Edit et Post explicite sont nécessaire pour les modifications du formatage uniquement)

J'avais testé ce compsant connecté à un champ mémo de la table access, mais sans résultat sur la sauvegarde du format. De plus, je n'aime pas trop utilisé les compo de base de données.

Je vais tester les deux premières solutions :
- des fichiers rtf en sous-dossier sur le disque
- la classe de rbh

Je vous tiens au courant

[Leesox]

Bonjour,

J'ai mis en place le système par fichier et tout à l'air de fonctionner très bien.

J'ai testé la classe de rbh, mais sans succès. J'ai bloqué sur cette ligne
MyStrStream := TStringStream.Create('');
TStringStream n'accepte pas de string

Merci encore