Usando ficheros comprimidos ZIP desde Harbour.

Como pone en la página web de harbour (http://www.harbour-project.org/), harbour es software libre 100 % compatible con compiladores Clipper.

Pero ademas de las funciones Clipper, el compilador ha ido añadiendo una serie de funciones nuevas (todas las que su nombre empieza por HB_... ), que muchas veces desconocemos, y que nos aportan funcionalidad extra.
Estas funciones son usadas escasamente por la comunidad de usuarios, bien porque desconoce su existencia, bien porque la documentación es excasa o nula para poderlas usar.

En la entrada de hoy vamos a centrarnos sobre dos funciones en concreto, HB_ZipFile y HB_UnZipFile, que nos va a permitir comprimir y descomprimir archivos en formato ZIP.

HB_ZipFile( cZipName, cFile | aFiles, nLevel, bBlock, lOverRide, cPassWord, lWithPath, lWithDrive, pFileProgress )

cZipName	Nombre del fichero ZIP a crear
cFile | aFiles	Nombre del fichero a comprir o array de ficheros a comprimir. Unidad y Path pueden ser usados.
nLevel	Nivel de compresión. De 0 a 9
bBlock	Code block a ejecutar mientras se comprime
lOverRide	Sobreescribir el fichero si existe.
cPassWord	Password para encriptar el fichero ZIP
lWithPath	Guardar el path si/no
lWithDrive	Guardar la unidad si/no
pFileProgress	Code bloclk para progreso de archvios.

HB_UnZipFile( cFile, bBlock, lWithPath, cPassword, cPath, cFile | aFiles, FileProgress )

cFile	Nombre del fichero a descomprimir
bBlock	Code block a ejecutar a medida que se va descomprimiendo
lWithPath	Permitir crear directorios si es necesario
cPassWord	Contraseña a usar para descomprimir el fichero
cPath	Path donde estraer los ficheros
cFile | aFiles	Nombre de un archivo, o array de nombres de archivos a extraer
pFileProgress	Code block para visualizar progreso de los ficheros

Las dos funciones retorman un valor booleano, informandonos si el proceso a concluido con éxito.


Veamos un primer ejemplo sencillo de comprimir / descomprimir.


Vamos a complicarlo y elaborarlo un poco mas, en el fondo haremos lo mismo, pero con una barra de evolución tanto para comprimir como descomprimir. Simplemente haremos uso de los parametros adicionales que nos permiten ejecutar codeblocks.



Como podeis ver en el fuente, hemos creado dos funciones comprime y descomprime, que son muy sencillas de usar. Comprime recibe dos parámetros, nombre del fichero zip que queremos crear, y array (arreglo) con los ficheros que queremos comprimir. Descomprime recibe como único parámetro el nombre del fichero ZIP a descomprimir.
En el interior de cada una de las funciones creamos un dialogo para visualizar la evolución, y montamos e code block necesario para que se vaya actualizando.
Como visteis al principio existen más parámentros en la función HB_ZipFile y Hb_UnZipFile, se trata de que vayais experimentando con ellos y usando los que os hagan falta. Este ejemplo es un ejemplo básico, pero creo que cubre las necesidades más comunes de compresión y descompresión.

Existen una serie de funciones adicionales para manejo de ficheros Zip, pero os las dejo para que vosotros mismos las investigueis, en descomprime por ejemplo hacemos uso de hb_GetFilesInZip ,para determinar el número de archivos contenidos en el fichero comprimido.

Ya habeis visto que no es nada complicado, si solo quereis comprimir / descompriir, con dos funciones y usando dos parámetros ya lo esta listo.

El último escollo, pero también importante, es linkar las librerías adecuadas para poder hacer uso de las funciones de manejo de ficheros ZIP.
Las librerias a ñadir a vuestro proyecto son:
hbZiparc.lib
hbmzip.lib
hbzlib.lib

Descargar fuentes

Espero que os sea de utilidad, saludos desde Mallorca.
Biel Maimó

Actualización automática de aplicaciones

En la entrada anterior publique un sistema para realizar actualizaciones de nuestras aplicaciones via FTP. Hoy seguiremos hablando del tema, y le daremos otra vuelta de tuerca.

Para actualizar nuestra aplicación usábamos un pequeño programa “ActVer”, que se encargaba de renombrar y lanzar la ejecución de nuestra aplicación.

Al realizar este programa en [x]Harbour, nos queda de un tamaño bastante considerable teniendo en cuenta lo poco que hace, eso es debido a que como poco cualquier ejecutable Harbour se lleva dentro la maquina virtual.
Para mejorar el tamaño crearemos una versión de ActVer, pero escrita en C, con lo que pasaremos de los 1,46 MB de la versión de harbour a los 16 KB de la versión compilada en C (1,519,616 bytes menos).

Ademas para no tener que distribuir dos ejecutables, embeberemos ActVer.exe dentro de nuestra aplicación, concretamente en el fichero de recursos, y lo extraeremos solo en el momento que sea necesario actualizar nuestra aplicación.

El codigo de ActVer.C queda de la siguiente manera.

#include "stdio.h"
#include "windows.h"

int main( int argc, char *argv[])
{
Sleep(700);
DeleteFile( argv[1]);
rename( "tmp.exe",argv[1]);
WinExec(argv[1],1);
return EXIT_SUCCESS;
}

Ahora vamos a insertarlo dentro de nuestra aplicación, para ello añadimos la siguiente linea en nuestro fichero de recursos, xxxxx.RC

ACTVER RCDATA "ActVer.exe"

RCDATA nos permite insertar directamente datos binarios en nuestro ejecutable (graficos, otros exe, …)

Con esta linea, la siguiente vez que compilemos nuestra aplicación, actver quedara incrustado dentro de nuestro programa, ahora solo nos hace falta el poder extraerlo, cosa que haremos con el siguiente código (también en c).

Insertamos el código de la función en c, en nuestro fuente prg Harbour.

#pragma BEGINDUMP
#include "Windows.h"
#include "hbApi.h"
HB_FUNC( RESTOFILE )
{
HRSRC res=FindResource(NULL,"ACTVER",RT_RCDATA);
LPDWORD bytesWritten;
int size=SizeofResource(NULL,res);
HGLOBAL hRes=LoadResource(NULL,res);
unsigned char *pRes=(unsigned char *)LockResource(hRes);
HANDLE hFile=CreateFile("ACTVER.EXE",GENERIC_WRITE,0,NULL,CREATE_ALWAYS,0,NULL);
WriteFile(hFile,pRes,size,&bytesWritten,NULL);
CloseHandle(hFile);
}
#pragma ENDDUMP

Y con esto ya veis que es muy sencillo el incorporar ficheros binarios en nuestro EXE, esta es una posible utilidad, pero seguro que le encontrareis alguna otra.

Para que el PRG de nuestro anterior hilo incorpore esta funcionalidad, debemos añadir el codigo antes citado, y realizar una llamada a la función ResToFile() en la linea anterior a WinExec.

UpdFtp2.prg
ActVer.c
UpdFtp2.zip contiene UpdFtp2.exe
ActVer.rc
ActVer.Exe

Actualización automatica de aplicaciones via FTP

En esta entrada del blog vamos a diseñar un sistema para automatizar las actualizaciones de las versiones de nuestros programas.
Para ello, necesitaremos disponer de un servidor FTP. El motivo de usar un servidor FTP, es que nos va a permitir tanto una solución vía intranet como Internet.

Vamos a explicar la teoría de este sistema, y después iremos con la practica y el código fuente.

1º Dispondremos de un servidor FTP, en el cual montaremos una estructura de carpetas, donde el nombre de la carpeta, será el de la aplicación, y dentro de esta carpeta alojaremos la última versión de nuestro programa ejecutable.

2º Especificaremos a nuestro programa, la información necesaria para poderse conectar al servicio FTP( ip, usuario,...), con esa información se conectara, y comprobara la antigüedad del fichero alojado en el servidor, la comparara con él mismo, y si la versión del FTP es más nueva, procedera a la descarga del fichero ejecutable, en un fichero temporal en nuestra unidad local.

3º Si había actualizaciones para descargar, y la descarga se ha completado con éxito, ejecutaremos otro proceso, que borrara la versión antigua, re nombrara y lanzara su ejecución.

Y con esto ya tendremos actualizado nuestro programa. Viendo la teoría, no parece muy complicado ;-)

