paszlib. Determine if extraction was successful

[LemonParty]

I use TUnZipper.UnZipAllFiles to extract archive.
How to determine if extraction of all files was successful?

[wp]

The unzipper raises a lot of exceptions. So, if your unzipping procedure reaches its end without an exception it must have been successful. Untested:

Code: Pascal  [Select][+][-]

1. uses
2.   Zipper;
3. function UnzipFiles(AZip: String; AOutputDir: String; out AErrorMsg: String): Boolean;
4. var
5.   UnZipper: TUnZipper;
6. begin
7.   Result := true;
8.   AErrorMsg := '';
9.   UnZipper := TUnzipper.Create;
10.   try    
11.     try  
12.       UnZipper.FileName := AZip;
13.       UnZipper.OutputPath := AOutputDir;
14.       UnZipper.Examine;
15.       UnZipper.UnZipAllFiles;
16.     except
17.       on E:Exception do
18.       begin
19.         AErrorMsg := E.Message;
20.         Result := false;
21.       end;
22.     end;
23.   finally
24.     UnZipper.Free;
25.   end;
26. end;
27. end.
28.  

[Thaddy]

The unzipper raises a lot of exceptions.

Oops, that needs a rewrite then.