Array of TMemoryStream

**Georges P** · 18/08/2017, 16h05

bonjour à tous,
voici mon problème : je souhaite pour la 1ère fois utiliser les TMemoryStream afin de stocker mes pages de FastReport, puis de reconstruire un rapport complet en appelant les pages sauvées dans mes Memorystream, ne connaissant pas leurs nombres j'ai pensé les sauver dans Array of TMemoryStream.
lorsque je reconstruis mon état, j'obtiens seulement la dernière page crée...au nombre de la variable LNbreStream bien sûr.

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
 
var
    LListeStream: array of TMemoryStream;
    LSTream : TMemoryStream;
    LNbreStream: integer;
begin
 
   for i:= 0 to ... do // préparation des états et mise en Stream
   begin
       LNbreStream:= 0;
       inc(LNbreStream);
       SetLength(LListeStream, LNbreStream+1);
       LListeStream[LNbreStream] := TMemoryStream.Create;  
       Report_FVT.PrepareReport(true);
       Report_FVT.SaveToStream(TStream(LListeStream[LNbreStream]));
   end
   ...
   ...
   // utilisation du tableau array of TMemoryStream
   for l := 1 to LNbreStream do
   begin
       LSTream:= TMemoryStream.Create;
       LSTream:= LListeStream[l];
       LSTream.Position:= 0;
       Report_FVT.LoadFromStream(LSTream);
       ...
   end;
   Report_FVT.ShowPreparedReport;
end;

je ne trouve pas mon erreur, d'ailleurs est-ce un bon principe ?

merci de votre aide

**guillemouze** · 18/08/2017, 16h12

tu reinitialise a chaque fois LNbreStream dans ta boucle, il faut le faire avant :

Code :

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

1
2
3
4
5
6
 
begin
 
   LNbreStream:= 0; //init avant la boucle
   for i:= 0 to ... do // préparation des états et mise en Stream
   begin

Tu peux aussi t'en passer (preferable car en plus tu n'utilise pas la case d'indice 0):

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
 
var
    LListeStream: array of TMemoryStream;
    LSTream : TMemoryStream;
begin
   SetLength(LListeStream, 0);
   for i:= 0 to ... do // préparation des états et mise en Stream
   begin
       SetLength(LListeStream, Length(LListeStream)+1);
       LListeStream[High(LListeStream)] := TMemoryStream.Create;  
       Report_FVT.PrepareReport(true);
       Report_FVT.SaveToStream(LListeStream[High(LListeStream)]);
   end
   ...
   ...
   // utilisation du tableau array of TMemoryStream
   for l := 0 to High(LListeStream) do
   begin
       LSTream:= TMemoryStream.Create;
       LSTream:= LListeStream[l];
       LSTream.Position:= 0;
       Report_FVT.LoadFromStream(LSTream);
       ...
   end;
   Report_FVT.ShowPreparedReport;
end;

**Georges P** · 18/08/2017, 19h35

Merci de ta réponse.
en fait dans la prépa de mon code ici j'ai fait une erreur, effectivement mon code est bien celui-là comme toi :

Code :

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

1
2
3
4
5
6
 
begin
*
   LNbreStream:= 0; //init avant la boucle
   for i:= 0 to ... do // préparation des états et mise en Stream
   begin

ensuite j'ai suivi tes conseils pour la 2 ème partie mais cela ne fonctionne pas... je cherche et fais des essais pas concluants pour l'instant

**guillemouze** · 19/08/2017, 00h41

Effectivement, je n'avais pas bien lu la partie concernant le report, mais tu charge n fois le contenu du même report, normal que tu n'ai que le dernier.
Je ne sais pas comment tu peux faire, je ne connais pas FastReport, et je pense que tu n'es pas obligé de sstocker le contenu dans des streams, tu dois certainement pouvoir manipuler simplement ton Report_FVT.
PS : le LSTream:= TMemoryStream.Create; ligne 19 ne sert a rien.

**Andnotor** · 19/08/2017, 13h30

Il est assez logique que Report.LoadFromStream charge le document complet non ?

Il faudrait voir s'il y a des fonctions SaveToStream/LoadFromStream sur un objet "page".

**Georges P** · 19/08/2017, 16h13

Salut à vous,
ce que je veux faire exactement est la création de plusieurs reports; je dois créer plusieurs types de pages via plusieurs objets Frxreport car mes états sont complexes. certaines pages sont créées dans Fastreport et d'autres en dynamique seulement avec du code. je dois ensuite concaténer ces pages. donc je pensais pertinent de sauver chaque état dans un objet TMemoryStream. ensuite je vais rechercher les états (mes pages) depuis le tableau de MemoryStream.
lorsque qu'un état est créé je le sauve :

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
 
var
    LListeStream: array of TMemoryStream;
    LSTream : TMemoryStream;
    LNbreStream: integer;
begin
*
   for i:= 0 to x do // préparation des états et mise en Stream
   begin
       ... // traitement des données
       Report_FVT.PrepareReport(true); // préparation de l'état
       LNbreStream:= 0;
       inc(LNbreStream);
       SetLength(LListeStream, LNbreStream+1);
       LListeStream[LNbreStream] := TMemoryStream.Create;  // création du TMemoryStream dans le tableau
 
       Report_FVT.SaveToStream(TStream(LListeStream[LNbreStream]));// sauve l'état dans ce TMemoryStream 
       ... // suite
   end

lorsque j'ai terminé le traitement de toutes mes pages je souhaite retrouver celles-ci depuis le Array of tMemory via:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   for l := 1 to LNbreStream do // balayage du tableau of TMemoryStream 
   begin
       LSTream:= TMemoryStream.Create;
       LSTream:= LListeStream[l];
       LSTream.Position:= 0;
       Report_FVT.LoadFromStream(LSTream);
       ...
   end;
   Report_FVT.ShowPreparedReport; // affiche l'état complet

**Georges P** · 20/08/2017, 11h09

Salut à vous,
je peux dire que mon problème est résolu. mon tableau de TMemoryStream semblait fonctionner mais pas moyen de retrouver mes états depuis cet array.
j'ai modifié 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
14
15
16
17
18
19
20
21
22
23
24
25
26
 
*
var
    LListeStream: array of TMemoryStream;
    LSTreamFVT, LStreamTAB : TMemoryStream;
    LNbreStream: integer;
begin
   for i:= 0 to x do // préparation des états et mise en Stream
   begin
       ... // traitement des données
       Report_FVT.PrepareReport(true); // préparation de l'état FVT
*      Report_FVT.SaveToStream(LStreamFVT); // sauve l'état dans TMemoryStream 
 
       LStreamFVT.Position:= 0;
       frxReportcompil.LoadFromStream(LStreamFVT);
       frxReportcompil.PrepareReport(false);
 
       Report_TAB.PrepareReport(true); // préparation de l'état TAB
*      Report_TAB.SaveToStream(LStreamTAB); // sauve l'état dans TMemoryStream 
 
       LStreamTAB.Position:= 0;
       frxReportcompil.LoadFromStream(LStreamTAB);
       frxReportcompil.PrepareReport(false);
       ... // suite
      frxReportcompil.ShowPreparedReport;
   end

cette alternative fonctionne, mais je vais quand même poser la question à FastReport et la mettrais sur ce forum

**Papy214** · 21/08/2017, 10h12

https://www.fast-report.com/en/forum...showtopic=7582

Je n'ai pas tout lu par manque de temps mais Il n'y a pas de possibilité de faire un report à partir de plusieurs ??

**SergioMaster** · 21/08/2017, 10h34

Bonjour,

Envoyé par Papy214

Il n'y a pas de possibilité de faire un report à partir de plusieurs ??

Bien sûr que oui ! par contre je n'ai pas le temps de détaillé ma réponse, si c'est nécessaire je le ferais plus tard

**Georges P** · 21/08/2017, 21h21

Effectivement cela est possible je le fais dans mon dernier post.
j'aurai tout de même espéré comprendre pourquoi mon premier post ne fonctionne pas (array of TMemoryStream), d'ailleurs si je l'ai posté dans ce forum c'est parce que je pensais à une erreur de ma part dans ce principe de TStream. maintenant je pense que c'est un problème de gestion de FastReport...

si quelqu'un a des idées...

**guillemouze** · 22/08/2017, 10h49

Envoyé par Georges P

j'aurai tout de même espéré comprendre pourquoi mon premier post ne fonctionne pas (array of TMemoryStream), d'ailleurs si je l'ai posté dans ce forum c'est parce que je pensais à une erreur de ma part dans ce principe de TStream. maintenant je pense que c'est un problème de gestion de FastReport...

Mais ton premier post comporte plein d'erreurs, tant dans la gestion de tes streams, que dans le report (comme je te l'ai en partie montré dans mon 1er post) :

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
 
var
    LListeStream: array of TMemoryStream;
    LSTream : TMemoryStream;
    LNbreStream: integer;
begin
 
   for i:= 0 to ... do // préparation des états et mise en Stream
   begin
       LNbreStream:= 0;
       inc(LNbreStream);
       SetLength(LListeStream, LNbreStream+1);
       LListeStream[LNbreStream] := TMemoryStream.Create;  
       ShowMessageFmt('Remplissage de la case %d pour i=%d', [LNbreStream, i]); //ici, tu remplis toujours la case n°1, quel que soit le i.
       Report_FVT.PrepareReport(true); //tu ne fais pas de modif de ton report entre les differents tours de boucle, donc je pense que tu prepares toujours le meme report
       Report_FVT.SaveToStream(TStream(LListeStream[LNbreStream]));
   end
   ...
   ...
   // utilisation du tableau array of TMemoryStream
   for l := 1 to LNbreStream do //LNbreStream vaut toujours 1
   begin
       LSTream:= TMemoryStream.Create;
       LSTream:= LListeStream[l];
       LSTream.Position:= 0;
       Report_FVT.LoadFromStream(LSTream); //tu remplaces à chaque fois ton report par celui de ton stream
       ...
   end;
   Report_FVT.ShowPreparedReport; //tu n'affiches que le dernier report chargé
end;

**Georges P** · 22/08/2017, 19h37

je n'ai pas posté tout mon code dans cette exemple, mais j'ai toutefois effectivement fait une erreur de copier/coller voici ce nouveau code (à notre que les .../commentaires sont du code non présent ici - trop long sinon)

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
 
var
    LListeStream: array of TMemoryStream;
    LSTream : TMemoryStream;
    LNbreStream: integer;
begin
   LNbreStream:= 0;
   for i:= 0 to x do // préparation des états et mise en Stream
   begin
       ... // traitement des données préparation des tables à chaque passage de i
       Report_FVT.PrepareReport(true); // préparation de l'état 
 
       inc(LNbreStream);
       SetLength(LListeStream, LNbreStream+1);
       LListeStream[LNbreStream] := TMemoryStream.Create;  // création du TMemoryStream dans le tableau
*
       Report_FVT.SaveToStream(TStream(LListeStream[LNbreStream]));// sauve l'état dans ce TMemoryStream suivant "LNbreStream"
       ... // suite
       // Préparation d'un autre état
       inc(LNbreStream);
       SetLength(LListeStream, LNbreStream+1);
       LListeStream[LNbreStream] := TMemoryStream.Create;
       Report_TAB.PrepareReport(true); 
       Report_TAB.SaveToStream(TStream(LListeStream[LNbreStream])); 
 
   end

lorsque j'ai terminé le traitement de toutes mes pages je souhaite retrouver celles-ci depuis le Array of tMemory via:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   for l := 1 to LNbreStream do
   begin
       LSTream:= TMemoryStream.Create;
       LSTream:= LListeStream[l];
       LSTream.Position:= 0;
       Report_Main.LoadFromStream(LSTream);
       ...
   end;
   Report_Main.ShowPreparedReport;

quelqu'un aurait des infos sur Report_FVT.PreviewPages ? comment l'utiliser ?

merci

Array of TMemoryStream

Langage Delphi

Discussions similaires

Partager

Partager