Discussion :

[Patrick25300]

J'utilise LazReport dans mon application sous WindowsXP, je n'ai aucun souci si j'utilise LazReport en
déposant le composant "TfrReport" sur la forme de l'application.
Avec par exemple le code ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ButtonPrint1(Sender: TObject);
begin
 Data.SQLQuery1.DisableControls;
 frDBDataSet1.DataSet := Data.SQLQuery1;
 frDBDataSet1.DataSource := Data.DataSource1;
 frReport1.LoadFromFile(CheminImpressions+'rangements.lrf');
 frReport1.ShowReport;
 Data.SQLQuery1.EnableControls;
end;

Mais, si je veux utiliser LazReport en programmation direct suivant cette exemple ci-dessous, sans utiliser le composant déposé sur la forme.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
procedure TForm1.ImpressionRequete;
var
 frViewA: TfrView;
 frPageA: TfrPage;
 frBandViewA: TfrBandView;
 frReportA: TfrReport;
 Gauche,Bas, OffBas,Largeur,Hauteur, HauteurChar:integer;
begin
 
Gauche := 10;
Bas:=32;
Largeur:=740;
Hauteur:=40;
HauteurChar := 16;
OffBas := 5;
 
frReportA := TfrReport.Create(Self);
frReportA.Pages.Clear;
frReportA.Pages.Add;
frPageA:=frReportA.Pages[0];
 
 
 frBandViewA := TfrBandView(frCreateObject(gtBand, '',frPageA));
 frBandViewA.SetBounds(Gauche,Bas,Largeur,Hauteur);
 frBandViewA.BandType := btReportTitle;
 frPageA.Objects.Add(frBandViewA);
 
 frViewA := TfrView(frCreateObject(gtMemo, '',frPageA));
 frViewA.SetBounds(Gauche,Bas+OffBas,Largeur,HauteurChar);
 frViewA.Memo.Add('Requête du: '+DateToStr(Date));
 
 TfrMemoView(frViewA).Font.Size := 10;
 TfrMemoView(frViewA).Font.Bold := True;
 TfrMemoView(frViewA).Alignment := taCenter;
 frPageA.Objects.Add(frViewA);
 
 Bas := Bas*3;
 
 frBandViewA := TfrBandView(frCreateObject(gtBand, '',frPageA));
 frBandViewA.SetBounds(Gauche,Bas,Largeur,Hauteur div 2);
 frBandViewA.BandType := btMasterData;
 frBandViewA.DataSet:='frDBDataSet1';
 frPageA.Objects.Add(frBandViewA);
 
 frViewA := TfrView(frCreateObject(gtMemo, '',frPageA));
 frViewA.SetBounds(Gauche,Bas+OffBas,Largeur,HauteurChar);
 frViewA.Memo.Add('[Data.SQLQuery1."ART_REFERENCE"]');
 frPageA.Objects.Add(frViewA);
 
 
 frViewA := TfrView(frCreateObject(gtMemo, '',frPageA));
 frViewA.SetBounds(Gauche+300,Bas+OffBas,Largeur,HauteurChar);
 frViewA.Memo.Add('[Data.SQLQuery1."ART_REFERENCE"]');
 frPageA.Objects.Add(frViewA);
 
 frReportA.ShowReport;
 
end;

Ce message d'erreur 'classe 'exception "External:SIGSEGV" s'affiche lors de la sortie de l'application



Par contre en modifiant le fichier "LR_Class.pas" en commentant la ligne 9742 "FPages.free" je n'ai plus aucun souci.

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
 
destructor TfrReport.Destroy;
begin
  if CurReport=Self then
    CurReport:=nil;
  FVal.Free;
  FVars.Free;
  FEMFPages.Free;
  FEMFPages := nil;
//  FPages.Free;  
  FComments.Free;
  FreeAndNil(FDetailReports);
  FreeAndNil(FScript);
  inherited Destroy;
end;

Je comprends que "FPages.free" a déja été exécuté, je n'ai pas pour l'instant approfondi le problème.

[gvasseur58]

Mais, si je veux utiliser LazReport en programmation directe suivant cette exemple ci-dessous, sans utiliser le composant déposé sur la forme.

Code :

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

1
2
3
4
 
procedure TForm1.ImpressionRequete;
[...]
frReportA := TfrReport.Create(Self);

Je comprends que "FPages.free" a déja été exécuté, je n'ai pas pour l'instant approfondi le problème.

Bonjour,

Ici, le problème tient à la création elle-même. En fournissant Self comme paramètre, on rend la fiche principale propriétaire du composant et par conséquent responsable de sa libération. Or, il semblerait que le rapport s'autodétruise après utilisation : il y a donc bien deux appels à Free.
La solution est d'utiliser le paramètre nil et tout rentre dans l'ordre :

Code :

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

1
2
 
frReportA := TfrReport.Create(nil);

Cordialement,

Gilles

[Patrick25300]

Merci gvasseur58 effectivement ça marche bien avec le paramètre "nil", c'est résolu

[Patrick25300]

Bonjour

Désolé ça ne suffit pas, en fait le paramètre "nil"

Code :

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

1
2
 
frReportA := TfrReport.Create(nil);

empêche la bande Master d'imprimer les données, si je remets le commentaire devant "// FPages.Free;"

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
 
destructor TfrReport.Destroy;
begin
  if CurReport=Self then
    CurReport:=nil;
  FVal.Free;
  FVars.Free;
  FEMFPages.Free;
  FEMFPages := nil;
//  FPages.Free;  
  FComments.Free;
  FreeAndNil(FDetailReports);
  FreeAndNil(FScript);
  inherited Destroy;
end;

et "self" comme paramètre

Code :

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

1
2
3
4
 
procedure TForm1.ImpressionRequete;
[...]
frReportA := TfrReport.Create(Self);

ça fonctionne, je vais utiliser "self", mais, mettre un commentaire dans mon code afin de ne pas oublier ce problème.

[gvasseur58]

Bonjour

Désolé ça ne suffit pas, en fait le paramètre "nil"

Désolé .
Je n'ai pas essayé cette bibliothèque, car elle est toujours en développement intensif et semble poser quelques problèmes. Mais là, la manipulation est élémentaire : je vais essayer de me renseigner et faire quelques tests supplémentaires.

Bon courage !

Gilles

[Patrick25300]

Bonjour

Merci gvasseur58 de tes réponses.

LazReport qui est issu de FastReport est bien plus intéressant à mon gout que Rave Reports Borland Edition ou quickReport le plus c'est que l'utilisateur à la possibilité de modifier les rapports d'impression, aussi il est assez simple d'utilisation, merci à l'équipe de Lazarus.