Discussion :

[Zoilus]

Bonjour,

j'utilise Delphi 7 avec Crystal Reports 11. J'ai réussi à intégrer le ActiveX et à ouvrir mon rapport si je "dépose" sur ma Form les composants Crystal Viewer et TApplication, mais je voulais savoir s'il n'y avait pas un moyen d'appeler directement le viewer avec un rapport sans avoir à utiliser une form (dynamiquement, en runtime).

Merci beaucoup!

Mathieu

[Zoilus]

Rebonjour,

j'avance tranquillement...

Maintenant je réussis à initialiser une partie dynamiquement, il ne me reste que le viewer crystal à créer dynamiquement. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  Form1: TForm1;
  oRpt,
  oApp:variant;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   oApp :=CreateOleObject('CrystalRuntime.Application.11');
   oRpt:=oApp.openreport('c:\testdyn.rpt',1);
   CrystalActiveXReportViewer1.ReportSource := oRpt;
   CrystalActiveXReportViewer1.ViewReport;
end; // CrystalActiveXReportViewer1 est présentement sur une form et ça fonctionne dans ce cas

J'aimerais maintenant ajouter ceci pour ne plus passer par le viewer sur la form:

Code :

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

1
2
3
4
5
6
 
Var CRViewer1: TCrystalActiveXReportViewer;
 
// et dans mon bloc d'exécution:
CRViewer1.ReportSource := oRpt;
CRViewer1.ViewReport;

Or, je sais que je dois instancier CRViewer1, mais je ne sais pas comment. Quelqu'un a-t-il la réponse?

Merci beaucoup,

Mathieu