[D7] Comment enregistrer le RTF d'un RichEdit dans une BDD

Version imprimable

28/09/2006, 17h29
Lung

[D7] Comment enregistrer le RTF d'un RichEdit dans une BDD
Dans une fenêtre, j'ai un RichEdit dans lequel l'utilisateur peut écrire et mettre en forme du texte.
Quand l'utilisateur sauvegarde, j'insert ou update dans une table (Oracle).
Le problème :
Code:

1 2 3 4 ... Query.SQL.Add('update NOTE'); Query.SQL.Add('set MESSAGE = ' + QuotedStr(FormNote.RichEdit.Lines.Text) + ','); ...
De cette manière, je perd le formatage du texte.

Comment faire pour le conserver dans Oracle ?
J'ai essayé de jouer avec PlainText, mais sans résultat.

Une idée ... ?

:hola:
28/09/2006, 17h36
petitprince

Il suffit de sauver les lignes du richedit dans un stream.
Mais aussi, comment par la suite le recharger sans passer par un fichier text...
A méditer...
28/09/2006, 17h41
petitprince

Une solution serait de recharger le stream dans un composant non visuel du style StrHolder(RXLib) ou StingContainer(JVCL), et ensuite:

Code:

Query.SQL.Add('set MESSAGE = ' + QuotedStr(FormNote.StrHolder1.String.Text) + ',');

C'est un peut barbare mais je pense que ca va marcher...
A+
28/09/2006, 17h46
Lung

Citation:

Envoyé par petitprince

Une solution serait de recharger le stream dans un composant non visuel du style StrHolder(RXLib) ou StingContainer(JVCL), et ensuite:

Code:

Query.SQL.Add('set MESSAGE = ' + QuotedStr(FormNote.StrHolder1.String.Text) + ',');

C'est un peut barbare mais je pense que ca va marcher...

L'ennuis, c'est que les composants type JVCL ne me sont pas autorisés ...

:cry: :triste:
28/09/2006, 17h59
petitprince

Et RXLib aussi?
Sinon, je vois pas d'autre solution, sauf recharger dans un mémo invisible, mais là, c'est plus barbare, c'est ..... la solution du pauvre comme on dit :mouarf:

Sinon as-tu pensé à te faire une fonction pour gérer tous çà?

Sinon y a :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function TForm1.RTFtoText(rtf:string):string; 
var 
  temp_richedit: TRichedit; 
  temp_str: string; 
  ss: TStringStream; 
begin 
  ss := TStringStream.Create(rtf); 
  temp_richedit := TRichEdit.Create(nil); 
  try 
  temp_richedit.Lines.LoadFromStream(ss); 
  result := temp_richedit.Lines.Text; 
  finally 
   ss.free; 
   temp_richedit.Free; 
end; 
end;

Ca vient de la FAQ, mais ca marche pas chez moi....

'Soir !

Une form, un richedit, un memo, un button :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); var st: TMemoryStream; begin st := TMemoryStream.Create; richedit1.Lines.SaveToStream(st); st.Position := 0; memo1.Clear; memo1.Lines.LoadFromStream(st); st.Free; end;
Te reste plus qu'à enregistrer memo1.Lines dans ta base.
Mes 2 cts,
--
jp
Rappel : un fichier rtf, c'est un fichier texte avec des infos de formattage, un peu comme du chteumeuleu, koi !

29/09/2006, 08h53
Rayek

Avec 1 TMemoryStream et cette future QR, tu devrais pouvoir enregistrer facilement un document dans la base de données.

Bon, la piste du Stream me semble bonne. :ccool:
J'arrive à enregistrer mon RTF dans Oracle :
Code:

1 2 3 4 5 6 7 8 9 10 StringStream := TStringStream.Create(''); try FormNote.RichEdit.Lines.SaveToStream(StringStream); ... Query.SQL.Add('update NOTE'); Query.SQL.Add('set MESSAGE = ''' + FormatMessage(StringStream.DataString) + ''','); ... finally StringStream.Free; end;
Quand je prend ce que j'obtiens dans Oracle et que je mets ça dans un fichier *.rtf, ça s'affiche avec le fomatage.
Donc, jusque là, c'est bon.

Là où ça se gâte, c'est quand j'essai de recharger le contenu de mon champ Oracle dans un RichEdit. J'obtiens l'erreur :

Citation:

Erreur d'insertion de ligne RichEdit

:hola:

Victoire !! Ca marche ! :yaisse:

Code:

1
2
3
4
5
6
7
8
      StringStream := TStringStream.Create('');
      try
         StringStream.WriteString(Query.FieldByName('MESSAGE').AsString);
         StringStream.Position := 0;
         FormNote.RichEdit.Lines.LoadFromStream(StringStream);
      finally
         StringStream.Free;
      end;

En fait, je m'y prenais très mal. :aie:

Merci pour votre aide.

:merci: