Discussion :

[mike600river]

Bonjour,
Pour mon appli je recois en entree un fichier .tar
Ma premiere question est comment détarrer ce fichier?
une fois détarré, j'obtiendrai un fichier tar.gz que je dois decompresser aussi pour recupérer les fichiers csv qu il contient.

En fait, je sais qu'il y a Zlib mais je n'arrive pas a l'utiliser, j'ai le code suivant

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
procedure TDB_zlib.DecompressFiles(const Filename, DestDirectory : String);
var
  dest,s : String;
  decompr : TDecompressionStream;
  infile, outfile : TFilestream;
  i,l,c : Integer;
begin
  // IncludeTrailingPathDelimiter (D6/D7 only)
  dest := IncludeTrailingPathDelimiter(DestDirectory);
 
  infile := TFileStream.Create(Filename,fmOpenRead);
  try
    { number of files }
    infile.Read(c,SizeOf(c));
    for i := 1 to c do
    begin
      { read filename }
      infile.Read(l,SizeOf(l));
      SetLength(s,l);
      infile.Read(s[1],l);
      { read filesize }
      infile.Read(l,SizeOf(l));
      { decompress the files and store it }
      s := dest+s; //include the path
      outfile := TFileStream.Create(s,fmCreate);
      decompr := TDecompressionStream.Create(infile);
      try
        outfile.CopyFrom(decompr,l);
      finally
        outfile.Free;
        decompr.Free;
      end;
    end;
  finally
    infile.Free;
  end;
end;

mais a l'execution j'ai un probleme avec la fonction :

Code :

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

 infile.Read(s[1],l);

ça boucle et j'obtiens l'erreur "Mémoire insuffisante"

Comment m'y prendre pour decompresser ces fichiers?

Merci d'avance
Mike

[Jipété]

Bonjour,
Pour mon appli je recois en entree un fichier .tar
Ma premiere question est comment détarrer ce fichier?
une fois détarré, j'obtiendrai un fichier tar.gz que je dois decompresser aussi pour recupérer les fichiers csv qu il contient.

T'es sûr de ça ?
D'habitude c'est l'inverse, ie, on reçoit un .tar.gz qu'on "gunzip -d" (sous Le pingouin), ce qui va donner un .tar.
Enfin, c'est ce que j'ai vu pendant des années...
Rappel : gunzip (dé-)compresse, tar se contente de créer un seul fichier à partir d'une arborescence, ou l'inverse.

Pour le reste, pas la moindre idée.
Mes 2 cts,
--
jp

[Paul TOTH]

en effet, "tar" est utilisé pour mettre tous les fichiers dans un seul flux (.tar) qui est passé à la compression GZIP (.tar.gz)...je ne pense pas que l'enchainement puisse être réalisé dans l'autre sens.

[mike600river]

aucun soucis sur les formats:
g un toto.tar qui une fois detarré contient un titi.tar.gz, qui une fois decompressé, contient mes 3 fichiers a traiter.

[Jipété]

g un toto.tar qui une fois detarré contient un titi.tar.gz, qui une fois decompressé, contient mes 3 fichiers a traiter.

Donc le toto.tar ne sert à rien.
Et le titi.tar.gz une fois décompressé va donner un titi.tar à détarrer, à moins que tu décompresses et détarres en une seule passe.
C'est bien ça ?
--
jp

[mike600river]

Donc le toto.tar ne sert à rien.

En effet, il ne sert a rien mais je dois quand meme le detarrer pour obtenir le dossier toto qui contient titi.tar.gz

Pour le titi.tar.gz, quand je le decompresse avec winzip ou powerarchiver, j'obtiend directement un dossier titi qui contient mes 3 fichiers a traiter.

[Jipété]

Bon,

Maintenant qu'on y voit clair avec l'organisation de ton/tes fichier(s),

En fait, je sais qu'il y a Zlib mais je n'arrive pas a l'utiliser

as-tu pensé à utiliser l'ami google ? "zlib +delphi" = 261 000 réponses !
--
jp

[mike600river]

C'est apeu pres la premiere chose que j ai faite et en essayant voila ce que j ai reussi a ontenir:
c'est un large extrait de mon premier post

En fait, je sais qu'il y a Zlib mais je n'arrive pas a l'utiliser, j'ai le code suivant
Code :

procedure TDB_zlib.DecompressFiles(const Filename, DestDirectory : String);
var
dest,s : String;
decompr : TDecompressionStream;
infile, outfile : TFilestream;
i,l,c : Integer;
begin
// IncludeTrailingPathDelimiter (D6/D7 only)
dest := IncludeTrailingPathDelimiter(DestDirectory);

infile := TFileStream.Create(Filename,fmOpenRead);
try
{ number of files }
infile.Read(c,SizeOf(c));
for i := 1 to c do
begin
{ read filename }
infile.Read(l,SizeOf(l));
SetLength(s,l);
infile.Read(s[1],l);
{ read filesize }
infile.Read(l,SizeOf(l));
{ decompress the files and store it }
s := dest+s; //include the path
outfile := TFileStream.Create(s,fmCreate);
decompr := TDecompressionStream.Create(infile);
try
outfile.CopyFrom(decompr,l);
finally
outfile.Free;
decompr.Free;
end;
end;
finally
infile.Free;
end;
end;

mais a l'execution j'ai un probleme avec la fonction :
Code :

infile.Read(s[1],l);

ça boucle et j'obtiens l'erreur "Mémoire insuffisante"