DETECTER LE TYPE D'ARCHIVE (ZIP, ACE, RAR) GRACE AU SIGNATURES
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
12 avril 2004 à 00:00
SiZiOUS Messages postés 69 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 29 novembre 2006 - 27 oct. 2004 à 23:03
SiZiOUS Messages postés 69 Date d'inscription samedi 25 octobre 2003 Statut Membre Dernière intervention 29 novembre 2006 - 27 oct. 2004 à 23:03
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/21844-detecter-le-type-d-archive-zip-ace-rar-grace-au-signatures
https://codes-sources.commentcamarche.net/source/21844-detecter-le-type-d-archive-zip-ace-rar-grace-au-signatures
27 oct. 2004 à 23:03
27 oct. 2004 à 22:35
27 oct. 2004 à 20:26
//++++ début ++++//
function UnZipCheckArchive(szFilename:string; imode:integer):integer; external 'unzip32';
function UnRarCheckArchive(szFilename:string; imode:integer):integer; external 'unrar32';
procedure ChercherTypeArchive(FileName:string);
var ArcCheck : string;
begin
ArcCheck:='Rien détecté';
if UnZipCheckArchive(FileName, 1)<>0 then
ArcCheck:="Archive ZIP detectée."
else
if UnrarCheckArchive(FileName, 1)<>0 then
ArcCheck:='Archive RAR detectée.';
ShowMessage(ArcCheck);
end;
//++++ fin ++++//
En fait, le passage de String à travers des appels de librairies n'est pas correctement supporté pour des raisons expliquées dans l'aide de Delphi. Il y a une astuce: String ==> PChar. On passe donc aux PChar, comme c'est souvent le cas dans les déclarations de Windows.pas. Nous obtenons donc:
//++++ début ++++//
function UnZipCheckArchive(szFilename:PChar; imode:integer):integer; external 'unzip32';
function UnRarCheckArchive(szFilename:PChar; imode:integer):integer; external 'unrar32';
procedure ChercherTypeArchive(FileName:string);
var ArcCheck : string;
begin
ArcCheck:='Rien détecté';
if UnZipCheckArchive(PChar(FileName), 1)<>0 then
ArcCheck:="Archive ZIP detectée."
else
if UnrarCheckArchive(PChar(FileName), 1)<>0 then
ArcCheck:='Archive RAR detectée.';
ShowMessage(ArcCheck);
end;
//++++ fin ++++//
Ca ne change a priori pas grand chose puisque PChar=String (enfin presque).
L'utilisation de ces fonctions semblent (et sont) la méthode la plus saine.
Notons que ces infos ne sont là qu'à titre indicatif puisque je n'ai pas les bibliothèques en question. Mais je vois la chose ainsi...
7 oct. 2004 à 11:42
7 oct. 2004 à 06:16
Tu peux poster ta méthode sur DelphiFr apres tout ;)
6 oct. 2004 à 20:50
6 oct. 2004 à 20:38
4 oct. 2004 à 23:29
Ta methode reste execellent car elle a pas de dependance contrairement à moi
4 oct. 2004 à 21:07
En fait on a tous les deux raison ! Seulement toi tu utilise les fonctions des DLL et moi rien du tout, mais le résultat est le même ;)
4 oct. 2004 à 11:52
4 oct. 2004 à 06:15
3 oct. 2004 à 23:22
sans rancune lol
3 oct. 2004 à 12:36
3 oct. 2004 à 04:41
Il faut savoir que la quazi totalité des DLL de decompression ont une fontion pour la detection du type de l'archive.
Comme je suis VBiste, je ne connsais pas la syntaxe Delphi alors je cais mettre la version VB. Tu pourra surement retransposer ca dans ton language.
'Appel des DLL
Private Declare Function UnZipCheckArchive Lib "unzip32" (ByVal szFilename As String, ByVal imode As Long) As Long
Private Declare Function UnrarCheckArchive Lib "UnRAR32" (ByVal szFilename As String, ByVal imode As Long) As Long
Function ChercherTypeArchive(FileName As String) As String
Dim ArcCheck As String
If UnZipCheckArchive(FileName, 1) <> 0 Then
ArcCheck = "Archive ZIP detectée."
elseif UnrarCheckArchive(FileName, 1) <> 0 Then
ArcCheck = "Archive RAR detectée."
End If
MsgBox ArcCheck
End Function
De plus les declaration de DLL fonctionne pour les DLL LHA, 7-ZIP, CAB, TAR, ARJ
Pourquoi faire compliqué quand on peut faire simple :)
31 août 2004 à 18:44
compress/decompress y'en a des millions d'exemples. -> Google ou DelphiFR.
31 août 2004 à 13:56
si vous aurez mi l'exemple comme compresser decompresser un fichier, ça serait mieux.
20 avril 2004 à 21:02
Je te donne un exemple :
Interface
TFruit = (Pomme,Poire,Orange);
Implementation
var MonFruit: TFruit;
begin
MonFruit := Pomme;
if MonFruit = Poire thren ShowMessage('Zut !');
end.
Juste un exemple d'utilisation...
Si tu veux un exmple programmé ==> supercar@tiscali.fr
Bye
20 avril 2004 à 17:09
Mais merci du conseil Bombela :)
20 avril 2004 à 14:51
TMyEnumType = (Type1,Type2,Type3);
Si me suis pas trompé, ça marche.
Bye.
12 avril 2004 à 11:48
Ohla!!! "type énuméré"... doucement ^^
Nan tu vois j'aurai bien voulu que ce soit plus visible, mais j'ai pas réussi, donc si tu peux l'améliorer dans ce sens, ca serai bien.
Merci Delphiprog!
12 avril 2004 à 00:00
Dans Main.pas, tu écris :
"impossible de mettre FILE_IS_UNKNOW à la place de "0" ou je sais pas faire..."
Pour celà, tu aurais dû déclarer un type énuméré et l'utiliser comme valeur de retour de la fonction DetectArchiveType.
Mais comme tu as déclaré des constantes entières et un entier comme valeur de retour, il est donc normal que le compilateur ne puisse pas faire le rapprochement entre les uns et les autres.
C'est sur que ça aiderait pour la lisibilité mais ça n'apporterait rien en termes de performances à ta fonction. Ca peut donc rester comme ça.
Evidemment, s'il y avait davantage de valeurs de retour à mémoriser, ce serait un plus appréciable.