Migration de Quickreport vers FastReport

Version imprimable

10/01/2023, 09h41
SergioMaster

1 pièce(s) jointe(s)

Migration de Quickreport vers FastReport

Bonjour,

Je tente de migrer mes états QuickReport3 vers FastReport et ce n'est pas sans mal !
L'outil de migration proposé par FastReport ne fonctionne pas comme je le voudrai (version trop ancienne de QuickReport probablement)
Je me suis rabattu sur une unité découverte sur le net (cf. PJ) pas très satisfaisante car :
Je dois modifier la forme pour ajouter la conversion puis je suis obligé de faire pas mal de manipulations par la suite pour obtenir un "gabarit fr3" correct
Enfin, pour les fiches de types TQuickRep, je dois d'abord passer par une première étape de copie des bandes pour obtenir un quickreport dans un TForm :roll:

Bref, avez-vous connaissance d'un outil plus simple (nécessitant moins de manips) ou une proposition de manip différente ?
Problématiques posées :
- Utilisation de code barre (c'est un point qui me fait abandonner QuickReport car je n'ai pas trouvé moyen de migrer le composant QRBarcode, uniquement D3,D4)
- Quickreport dans une Forme ou dans un TQuickRep
- Migration de D3 vers D7 avant d'entamer le grand saut vers D11 (à la vitesse ou ça va ce sera peut-être D12 :lol:)

salut

ce ne serait pas plus simple de faire comme le faisait Pragnaan Software
pour faire du Qr => PsQr
Il lit le .dfm et le .pas et modifi les fichiers en changeant le nom de la class

a priori il faut juste remplacer les nom de 1 pour 1

les class que tu veux remplacer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
  THackWinControl = class(TWinControl);
  TQRCtrlClass = (ccTQRLabel, ccTQRDBText, ccTQRExpr,
		ccTQRSysData, ccTQRMemo, ccTQRExprMemo, ccTQRRichText, ccTQRDBRichText,
		ccTQRLine, ccTQRShape, ccTQRImage, ccTQRDBImage, ccTQRChart,...);
 
//TQuickRep,TQRBand,TQRSysData,TQRGroup
 
  OldClassNames: array[TQRCtrlClass] of string = ('TGPQRLabel', 'TGPQRDBText',
     'TGPQRExpr', 'TGPQRSysData', 'TGPQRMemo', 'TGPQRExprMemo', 'TGPQRRichText',
     'TGPQRDBRichText', 'TGPQRLine', 'TGPQRShape', 'TGPQRImage', 'TGPQRDBImage',
     'TGPQRChart',...);
 
  NewClassNames: array[TQRCtrlClass] of string = ('TFRLabel', 'TFRDBText',
	'TPsQRExpr', 'TPsQRSysData', 'TPsQRMemo', 'TPsQRExprMemo', 'TFRRichText',
		'TFRDBRichText', 'TFRShape', 'TFRShape', 'TFRImage', 'TFRDBImage',
		'TFRChart',...);
 
 
.....

Quelque fonctionw utiles

Code:

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
 
{------------------------------------------------------------------------------}
function IsDFMBinary(FileName: string): Boolean;
var
  F: TFileStream;
  B: Byte;
begin
  B := 0;
  F := TFileStream.Create(FileName, fmOpenRead);
  try
    F.Read(B, 1);
    Result := B = $FF;
  finally
    F.Free;
  end;
end;
{------------------------------------------------------------------------------}
procedure DFM2TXT(Src, Dest: string);
var
  SrcS, DestS: TFileStream;
begin
  SrcS := TFileStream.Create(Src, fmOpenRead);
  DestS := TFileStream.Create(Dest, fmCreate);
  try
    ObjectResourceToText(SrcS, DestS);
  finally
     SrcS.Free;
     DestS.Free;
  end;
end;
 
procedure TXT2DFM(Src, Dest: string);
var
  SrcS, DestS: TFileStream;
begin
  SrcS := TFileStream.Create(Src, fmOpenRead);
  DestS := TFileStream.Create(Dest, fmCreate);
  try
    ObjectTextToResource(SrcS, DestS);
  finally
    SrcS.Free;
    DestS.Free;
  end;
end;

dans le corps de ton programme pour chaque fichier tu
fait un

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
      if IsDFMBinary(FileName) then
      begin
      	DFM2TXT(FileName, TempFile);
	ChangeToFr(TempFile, TempFile, progLines, lblLinesLeft,	ChangeCount, ChangeSum);
	TXT2DFM(TempFile, FileName);
      end
      else
      begin
      	RenameFile(FileName, TempFile);
      	ChangeToFr(TempFile, FileName, progLines, lblLinesLeft,	ChangeCount, ChangeSum);
      end;
...

et la fonction principal qui modifie le code source

Code:

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
 
procedure ChangeToFr(SrcFile, DestFile: string; AProgressBar: TProgressBar;AProgressLabel: TLabel; var ChangeCount: array of Integer;var ChangeSum: Integer);
var
  I, Count: Integer;
  C     : TQRCtrlClass;
  S     : string;
  Lines : TStringList;
  .....
begin
  Lines := TStringList.Create;
  try
    Lines.LoadFromFile(SrcFile);
    .....
    for I := Lines.Count - 1 downto 0 do
    begin
      .....
      S := Lines[I];
      for C := Low(OldClassNames) to High(OldClassNames) do
      begin
      	S := ReplaceString(S, OldClassNames[C], NewClassNames[C], Count);
      	if Count <> 0 then
      	begin
      	  Inc(ChangeSum, Count);
	  Inc(ChangeCount[Ord(C)], Count);
	end;
      end;
      Lines[I] := S;
      Application.ProcessMessages;
    end;
  finally
    Lines.SaveToFile(DestFile);
    Lines.Free;
  end;
end;

je pense qu'avec ce genre de modification tu as fait l'essentiel de ton transfert
il va te rester les propriete de objet ... mais bon deja tu aura fait un gros boulot
Il faut faire quelque petit ajustement ;)

10/01/2023, 15h49
SergioMaster

Citation:

Envoyé par anapurna

ce ne serait pas plus simple de faire comme le faisait Pragnaan Software
pour faire du Qr => PsQr

Merci. Mais, non, je ne crois pas que ce soit faisable. FastReport contrairement à Quickreport a un design indépendant qui n'est plus inclus dans le Dfm.
Ou alors j'ai mal compris ta proposition
10/01/2023, 16h16
anapurna

salut

effectivement c'etait la modification du point pas et du dfm ....
il a un fichier de ressource a lui fastReport ?
c'est peut etre plus simple de recree son fichier de resource dans ce cas la non ?
10/01/2023, 19h06
Andnotor

Citation:

Envoyé par SergioMaster

FastReport contrairement à Quickreport a un design indépendant qui n'est plus inclus dans le Dfm.

Si, si ! Un double-clic sur le composant et ce que tu édites là est sauvé dans le dfm.
11/01/2023, 06h51
SergioMaster

Ah, oui, effectivement, j'oublie toujours que l'on peut inclure le FrxReport dans les sources (propriété StoreInDfm) car j'ai tendance à sauvegarder les "gabarits" (.fr3) dans une base de données.