Discussion :

[SurfingJeff]

Bonjour,
Je n'arrive pas à compresser un fichier au format GZIP avec la suite de composants Abbrevia (TurboPower).
Quelqu'un aurait il un petit exemple de code pour réaliser cela ?
Merci d'avance !

[jmjmjm]

Je ne suis pas sur que l'on puisse compresser au format gzip en es tu sur ??

[SurfingJeff]

On peut effectivement décompresser un fichier GZIP, alors je suppose que l'inverse peut se faire avec les composants Abbrevia (TurboPower)

voila le code pour décompresser :
uses
AbGZTyp;

procedure ugz(sNomArchive : string);
var
gz : TAbGZipArchive;
begin
gz := TAbGZipArchive.Create(sNomArchive, fmOpenRead);
gz.Load();
gz.ExtractAt(0, ChangeFileExt(sNomArchive,'')); // archive.tar
gz.Destroy;
end;

Par contre je n'arrive pas à générer un fichier au format GZIP...

Si tu connais une autre librairie delphi permettant de compresser/décompresser des fichier GZIP je suis preneur !

[jmjmjm]

Ayer j'ai crée le morceau de code qu'il te faut

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
Procedure CreeFichier(Nom:String);
var
F: TextFile;
begin
AssignFile(F,Nom);
ReWrite(F);
CloseFile(F);
end;
 
Procedure GzipAdd(GZIP:string;Fichier:string);
var
gz : TAbGZipArchive;
begin
CreeFichier(GZIP);
gz:= TAbGZipArchive.Create(GZIP,fmOpenWrite);
gz.AddFiles(Fichier,1);
gz.Save;
gz.Destroy;
end;

Dans la procedure GzipAdd tu cree le Gzip :
-GZIP etant le nom du fichier créé
- Fichier le fichier a Mettre a l'interieur tu pe faire evoluer le code facillement pour en mettre plusieur



Tu remarquera que la fonction CreeFichier est executer avant car il faut que le fichier Gzip crée existe



ainsi un simple appel du typer

Code :

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

1
2
 
GzipAdd('c:\test.gzip','c:\bd1.mdb');

Te crais un fichier Test.gzip avec dedans le fichier bd1.mdb

Voila je l'ai tester et chez moi sa fonctionne niquel
A toi de jouer, Bonne prog!!

[jmjmjm]

Pense a me dire si c'est bon si c'est le cas ajoute le tag

[SurfingJeff]

C'est un peu tordu qu'il faille créer un fichier vide...enfin du moment que ça marche !

[jmjmjm]

exact je pense qu'il doit y avoir un autre moyene sans utiliser fmOpenWrite mais je n'ai pas trouver