jueves, 22 de enero de 2009

Creando Archivos Zip

Aqui les dejo esta clase para crear archivos Zip desde (x)harbour utilizando la libreria hbmzip.lib y zlib.lib para quien desee descargarla y probarla, agradeceria mucho me dejen sus quejas, comentariosy sobre todo sugerencias.

Tan Facil Como ...

oZip := HBZip():New( "MyZip.Zip")

oZip:AddFile( "mytext.txt" ) // agregar archivo
oZip:ExtractFile( "mytext.txt", "mydir\" ) // extraer archivo

oZip:Close()

Las demas metodos de la clase los pueden ver en el codigo fuente.

Saludos,

Andres Reyes Hernandez

Nota: El archivo de descarga solo incluye el codigo fuente,
Enlace: hbzip.zip

4 comentarios:

  1. Andrés,

    excelente aportación, saludos
    AAAnimooooo

    William Morales

    ResponderEliminar
  2. baje la clase
    lo compile con xharbour build 1.2.1 y la libreria
    hbmzip y me muestra el siguiente mesaje

    Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
    Error: Unresolved external '_deflateInit2_' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|mzip
    Error: Unresolved external '_get_crc_table' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|mzip
    Error: Unresolved external '_crc32' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|mzip
    Error: Unresolved external '_deflate' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|mzip
    Error: Unresolved external '_deflateEnd' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|mzip
    Error: Unresolved external '_inflateInit2_' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|unzip
    Error: Unresolved external '_inflate' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|unzip
    Error: Unresolved external '_inflateEnd' referenced from C:\XHARBOUR\LIB\HBMZIP.LIB|unzip

    alguna sugerencia

    Saludos

    Roberto Quiroz

    ResponderEliminar
  3. Roberto:

    Necesitas Incluir Zlib.lib ...

    Saludos,

    Andres Reyes

    ResponderEliminar
  4. Gracias por el dato

    Solucionado el problema

    rqc

    ResponderEliminar