Controler rapport rave avec Delphi [Résolu]

[pibull]

Bonjour,
Je souhaiterai créer mon rapport RAVE directement avec Delphi.

J'ai plusieurs rapports et je souhaite créer ceci dynamiquement sous Delphi avec les composants rave et les champs/valeurs de ma BDD.

Est-il possible de faire ceci ? si oui comment ?
J'ai essayé :

Code :

1
2
3
myPage:=rvproject1.ProjMan.FindRaveComponent('test',nil) AS TRavePage ;
myText:=Rvproject1.Projman.FindRaveComponent('T1',myPage) AS TRaveText;
myText.Text := 'test';

(dans mon rapport rave j'ai créé au préalable un champ texte "T1")
Mais j'ai une violation d'accès.

Merci d'avance.

[pibull]

J'ai essayé ceci mais j'ai toujours un problème de violation d'accès que je ne comprends pas.

Code :

1
2
3
4
5
6
# myPage : TRavePage;
# myText : TRaveText;
 
# myPage:=RvProject1.ProjMan.FindRaveComponent('report2',nil) AS TRavePage ;
# myText := myPage.CreateChild(TRaveText, 'Text1') AS TRaveText;
# myText.Text := 'OK';

Je ne sais pas si je pars sur la bonne voie !

[SergioMaster]

Bonjour,

L'inter action Delphi/Rave fonctionne pour peu

- d'indiquer les unités Rave a utiliser
- d'ouvrir le report

j'utilise très souvent ce genre de manips , il suffit de lire mes différents posts

Mais j'ai une violation d'accès.

Où exactement ? je parie que c'est à la ligne 2 ( mytext := ) parce que mypage = nil (unassigned)

[pibull]

Merci SergioMaster.
Je pense qu'il y a quelque chose qui m'échappe.
Dans tous les exemples que je trouve la page est définie ainsi (avec nil).
J'ai créé un rapport rave vide et je souhaite à partir de mon programme Delphi créer les composants et insérer les valeurs dans ces composants.
Merci d'avance.

[SergioMaster]

Envoyé par pibull

Je pense qu'il y a quelque chose qui m'échappe.
Dans tous les exemples que je trouve la page est définie ainsi (avec nil).
J'ai créé un rapport rave vide et je souhaite à partir de mon programme Delphi créer les composants et insérer les valeurs dans ces composants.

a moi aussi , quelque chose m'échappe
c'est un fichier Rave Vide ? Un Rapport (report2) dans le fichier Rave qui est vide ?

as-tu lu les quelques pdf fournis , il me semble me souvenir d'avoir vu un exemple complet de génération d'état via Delphi

[pibull]

J'ai créé un fichier .rav avec une page vide. (je ne cherche pas à renseigner les composants d'un rave déjà construits).
Je cherche à partir de mon programme Delphi de créer tous les composants et de les renseigner. Les données viennent de ma BDD.
Je pensais faire ceci mais ... :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ma_requête.SQL.Text := 'select champ1, champ2 from matable';
ma_requête.Open;
RvProject3.Open;
myPage:=RvProject3.ProjMan.FindRaveComponent('R2.Page1', nil) AS TRavePage ;
myText := myPage.CreateChild(TRaveText, 'Text1') AS TRaveText;
myText.Text := 'Test Rapport RAVE';
myText.Color := clRed;
myText.Font.Size := 30;
myText.Font.Style := [fsBold];
 
myRect := mypage.CreateChild(TRaveRectangle, 'rect1') AS TRaveRectangle;
myRect.text:=PSQLQuery1.FieldByName('champ1').AsString;
myRect.Visible:=true;
myRect2 := mypage.CreateChild(TRaveRectangle, 'rect2') AS TRaveRectangle;
myRect2.text:=PSQLQuery1.FieldByName('champ2').AsString;
myRect2.Visible:=true;

Je cherche à faire le même résultat que zemeilleurofgreg dans le post suivant (voir le jpeg)
http://www.developpez.net/forums/d69...font-datatext/
Merci.

[SergioMaster]

OK , je comprends mieux .
Donc tu as un Report (R2) contenant la page (Page1) vide

as-tu vérifié MyPage.assigned apres la ligne 4 ?

a celle-ci tu veux ajouter un RaveText , jusque là , je suis sauf que n'indique pas sa position dans la page

as-tu vérifié MyText.assigned apres la ligne 5 ?

Pour le rectangle par contre , sauf s'il s'agit d'une nouvelle version que je ne connais pas , il n'est pas possible d'avoir de texte à l'intérieur !
s'il s'agit en fait de mettre des données c'est d'un RaveDataText qu'il va falloir mettre , mais , là ca se corse il va falloir d'abord créer un RaveDatasource , le lier , ajouter les données etc ... un gros boulot en perspective

[pibull]

Merci je comprend mieux ce qu'il faut utiliser.
ça fonctionne bien maintenant.
Je me suis inspiré aussi de http://www.nevrona.com/rave/tips/rvtip79.html