Necesito una ayudita sobre ZIP con harbour

[jll-fwh]

Buenas;

Alguien a logrado usar las funciones hb_zipFile() y hb_unzipfile() con harbour o ha encontrado alguna libreria o funcion para usar ZIP?

Llevo todo el dia y sigo igual que esta mañana.

Muchas gracias de antemano;
Un saludo
JLL

[Lautaro]

Hola JLL,

Aqui un pequeño ejemplo con harbour :

Code: Select all  Expand view

#include "common.ch"
#include "fileio.ch"
PROCEDURE main(carchivo)

   LOCAL xdata
   LOCAL csalida
   LOCAL cerror
   LOCAL nresultado
 
   
   local nhdestino
   local hproceso
   local cbuffer := space(4096)
   local nlen
   local nestado
   local hstdin
   local hstdout
   local hstderr
 
  if file(carchivo+".txt")
   
     hb_zipfile(carchivo+".zip",carchivo+".txt",,,,,,,{|npos,ntotal| muestra2("Leidos "+transform(npos,"@E ###,###,###,###,###,###")+" de "+transform(ntotal,"@E ###,###,###,###,###,###"))})
 
  endif
 
   RETURN
    
   procedure muestra(ctexto)
       @1,1 say ctexto
   return
   procedure muestra2(ctexto)
       @2,1 say ctexto
   return


 

Debes incluir las libs : hbziparc, minizip , hbmzip

Saludos

Lautaro Moreira

[jll-fwh]

Hola Lautaro:

Las Lib que me comentas en mi version no las tenia, Harbour 1.0.1, la he actualizado a la version 5.82 y en esta si estan las lib Hbziparc.lib, minizip.lib y hbmzip.lib, pero ahora tengo el siguiente problema que al no actualizarme nunca no se como debo proceder:

Al compilar ahora con harbour ver 5.82 me da error al compilar sobre la Lib hbw32.lib, que en esta version no existe, hay otra que se llama hbwin.lib, en mi LNK la he cambiado el nombre, pero me sigue dando errores. Que lib sustituye ahora a hbw32.lib?

Error que me da ahora al compilar con la version Harbour 5.82 ( que no puede abrir la lib, pq claro no existe )

Falta_: Unable to open file 'hbw32.lib'

Espero haberme explicado lo mas claro posible.

un saludo y muchas gracias por tu ayuda.
JLL

[Lautaro]

JLL,

Lamento informarte que tendras que sufrir un poco con estos cambios de nombre de las librerias, yo actualmente trabajo con harbour 3.0 y creeme vale la pena el esfuerzo, solo por mencionar algunas cosas que tienes en harbour 3.0 : multiarea, comunicaciones remotas con hbnetio, que tambien te da el acceso remoto a dbfs, el hbide, acceso a sqllite, mysql, postgres, y otros mas.

Te adjunto la lista de librerias que uso yo :

hbrtl.lib
hbvm.lib
gtgui.lib
hblang.lib
hbmacro.lib
hbrdd.lib
rddntx.lib
rddcdx.lib
rddfpt.lib
hbsix.lib
hbdebug.lib
hbcommon.lib
hbpp.lib
hbcpage.lib
hbwin.lib
hbusrrdd.lib
hbziparc.lib
hbzlib.lib
hbmzip.lib
gtcgi.lib
gtwin.lib
hbnf.lib
hbtip.lib
hbpcre.lib
minizip.lib

Aqui estan los cambios a los nombres de las librerias, salvo algunos posteriores

; Here is the final summary of contrib lib renames:
----------- ------------- -------------
Old Old New
DIR LIBNAME DIR & LIBNAME
----------- ------------- -------------
adordd adordd hbrddado
apollo apollo hbapollo
bmdbfcdx bmdbfcdx hbbmcdx
btree hbbtree hbbtree
directx hbwin32ddrw hbw32ddr
firebird firebird hbfbird
freeimage hbfreeimage hbfimage
gd hbgd hbgd
gtwvg gtwvg hbgtwvg
hbzlib hbziparch hbziparch
htmllib html (DELETED)
libct ct hbct
libgt gt hbgt
libmisc hbmisc hbmisc
libnf nf hbnf
msql msql hbmsql
mysql hbmysql hbmysql
odbc hbodbc hbodbc
ole hbole hbole
pdflib hbpdflib (DELETED)
pgsql hbpg hbpgsql
rdd_ads rddads hbrddads
samples samples hbclipsm
telepath telepath hbtpathy
tip tip hbtip
what32 what32 hbwhat32
win32 hbwin32 hbw32
xhb xhb xhb
hgf hgf* hbgf*

Old name New name
-------- --------
codepage -> hbcpage
common -> hbcommon
compiler -> hbcplr
debug -> hbdebug
hbsix -> hbsix
hsx -> hbhsx
lang -> hblang
macro -> hbmacro
pp -> hbpp
rtl -> hbrtl
vm -> hbvm
rdd -> hbrdd
dbfcdx -> rddcdx
dbffpt -> rddfpt
dbfntx -> rddntx
nulsys -> hbnulrdd
usrrdd -> hbusrrdd
mainwin -> hbmainwin
mainstd -> hbmainstd

Saludos,

Lautaro Moreira