DETECTER LE TYPE D'ARCHIVE (ZIP, ACE, RAR) GRACE AU SIGNATURES

Commentaire de Delphiprog le 12/04/2004 00:00:18 administrateur CS

Pas mal !
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.

Commentaire de Bombela le 20/04/2004 14:51:32

Pour faire un type énuméré :

TMyEnumType = (Type1,Type2,Type3);

Si me suis pas trompé, ça marche.

Bye.

Commentaire de Bombela le 20/04/2004 21:02:59

C'et très simple après.

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

Commentaire de SiZiOUS le 31/08/2004 18:44:53

et aussi winrar en open source?

compress/decompress y'en a des millions d'exemples. -> Google ou DelphiFR.

Commentaire de SiZiOUS le 03/10/2004 12:36:14

Désolé je ne lit pas le VB. La tu n'a besoin d'aucune DLL :) Non plus serieusement c'était plutot un exercice pour lire l'en-tête d'un fichier plutot qu'autre chose.

Commentaire de SiZiOUS le 04/10/2004 06:15:48

et les forums ca sert à quoi lol

Commentaire de SiZiOUS le 04/10/2004 21:07:06

Oui, tu as tous à fait raison. Après tout, c'est toi qui a raison au niveau du code :)

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 ;)

Commentaire de SiZiOUS le 06/10/2004 20:38:58

En tout cas j'espère que ce code pourra te servir pour autre chose, ou même pour détecter un type d'archive =)

Commentaire de SiZiOUS le 07/10/2004 06:16:36

Dans ce cas il te servira pour autre chose =)
Tu peux poster ta méthode sur DelphiFr apres tout ;)

Commentaire de grandvizir le 27/10/2004 20:26:40

Je traduit bêtement (j'explique après) le VB de Patate:

//++++ 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...