Bonjour à tous,

Un "truc" inexplicable et qui ne m'est en tout cas jamais arrivé.
Voici le code :
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
Function TMainForm.IsFileInZipFile(ZipFile : String; FilesList : TStringList;
                                   Mask : Boolean) : Boolean;
Var
  i, j : Integer;
  MaskStrList : TStringList;
Begin
  Result := False;
  ZipMaster := TZipmaster.Create(Nil);
  if FileExists(ZipFile) then
  begin
    try
      ZipMaster.ZipFileName := ZipFile;
     except
       ShowMessage(ZipFile + ' n''est pas un fichier zip valide.');
       exit
      end;
      .....
      .....
Malgré l'erreur renvoyée par le composant TZipmaster
This archive is not a valid Zip archive
,
l'exécution ne passe pas dans le bloc "Except".
Il passe bien dans un "Finally" mais l'erreur se déclenche dans la procédure appelante avant que le message de la fonction n'apparaisse.
L'erreur ne provient pas du nom du fichier mais bien d'un fichier .zip corrompu.
Une idée ?
Accessoirement, je voudrais que le message de TZipmaster ne s'affiche pas.