Delphi 7 - Crystal Report : passage de paramètre

Bonjour à tous,

Voilà, il faut que j'utilise Crystal Report pour mes états avec une future application Delphi.
pour l'instant, j'arrive bien à lancer/exécuter mon état Crystal Report à partir de Delphi. :D
Mais ce que je ne sais pas faire c'est passer un paramètre simple (par exemple un texte saisie dans un TEdit) pour qu'il s'affiche sur mon état Crystal Report. Et là, j'ai beau chercher de tous les côtés (forum + Google) la plupart des personnes n'utilise pas Delphi avec Crystal :cry:

Merci d'avance...

Salut,

c'est vrai qu'il n'y quasiment rien sur delphi et crystal. Par contre, tu peut aller sur leur site il y a quelque exemples

Avant de pouvoir récupérer ou passer des param il faut se positionner correctement

Code:

---

1 2	CrEtat.ParamFields[LbParamListe.ItemIndex];

---

Sinon pour récupérer la valeur par défuat d'un paramétre d'un état crystal, il faut faire

Code:

---

1 2 3

LblPrompt.Caption := CrEtat.ParamFields.Item.Prompt; EdCurrentValue.Text :=CrEtat.ParamFields.Item.CurrentValue;

---

Prompt correspond au prompt qui s'affiche lorsqu'on lance l'état à partir de Crystal et CurrentValue la valeur par défaut

Pour passer un param tu fais

Code:

---

1 2	CrEtat.ParamFields.Item.CurrentValue := edCurrentValue.Text

---

Si t'as installé la VCL crystal t'as un exemple CrystalVCL qui est bien fait

A+[/code]

Bonjour,

Merci beaucoup pour votre réponse. J'ai réussi à trouver un exemple sur le site de Bussiness Object (appli Delphi 7 + Crystal Report). :D
Voici la syntaxe :

Code:

---

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

procedure TForm1.Button1Click(Sender: TObject); var crReport : IReport; begin crReport := CRApplication1.OpenReport('C:\Rapport1.rpt' ,crOpenReportByTempCopy); crReport.DiscardSavedData;   crReport.ParameterFields.GetItemByName ('NomParametre', '').AddCurrentValue(Edit1.Text);   CrystalActiveXReportViewer1.ReportSource := crReport; CrystalActiveXReportViewer1.ViewReport;   end;

---

Voilà, merci encore pour votre aide... :wink: