Discussion :

[abdelghani_k]

Bonjour,

Une fois l'application installée,
est-ce l'état de Rave (.rav) s'intègre dans l'application delphi ou il est nécessaire de copier le fichier .rav avec l'application ?

Merci.

[sjrd]

Tu peux choisir : il est possible de faire les deux. Pour la mettre dans l'application, il suffit de l'ajouter en tant que ressource.
Après voir l'aide sur TRvProject.

[abdelghani_k]

Merci pour ta réponse qui m'a ouvert l'appétit.

Aprés des recherches voici la synthèse :

Il y a plusieurs manières pour déployer les rapports RAVE :

1. Employer le fichier RAV externe dans l’application et le distribuer :

Code :

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

1
2
3
4
5
6
7
 
with RvProject1 do begin
  ProjectFile := ExtractFilePath(Application.ExeName) + 'Project1.rav'; 
  Open;
  ExecuteReport('Report1');
  Close;
end;

Dans le cas ou vous utilisez un dossier pour les projets RAVE, il ne faut pas oublier de créer ce dossier chez l’utilisateur final, de copier le projet RAV et de changer ProjectFile soit dans l’IDE ou par code.

2. Stocker le fichier RAV dans votre application d'EXE :
Aller à votre composant de RvProject et choisir la propriété de StoreRav.
Le clic sur le 3points de cette propriété permet d’afficher une fenêtre de dialogue Chargement dans l’exe comprenant 4 bouttons (Fermer, Charger, enregistrer, Effacer).
Charger permet de Charger le fichier RAV cela va enregistrer la date et l’heure du chargement et non pas la date et l’heure modification. Il est nécessaire de charger la date et l’heure à chaque fois ou vous apportez des modifications à votre projet RAV.

NOTE : Avec la version de RAVE 5.0.4 ou plus, la forme qui contient le composant RvProject ne doit pas être placée au format «DFM Texte».
Pour la changer, aller à la forme qui contient le RvProject. Un clic droit sur la forme et s’assurer que le format n'est pas placé en tant que « DFM Texte ».

3. Stocker le fichier RAV à l'intérieur d'une Ressource, BLOB-Field ou dans une DLL comme ce qui suit :

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
 
var 
  TP_res : TResourceStream; 
begin 
  TP_res := TResourceStream.create(Hinstance,' Project1','RAVE'); 
  if (res = nil) then begin 
    MessageDlg('problème !!!', mtError, [mbok],0); 
    exit; 
  end; 
  RvProject1.New; 
  RvProject1.LoadFromStream(TP_res); 
  RvProject1.SelectReport('Report1',false); 
  RvProject1.Execute; 
  RvProject1.Close; 
  TP_res.Free; 
end;