Esta solución, la tengo implementada como parte de una clase (tAppl), que utilizo en todas mis aplicaciones, aquí para poderos poner un ejemplo auto contenido, y no complicarnos explicando la creación de las clases, lo realizaremos con funciones, aunque luego el lector lo podrá adaptar a una clase o de la manera que le parezca mas cómoda para su forma de trabajo.

Nuestra aplicación, empezara definiendo la dirección del servidor FTP, y la carpeta donde comprobar el fichero a actualizar, seguidamente ejecutaremos la función ChkUpdFtp, y aquí se bifurcara, dependiendo de si hay que actualizar o no.

Veamos ahora la función(ChkUpdFtp) encargada de determinar si existen versiones nuevas de nuestro programa, para ello utilizaremos las clases tInternet y fFtp.
Lo primero que haremos será comprobar si disponemos de los parámetros necesarios para conectarnos, y si existe el programa ActVer(mas adelante veremos su código fuente) que será el encargado de renombrar y relanzar nuestro programa. Pasado este primer filtro, pasamos a intentar realizar la conexión con el FTP, si dicha conexión tiene éxito, solo nos resta comprobar las fecha y hora de creación de los archivos y determinar si debe o no actualizarse, en caso de que se deba actualizar llamaremos a la función Actualiza.

En este proceso usamos funciones que no vamos a comentar su funcionamiento, simplemente os incluyo su codigo fuente (prg y C). ( TimeToSec, FileTimes, FileSize ) O bien podeis utilizar alguna alternativa vuestra si en vuestro set de funciones ya las teneis definidas.

La función actualiza, es la encargada de descargar el nuevo fichero ( GetFile ), y visualizar en pantalla una barra de evolución de la descarga .


Al llegar a este punto, si la función Actualiza nos devuelve verdadero, significará que ya tenemos descargado nuestra nueva versión en la carpeta local, solo debemos cerrar la versión actual, e invocar ActVer que se encargará de borrar la versión anterior, y renombrar el fichero que acabos de recibir, y posteriormente ejecutarlo.

Veamos el sencillo código de ActVer.exe, recibe como parámetro el fichero a actualizar, borra la versión anterior, renombra y ejecuta.

Y con esto ya tenemos implementado nuestro sistema de actualizacion via Ftp de nuestras aplicaciones.
Dos cosas importantes a tener en cuenta si vuestro servidor de FTP es LINUX, los nombre de ficheros, en linux son case sensitive, y la hora de creacion del fichero se guarda en UTC.
UpdFtp.prg
ActVer.prg
UpdFtp.exe y ActVer.exe

Nota: me comentan que al compilar con xHarbour falta la función HB_IsChar, simplemente sustituir HB_ISCHAR( cTime ) por ValType(cTime)=='C'.