Discussion :

[dem]

Bonjour,

Dans une première partie de mon appli, l'utilisateur peut écrire un texte formaté dans un RichEdit accompagné de tout ce qu'il faut comme un petit traitement de texte. Je recopie le contenu de mon RichEdit dans le fenêtre de l'éditeur directement dans le DBRichEdit qui convient et je Post le tout avant de réafficher la page mise à jour de la fiche sélectionnée de ma base de donnée.

Le code suivant, tiré directement de l'Aide Delphi, fonctionne très bien :

Code :

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

1
2
3
4
5
 
  TempStream := TMemoryStream.Create;
  RichEdit_Note.Lines.SaveToStream(TempStream);
  TempStream.Position := 0;
  DBRichEdit_Note.Lines.LoadFromStream(TempStream);

Si l'utilisateur souhaite modifier le texte en question, je fait l'inverse, Je transfère du DBRichEdit vers le RichEdit, et là.. patatra ... le texte est bien là mais sans être formaté :

Code :

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

1
2
3
4
5
 
  TempStream := TMemoryStream.Create;
  DBRichEdit_Note.Lines.SaveToStream(TempStream);
  TempStream.Position := 0;
  RichEdit_Note.Lines.LoadFromStream(TempStream);

J'ai essayé de passer par la sauvegarde temporaire d'un fichier RTF, mais cela ne change rien, ça fonctionne dans un sens mais pas dans l'autre.

Plaintext est bien à False dans les deux cas.

Je ne comprend pas... quelqu'un a une idée :

[PpPool]

salut à toi,

quel SGBD ? ta colonne est bien du type BLOB ?

@

[dem]

J'utilise une abse locale MyBase en binaire. C'est bien un BLOB, et je n'ai aucun problme d'utilisation et de récupération des données pour les inclure dans un traitment de texte avec le texte formaté. Les données sont bien stockées en texte formaté mais je n'arrive pas à les extraire de ce BLOB autrement que par copier-coller manuel.

[benleq]

J'utilise une abse locale MyBase en binaire. C'est bien un BLOB, et je n'ai aucun problme d'utilisation et de récupération des données pour les inclure dans un traitment de texte avec le texte formaté. Les données sont bien stockées en texte formaté mais je n'arrive pas à les extraire de ce BLOB autrement que par copier-coller manuel.

Bonjour,

je déterre le post, je rencontre le même problème.

J'ai essayé par code avec la commande CopyToClipboard et pasteFromClipboard et rencontre le même probléme
Par contre copier collé manuel cela fonctionne.

[SergioMaster]

Bonjour

je déterre le post, je rencontre le même problème.

Il aurait mieux valu ouvrir une nouvelle discussion ! 2005 c'est pas du récent et de plus cela n'apporte rien. De plus est-ce vraiment le même SGBD ?

J'ai essayé par code avec la commande CopyToClipboard et pasteFromClipboard et rencontre le même probléme
Par contre copier collé manuel cela fonctionne.

Je ne comprends pas, le sujet parle de récupération du blob dans une base de donnée que vient faire le clipboard là dedans ?
je moinsse donc aussi

[benleq]

Bonjour

Désolé pour le déterrage 'inapproprié'
Aprés différent essais, le passage par un Stream fait bien perdre le format.
J'ai corrigé mon code

j'utilise des bases acces 2003 et composant ADO
sous delphi XE2 le code suivant :

1: DBRichEdit1.SelectAll;
2: DBRichEdit1.CopyToClipboard;
3: RichEdit1.pasteFromClipboard;
4: RichEdit1.SelectAll;
5: RichEdit1.CopyToClipboard;
6: DBRichEdit4.pasteFromClipboard;

copie colle sans aucune perte de format d'un DBRichEdit a un RichEdit et inversement.

[ShaiLeTroll]

Sinon changer PlainText permet de controler la gestion de la mise en forme par les Stream
Et Un DBRichEdit, il y a un TField, c'est ce dernier que je manipulerais de préférence au lieu de Lines.Text

Pour moi l'utilisation de DBRichEdit.Lines.Text est une erreur fondamentale, seul DBRichEdit.Field.AsString ou TBlobField(DBRichEdit.Field).LoadFromStream() ne devrait être utilisé, ainsi, c'est la donnée qui est modifiée.