FastReports sans base de données ?

Bonjour à tous,
► pour les admin : le lien vers le forum d'entraide sur les générateurs d'états renvoie sur le forum Business Intelligence :( du coup j'ai posté ici.

Suite à une question que je posais sur le forum sur imprimer un RichEdit en A4, ShaiLeTroll m'a fait remarquer que travailler avec un outil comme FastReports me faciliterai la vie.
J'ai donc téléchargé la version gratuite de FR version VCL pour voir.
C'est ma 1ere approche d'un générateur d'état ... et bien entendu, je suis dans la marre avec de l'eau jusqu'au cou !

• Ma première question : Tous les tutos parlent de data provenant d'une base de données, moi j'ai un simple RichEdit sur une Form contenant un texte formaté RTF (en fait j'ai un mémo avec le code RTF que je reverse dans un TRichEdit via un StringStream pour avoir le formatage RTF), comment je peux verser le contenu de mon composant VCL dans le composant de FR ? ou dire à FR que ma data c'est RichEdit.Lines (ou un truc identique) ?

Merci de votre aide

Actuellement, je sais que tout FastReport est alimenté via un TClientDataSet, je n'ai pas mis le nez dans ce code que lors d'un petit bug à cause d'un nom de champ trop long (>30)

Utilise TfrxRichView qui contient un RichEdit affecte lui le Stream utilise TfrxReport.OnGetValue

Merci ShaiLeTroll,

Ah! surprise!8O en tapant TfrxRichView dans la barre de recherche des composants, il n'y est pas ...
Le seul composant que j'ai dans FastReport VCL est frxRichObject qui n'est pas un composant visuel et ne possède pas d'événements.
Il faut que je passe par frxReport ? dedans il y a un RichText Object mais sans événement OnGetValue ... punaise, ça commence mal :calim2:

Citation:

---

Envoyé par patrice@

► pour les admin : le lien vers le forum d'entraide sur les générateurs d'états renvoie sur le forum Business Intelligence :( du coup j'ai posté ici.

---

Normal, car il y a plusieurs générateurs d'états. Au sein du forum Business Intelligence il y a Autres outils décisionnel et à l'intérieur on trouve FastReport

Citation:

---

Tous les tutos parlent de data provenant d'une base de données,

---

Pas tous, mais là n'est pas le problème, on peut très bien ne pas utiliser de data d'une base de données et utiliser un frxuserdataset

Citation:

---

comment je peux verser le contenu de mon composant VCL dans le composant de FR ?

---

La réponse je pense l'avoir donnée dans cette discussion toujours en utilisant un FrxuserDataset.

une autre solution s'il ne s'agit que d'un seul richedit est d'accéder au composant,

:alerte: brouillon non testé

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent); var rich : TFrxRichview; // uses frxrich begin begin rich:=frxReport1.FindComponent('Rich1') as TFrxRichview; if assigned(rich) then begin rich.RichEdit.lines:=RichEdit1.Lines; end; end;

---

NB. il faudra poser un tfrxRichObject sur la forme

Pièce jointe 643985

dans mes différents essais, les couleurs et images n'apparaissent pas :cry:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TLireDat.btnDialogClick(Sender: TObject); begin if opendialog1.Execute then begin edit1.Text:=opendialog1.FileName; richedit1.Lines.LoadFromFile(opendialog1.FileName); end; end;   procedure TLireDat.Button1Click(Sender: TObject); begin frxReport1.ShowReport(); end;   procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent); var rich : TFrxRichview; begin rich:=frxReport1.FindComponent('Rich1') as TFrxRichview; if assigned(rich) then begin rich.RichEdit.lines:=RichEdit1.Lines; end; end;

---

À ma décharge, c'est la première fois que j'utilise les TRichView et TFrxRichView. Il y a peut-être des subtilités que je n'ai pas utilisées.

NOTE : si je code ainsi rich.RichEdit.Lines.LoadFromFile(opendialog1.FileName); à la place de rich.RichEdit.lines:=RichEdit1.Lines; les couleurs et dessin sont bien visibles dans l'état. La subtilité est donc à chercher les bonnes propriétés.
Autre solution, passage par un stream

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TLireDat.frxReport1BeforePrint(Sender: TfrxReportComponent); var rich : TFrxRichview; aStream : TmemoryStream; begin rich:=frxReport1.FindComponent('Rich1') as TFrxRichview; if assigned(rich) then begin aStream:=TmemoryStream.Create; try RichEdit1.lines.SaveToStream(aStream); aStream.Position:=0; rich.RichEdit.Lines.LoadFromStream(aStream); finally aStream.Free; end; end; end;

---

Je n'ai pas non plus tester un texte qui tiendrait sur plus d'une page (ce qui risque d'être un peu plus compliqué)

un problème de transfert PlainText du Lines ?

Code:

---

1 2 3 4 5 6 7 8 9

RichEdit1.PlainText := False; // je ne sais jamais la bonne valeur, un cas c'est juste le texte nu dans l'autre le texte formaté MS := TMemoryStream.Create(); try RichEdit1.Lines.SaveToStream(MS); MS.Seek(soFromBeginning, 0); rich.RichEdit.lines.LoadFromStream(MS); finally MS.Free(); end;

---