Re: zLibAda vs ZipAda (which should I use, if any)?

[gautier_niouzes@hotmail.com]

Le vendredi 26 août 2016 01:07:12 UTC+2, Aurele a écrit :
> Looking at AdaZip a bit closer with the Info I received (thanks guys), I do not think AdaZip provide file type specific extraction services (thanks for the heads up Qunying"). I may have to write that myself as a layer over or in addition to ZipAda.

Not sure about AdaZip, but Zip-Ada provides this service, and Jeff found which one: Traverse_Verbose.

  -- Same as Traverse, but Action gives also full technical informations
  -- about the compressed entry.
  generic
    with procedure Action(
      name             : String; -- 'name' is compressed entry's name
      file_index       : Zip_Streams.ZS_Index_Type;
      comp_size        : File_size_type;
      uncomp_size      : File_size_type;
      crc_32           : Interfaces.Unsigned_32;
      date_time        : Time;
      method           : PKZip_method;
      name_encoding    : Zip_name_encoding;
      read_only        : Boolean;
      encrypted_2_x    : Boolean; -- PKZip 2.x encryption
      user_code        : in out Integer
    );
  procedure Traverse_verbose( z: Zip_info );

You can find an example of scanning of the Zip file's directory for images here (using the non-verbose version):

http://globe3d.sf.net/g3d_html/globe_3d-textures__adb.htm#181_13

Cheers
Gautier