Necesito una ayudita sobre ZIP con harbour

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Necesito una ayudita sobre ZIP con harbour
Posted: Thu Sep 01, 2011 05:35 PM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

Lautaro

Posts: 337

Joined: Fri Oct 07, 2005 02:44 PM

Re: Necesito una ayudita sobre ZIP con harbour
Posted: Thu Sep 01, 2011 07:12 PM

Hola JLL,

Aqui un pequeño ejemplo con harbour :

Code (fw): Select all Collapse

#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

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.

jll-fwh

Posts: 408

Joined: Fri Jan 29, 2010 08:14 PM

Re: Necesito una ayudita sobre ZIP con harbour
Posted: Thu Sep 01, 2011 07:58 PM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com

Lautaro

Posts: 337

Joined: Fri Oct 07, 2005 02:44 PM

Re: Necesito una ayudita sobre ZIP con harbour
Posted: Thu Sep 01, 2011 11:14 PM

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 :

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.

FiveTech Support Forums

Continue the discussion