Discussion :

[Lung]

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 :

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

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

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

[petitprince]

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

Code :

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

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

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

[Lung]

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

Code :

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

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

[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

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

[petitprince]

Sinon y a :

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

[Jipété]

'Soir !

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

Code :

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

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 !

[Rayek]

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

[Lung]

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

Code :

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

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 :

Erreur d'insertion de ligne RichEdit

[Lung]

Victoire !! Ca marche !

Code :

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

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.

Merci pour votre aide.