Tzip: composant pour fichiers zip/sfx très facile d'accès

Soyez le premier à donner votre avis sur cette source.

Vue 13 835 fois - Téléchargée 2 098 fois

Description

Le composant TZip n'est pas de moi.
Je ne sais pas non plus si il a déjà été présenté sur ce forum (j'ai fait deux recherches: "zip" qui a été trouvé dans 98% des sources, et "Tzip" qui n'a donné aucun résultats).

C'est un excellent composant, très simple et rapide, qui permet de faire n'importe quoi avec un fichier ZIP ou un auto-extractible (.EXE) (à savoir: extraire, ajouter, fusionner, diviser, commentaires, password, etc. vraiment tout).
Il utilise 1 DLL et quelques unités.

J'ai mis un exemple (qui devrait s'élever à la hauteur de tous du fait de sa simplicité...)

Source / Exemple :


// Tout est dans le ZIP ;)

Conclusion :


Si vous avez des commentaires, ou que ça ne marche pas... n'hésitez pas !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

sp2308
Messages postés
13
Date d'inscription
vendredi 28 décembre 2007
Statut
Membre
Dernière intervention
14 avril 2013
-
Bonjour
J ai tenté d installer apres avoir chargé TZIp depuis http://www.angusj.com/delphi/ mais j ai l erreur suivante

[DCC Erreur] Zip.pas(433): E2033 Les types des paramètres VAR originaux et formels doivent être identiques.

dans
function GetVolumeName(DrivePath: string; out VolumeName: string): boolean;
var
OldErrMode: dword;
VolName: array[0..255] of char; //nb: can be > 11 chars with NTFS drives
dummy1: {$IFDEF VER120_PLUS}Cardinal{$ELSE}Integer{$ENDIF};
dummy2: dword;
begin
DrivePath := AppendSlash(DrivePath);
OldErrMode := SetErrorMode( SEM_FAILCRITICALERRORS );
result := GetVolumeInformation(pchar(DrivePath),
VolName, sizeof(VolName), nil, dummy1, dummy2, nil, 0 );<<<<<<<<<<<<<<< ICI <<<<<<<<<<<<<<<<<
if result then VolumeName := VolName;
SetErrorMode( OldErrMode );
end;

Comment y remedier?
merci
GRAM03
Messages postés
3
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
15 juillet 2012
-
Le fichier "zip_str_english.txt" se trouve dans l'archive
TZip
http://www.angusj.com/delphi/
LALLEM2005
Messages postés
21
Date d'inscription
lundi 19 décembre 2005
Statut
Membre
Dernière intervention
13 novembre 2010
-
jai utilise le meme composont probleme avec le delphi 7 sa marche pas
adi2k1
Messages postés
1
Date d'inscription
samedi 1 février 2003
Statut
Membre
Dernière intervention
18 avril 2004
-
Desolé, mais ta source pour montrer comment fonctionne Tzip ,... ben elle ne compile pas avec delphi 7. C'est peut-être le fichier zip_str_english.txt qui est inclus mais qui n'existe pas dans le zip.

A quand un truc complet?

Merci
cs_costello
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006
-
j'ai vu ce ZipForge, je l'ai utilisé, résultat il m'a corrompu plus de 1500 fichiers Zip :'( :'( :'( (*500)
il a une fonction pour les réparer, mais elle ne supprime pas les fichiers temporaires!!
résultat: disque plein au bout de 5 minutes de réparation
total: une cinquantaine de gros zips perdus :'(
conseil: n'utilisez pas ZipForge!!! (et non, ce n'est pas pour vanter mon composant. c'est juste un avertissement!)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.