Sujet Précédent Sujet Suivant

TZIP: COMPOSANT POUR FICHIERS ZIP/SFX TRÈS FACILE D'ACCÈS

cs_Partagas Messages postés 30 Date d'inscription mardi 29 avril 2003 Statut Membre Dernière intervention 1 juin 2004 - 31 juil. 2003 à 22:25
sp2308 Messages postés 13 Date d'inscription vendredi 28 décembre 2007 Statut Membre Dernière intervention 14 avril 2013 - 27 févr. 2013 à 08:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12681-tzip-composant-pour-fichiers-zip-sfx-tres-facile-d-acces
sp2308 Messages postés 13 Date d'inscription vendredi 28 décembre 2007 Statut Membre Dernière intervention 14 avril 2013
27 févr. 2013 à 08:56
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
21 juin 2012 à 01:18
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
27 juin 2010 à 15:04
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
18 avril 2004 à 20:02
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
2 mars 2004 à 22:15
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!)
zorg63 Messages postés 15 Date d'inscription samedi 22 juin 2002 Statut Membre Dernière intervention 24 octobre 2003
2 août 2003 à 18:56
Autre composant très facile d'accès et qui n'utilise pas de DLL, tout est comprise dans l'exécutable: Zipforg

Voici l'url : www.aidaim.com

Il faut s'enregistrer mais c'est gratuit pour une utilisation non commerciale.
cs_costello Messages postés 136 Date d'inscription lundi 2 septembre 2002 Statut Membre Dernière intervention 15 février 2006
2 août 2003 à 17:47
@Partagas: si tu as trouvé quelque chose qui ressemble à mon code, merci de me donner l'adresse de ce site merci
aliwassem Messages postés 3 Date d'inscription jeudi 3 avril 2003 Statut Membre Dernière intervention 5 septembre 2004
31 juil. 2003 à 22:48
Merci
cs_Partagas Messages postés 30 Date d'inscription mardi 29 avril 2003 Statut Membre Dernière intervention 1 juin 2004
31 juil. 2003 à 22:25
Tu n'aurais pas vu ca sur un autre forum de developpement delphi aujourdh'ui par hasard?
Rejoignez-nous