Discussion :

[defluc]

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.

[SergioMaster]

Bonjour,

Juste indiquer le nom du fichier au composant ZIPMaster (propriété ZipFileName) suffirait à lancer la vérification
AMHA il manque une instruction après le renseignement de la propriété, mais je ne connais pas ce composant pour l'affirmer

[Edit] ah si, dans l'aide il est indiqué

NOTE: When you assign a value to this property, the contents of the zipfile will be read.

[ALWEBER]

Je crois que tu peux gérer l'erreur sans try ... avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if ZipMaster.ErrCode <> 0 then

[defluc]

Sergio Master, quand le fichier archive (*.zip) est endommagé ou corrompu,l'exception est bien déclenchée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ZipMaster.ZipFileName := ZipFile;

Mais le bloc Except n'est pas pris en compte.

ALWEBER, comme l'affectation de ZipFileName provoque l'erreur, aucune instruction qui suivrait comme ZipMaster.Err ou ZipMaster.Find ne peut être prise en compte.

Quand je double clique sur le fichier corrompu dans l'explorateur de Windows 10, une boite à message s'affiche avec le message

Windows ne peut pas ouvrir le dossier.
Le fichier compressé «Fichier.zip» n'est pas valide.

J'ai essayé de tester le fichier corrompu en utilisant l'API Windows.

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
procedure TMainForm.Test2Click(Sender: TObject);
Var
  dwread :LongWord;
  hFile : THandle;
  data : Shortstring;
  ZipFile : String;
begin
  ZipFile := 'D:\Cadastre\Matrice2010ZippéEtDézippé\00423972.zip';
  hFile := createfile(PChar(ZipFile), GENERIC_READ, FILE_SHARE_READ, Nil,
                      OPEN_EXISTING, 0, 0);
  SetFilePointer(hFile, 0, nil, FILE_BEGIN);
  Readfile(hFile, data, 64, dwread, nil);
  ShowMessage(SysErrorMessage(GetLastError));
  Closehandle(hFile);
end;

Mais le message qui m'est renvoyé est

L'opération a réussi.

[Cirec]

Bonjour,

on ne peut pas gerer toutes les exceptions avec un bloc "try/except"
ça dépend principalement du choix du développeur initial (voir la petite démo)
et après un rapide tour dans les sources de ZipMaster cela semble être le cas ici
ils ont fait le choix d'afficher ce genre de message.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
procedure TestException1;
var
  SL           : TStringList;
begin
  SL := TStringList.Create;
  try
    try
      SL.LoadFromFile('tt.ttt');
    except
      // je laisse le choix au programmeur
      raise;
    end;
  finally
    SL.Free;
  end;
end;
 
procedure TestException2;
var
  SL           : TStringList;
begin
  SL := TStringList.Create;
  try
    try
      SL.LoadFromFile('tt.ttt');
    except
      // je décide de forcer l'affichage de l'erreur
      on E: Exception do
        ShowMessageFmt('Message forcé'#13#10' %s', [E.Message])
    end;
  finally
    SL.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   // je peux choisir d'afficher cette erreur ou de l'étouffer
    TestException1;
  except
    on E: Exception do
      ShowMessageFmt('Message intercepté'#13#10' %s', [E.Message]) // ce message sera affiché
  end;
 
  try
    // ici je n'ai pas le choix
    TestException2;
  except
    on E: Exception do
      ShowMessageFmt('Message intercepté'#13#10' %s', [E.Message]) // ce message ne sera pas affiché
  end;
end;

Cordialement,

@+

[defluc]

J'ai galéré dans les sources du composant pour suivre le cheminement des instructions qui empêchaient de masquer le message d'erreur mais j'y suis finalement arrivé grâce à Cirec que je remercie.

Je clos donc le sujet.