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,
Andrés,
ResponderEliminarexcelente aportación, saludos
AAAnimooooo
William Morales
baje la clase
ResponderEliminarlo 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
Roberto:
ResponderEliminarNecesitas Incluir Zlib.lib ...
Saludos,
Andres Reyes
Gracias por el dato
ResponderEliminarSolucionado el problema
rqc