TZipFile:lRecurse

[X-Soft]

Hola a todos.
Estoy tratando de terminar la copia de seguridad con TZipFile, pero me
encuento con que la propiedad lRecurse (que según pone en la documentación,
incluye las carpetas hijas) no funciona, o por lo menos no sé hacerla
funcionar.
METHOD CopiaClick( oSender ) CLASS FrmCopSeg
Local oZip
WITH OBJECT oZip := TZipFile()
:lRecurse := .T.
:aFileMask := { "C:*.*" }
:cFileName := "C:Copia.zip"
:lIncludePath := .T.
:nCompressionLevel := pkBEST
:Run()
END
RETURN Nil
Si alguien puede ayudarme....
Ramón Torreblanca

[jlalin]

Ramón,
la propiedad aFileMask debe ser un array de arrays con las máscaras.
El ejemplo que has puesto deberí­a cambiar:
> :aFileMask := { "C:*.*" }
por:
:aFileMask := { { "C:*.*" } }
Saludos,
José Lalí­n

[X-Soft]

Muchas gracias José.
Lo siento, pero lo he probado y sigo teniendo el mismo resultado.
Alguna idea más?
Ramón Torreblanca
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:451a6996$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Ramón,
>
> la propiedad aFileMask debe ser un array de arrays con las máscaras.
>
> El ejemplo que has puesto debería cambiar:
>
>> :aFileMask := { "C:*.*" }
>
> por:
> :aFileMask := { { "C:*.*" } }
>
> Saludos,
> José Lalín

[jlalin]

Ramón,
> Muchas gracias José.
>
> Lo siento, pero lo he probado y sigo teniendo el mismo resultado.
Ok, acabo de revisar el fuente y hay un bug que impide que lRecurse
funcione correctamente.
Ahora tengo que salir, pero esta tarde a primera hora pongo aquí­ el OBJ
para que lo pruebes.
Saludos,
José Lalí­n

[jlalin]

Ramón,
prueba este Obj y dime si así­ funciona.
Saludos,
José Lalí­n
--

[X-Soft]

Hola José:
Lo siento, seguimos igual, no copia las carpetas ni los ficheros hijos.
Gracias.
Ramón Torreblanca
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=451bdaa6@news.xailer.com...]451bdaa6@news.xailer.com...[/email]
>
> Ramón,
>
> prueba este Obj y dime si así funciona.
>
> Saludos,
> José Lalín
>

[jlalin]

Ramón,
> Lo siento, seguimos igual, no copia las carpetas ni los ficheros hijos.
Después de enviarte el OBJ encontré otro bug que impedí­a que funcionase
correctamente. Quita el anterior del proyecto y pon este.
Este último, te confirmo que funciona perfectamente por lo que si persiste
el problema te agradezco que pongas un ejemplo de cómo lo estás usando.
Saludos,
José Lalí­n
--

[X-Soft]

José, entonces estoy haciendo algo mal, me da un error cuando llamo al
objeto TzipFile. Te envío el código para que me lo puedas corregir.
Siento ser tan follonero.
Te lo agradezco en el alma.
Un saludo.
Ramón Torreblanca.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=45243c1f@news.xailer.com...]45243c1f@news.xailer.com...[/email]
>
> Ramón,
>
>> Lo siento, seguimos igual, no copia las carpetas ni los ficheros hijos.
>
> Después de enviarte el OBJ encontré otro bug que impedía que funcionase
> correctamente. Quita el anterior del proyecto y pon este.
>
> Este último, te confirmo que funciona perfectamente por lo que si persiste
> el problema te agradezco que pongas un ejemplo de cómo lo estás usando.
>
> Saludos,
> José Lalín
>


Attached files zip.zip (8.5 KB)Â

[jlalin]

Ramón,
> José, entonces estoy haciendo algo mal, me da un error cuando llamo al
> objeto TzipFile. Te enví­o el código para que me lo puedas corregir.
He mirado el código y hay tres cosillas que impiden que funcione correctamente.
> Siento ser tan follonero.
No te preocupes.
> Te lo agradezco en el alma.
Adjunto el proyecto corregido. He puesto varios comentarios, mí­ralos y
verás que los errores son sólo pequeños despistes. Por cierto, antes de
probarlo en tu ordenador, ajusta los paths de los ejemplos porque los he
cambiado para hacer las pruebas aquí­.
Ya me contarás.
Saludos,
José Lalí­n
--

[X-Soft]

Hola de Nuevo: )
Gracias por tu tiempo-
Esto sigue sin comprimir los ficheros de las carpetas hijas, tampoco el
ejemplo que me has enviado ( da error de GPF en la línea "WITH OBJECT
TZipFile():New()" ).
He estado mirando y lo ínico que se me ocurre es que tú estas utilizando la
librería hbzip.lib de Harbour y yo la que viene con Xailer, es de cir, la de
XHarbour.
Si no es eso, me rindo.
Muchas gracias de nuevo.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=45257f3e@news.xailer.com...]45257f3e@news.xailer.com...[/email]
>
> Ramón,
>
>> José, entonces estoy haciendo algo mal, me da un error cuando llamo al
>> objeto TzipFile. Te envío el código para que me lo puedas corregir.
>
> He mirado el código y hay tres cosillas que impiden que funcione
> correctamente.
>
>> Siento ser tan follonero.
>
> No te preocupes.
>
>> Te lo agradezco en el alma.
>
> Adjunto el proyecto corregido. He puesto varios comentarios, míralos y
> verás que los errores son sólo pequeños despistes. Por cierto, antes de
> probarlo en tu ordenador, ajusta los paths de los ejemplos porque los he
> cambiado para hacer las pruebas aquí.
>
> Ya me contarás.
>
> Saludos,
> José Lalín
>

[Xevi]

José,
Yo lo he probado... con la librería de xHarbour de Xailer...
Sin tocar nada... sólo he hecho que el Módulo principal sea FrmCopSeg...
El Zip que arma tiene los ficheros pero no las carpetas hijas y sus
ficheros!!!
Un Saludo,
Xevi.
"Ramón Torreblanca" <la_pirata@hotmail.com> ha escrit al missatge del grup
de discussió: 452627e7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hola de Nuevo: )
>
> Gracias por tu tiempo-
>
> Esto sigue sin comprimir los ficheros de las carpetas hijas, tampoco el
> ejemplo que me has enviado ( da error de GPF en la línea "WITH OBJECT
> TZipFile():New()" ).
>
> He estado mirando y lo ínico que se me ocurre es que tú estas utilizando
> la librería hbzip.lib de Harbour y yo la que viene con Xailer, es de cir,
> la de XHarbour.
>
> Si no es eso, me rindo.
>
> Muchas gracias de nuevo.
>
>
> "José Lalín" <dezac@corevia.com> escribió en el mensaje
> news:[email=45257f3e@news.xailer.com...]45257f3e@news.xailer.com...[/email]
>>
>> Ramón,
>>
>>> José, entonces estoy haciendo algo mal, me da un error cuando llamo al
>>> objeto TzipFile. Te envío el código para que me lo puedas corregir.
>>
>> He mirado el código y hay tres cosillas que impiden que funcione
>> correctamente.
>>
>>> Siento ser tan follonero.
>>
>> No te preocupes.
>>
>>> Te lo agradezco en el alma.
>>
>> Adjunto el proyecto corregido. He puesto varios comentarios, míralos y
>> verás que los errores son sólo pequeños despistes. Por cierto, antes de
>> probarlo en tu ordenador, ajusta los paths de los ejemplos porque los he
>> cambiado para hacer las pruebas aquí.
>>
>> Ya me contarás.
>>
>> Saludos,
>> José Lalín
>>
>
>

[jlalin]

Xevi,
> Yo lo he probado... con la librerí­a de xHarbour de Xailer...
>
> Sin tocar nada... sólo he hecho que el Módulo principal sea FrmCopSeg...
> El Zip que arma tiene los ficheros pero no las carpetas hijas y sus
> ficheros!!!
¿ Has incluido el OBJ del archivo xazip.zip que puse anteayer ?
Saludos,
José Lalí­n

[jlalin]

Ramón,
> Esto sigue sin comprimir los ficheros de las carpetas hijas, tampoco el
> ejemplo que me has enviado ( da error de GPF en la lí­nea "WITH OBJECT
> TZipFile():New()" ).
¿ Has incluido el OBJ en el proyecto corregido ?
> He estado mirando y lo í­nico que se me ocurre es que tú estas utilizando la
> librerí­a hbzip.lib de Harbour y yo la que viene con Xailer, es de cir, la de
> XHarbour.
No, estoy utilizando la librerí­a que viene con Xailer.
> Si no es eso, me rindo.
>
> Muchas gracias de nuevo.
Asegúrate de incluir el OBJ y de recompilar todo el proyecto con Alt+F9.
Saludos,
José Lalí­n

[Xevi]

José,
Si incluyo el obj, como un fichero mas del proyecto me lanza el GPF que
muestro en esta imagen...
http://es.geocities.com/aplicacionsdeso ... _XAzip.JPG
Un Saludo,
Xevi.
"José Lalín" <dezac@corevia.com> ha escrit al missatge del grup de
discussió: 45266dac$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Xevi,
>
>> Yo lo he probado... con la librería de xHarbour de Xailer...
>>
>> Sin tocar nada... sólo he hecho que el Módulo principal sea FrmCopSeg...
>> El Zip que arma tiene los ficheros pero no las carpetas hijas y sus
>> ficheros!!!
>
> ¿ Has incluido el OBJ del archivo xazip.zip que puse anteayer ?
>
> Saludos,
> José Lalín

[jlalin]

Xevi, Ramón,
> Si incluyo el obj, como un fichero mas del proyecto me lanza el GPF que
> muestro en esta imagen...
>
> http://es.geocities.com/aplicacionsdeso ... _XAzip.JPG
Es rarí­simo porque las clases TZipFile y TUnzipFile no tienen método New
propio, lo heredan de TComponent y si hubiera un GPF en TComponent:New no
funcionarí­a nada del IDE.
He recompilado el módulo ZIP con la información de depuración activada.
Probad el proyecto adjunto (ya incluye el OBJ) en una carpeta nueva y
decidme si funciona o no.
Saludos,
José Lalí­n
--

[Xevi]

José,
sigue con el GPF!!!
http://es.geocities.com/aplicacionsdeso ... XAzip_2.JP G
Un Saludo,
Xevi.
"José Lalín" <dezac@corevia.com> ha escrit al missatge del grup de
discussió: [email=4526ca1f@news.xailer.com...]4526ca1f@news.xailer.com...[/email]
>
> Xevi, Ramón,
>
>> Si incluyo el obj, como un fichero mas del proyecto me lanza el GPF que
>> muestro en esta imagen...
>>
>> http://es.geocities.com/aplicacionsdeso ... _XAzip.JPG
>
> Es rarísimo porque las clases TZipFile y TUnzipFile no tienen método New
> propio, lo heredan de TComponent y si hubiera un GPF en TComponent:New no
> funcionaría nada del IDE.
>
> He recompilado el módulo ZIP con la información de depuración activada.
>
> Probad el proyecto adjunto (ya incluye el OBJ) en una carpeta nueva y
> decidme si funciona o no.
>
> Saludos,
> José Lalín
>
>

[jlalin]

Xevi,
> sigue con el GPF!!!
>
> http://es.geocities.com/aplicacionsdeso ... XAzip_2.JP G
Estoy totalmente perdido. ¿ Puedes hacer la misma prueba seleccionando un
directorio que no tenga espacios en el nombre ?
Saludos,
José Lalí­n

[jlalin]

Xevi, Ramón,
creo que el problema se debe a cómo se estaba declarando una de las
propiedades de la clase.
Copia el OBJ adjunto en la carpeta OBJ del proyecto de ejemplo y recompila.
Saludos,
José Lalí­n
--

[miguel]

Y a mi también me da el mismo GPF
Xevi escribió:
> José,
>
> sigue con el GPF!!!
>
> http://es.geocities.com/aplicacionsdeso ... XAzip_2.JP G
>
>
> Un Saludo,
> Xevi.
>
>
>
> "José Lalí­n" <dezac@corevia.com> ha escrit al missatge del grup de
> discussió: [email=4526ca1f@news.xailer.com...]4526ca1f@news.xailer.com...[/email]
>> Xevi, Ramón,
>>
>>> Si incluyo el obj, como un fichero mas del proyecto me lanza el GPF que
>>> muestro en esta imagen...
>>>
>>> http://es.geocities.com/aplicacionsdeso ... _XAzip.JPG
>> Es rarí­simo porque las clases TZipFile y TUnzipFile no tienen método New
>> propio, lo heredan de TComponent y si hubiera un GPF en TComponent:New no
>> funcionarí­a nada del IDE.
>>
>> He recompilado el módulo ZIP con la información de depuración activada.
>>
>> Probad el proyecto adjunto (ya incluye el OBJ) en una carpeta nueva y
>> decidme si funciona o no.
>>
>> Saludos,
>> José Lalí­n
>>
>>
>
>
>
>

[Xevi]

José,
He copiado el OBJ y reconstruido el proyecto...
lo siento, pero lanza el mismo GPF!!!
Un Saludo,
Xevi.
"José Lalín" <dezac@corevia.com> ha escrit al missatge del grup de
discussió: [email=4526e1f4@news.xailer.com...]4526e1f4@news.xailer.com...[/email]
>
> Xevi, Ramón,
>
> creo que el problema se debe a cómo se estaba declarando una de las
> propiedades de la clase.
>
> Copia el OBJ adjunto en la carpeta OBJ del proyecto de ejemplo y
> recompila.
>
> Saludos,
> José Lalín
>

[X-Soft]

Lo siento José, lanza el mismo GPF.
No se si tendrá lgo que ver, pero ya te dije que había visto en el proyecto
que me reenviaste que la librería hbzip.lib venia con la ruta desde
"c:harbour". en fin puede que no, pero es por dar pistas.
Un Saludo
Ramón Torreblanca
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:[email=45267533@news.xailer.com...]45267533@news.xailer.com...[/email]
>
> Ramón,
>
>> Esto sigue sin comprimir los ficheros de las carpetas hijas, tampoco el
>> ejemplo que me has enviado ( da error de GPF en la línea "WITH OBJECT
>> TZipFile():New()" ).
>
> ¿ Has incluido el OBJ en el proyecto corregido ?
>
>> He estado mirando y lo ínico que se me ocurre es que tú estas utilizando
>> la librería hbzip.lib de Harbour y yo la que viene con Xailer, es de cir,
>> la de XHarbour.
>
> No, estoy utilizando la librería que viene con Xailer.
>
>> Si no es eso, me rindo.
>>
>> Muchas gracias de nuevo.
>
> Asegúrate de incluir el OBJ y de recompilar todo el proyecto con Alt+F9.
>
> Saludos,
> José Lalín

[jfgimenez]

Ramón, Miguel, Xevi,
siguiendo instrucciones de José Lalín, os dejo un nuevo .obj. Por favor,
probadlo y decidnos si funciona bien.
--
Un saludo,
José F. Giménez
http://www.xailer.com


Attached files ziparchive.zip (2.8 KB)Â

[X-Soft]

Ok.
Muchas gracias por todo, funciona a la perfección
Ramón Torreblanca
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=452a078e@news.xailer.com...]452a078e@news.xailer.com...[/email]
> Ramón, Miguel, Xevi,
>
> siguiendo instrucciones de José Lalín, os dejo un nuevo .obj. Por favor,
> probadlo y decidnos si funciona bien.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>

[Xevi]

Jose,
PERFECTO!!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al missatge
del grup de discussió: [email=452a078e@news.xailer.com...]452a078e@news.xailer.com...[/email]
> Ramón, Miguel, Xevi,
>
> siguiendo instrucciones de José Lalín, os dejo un nuevo .obj. Por favor,
> probadlo y decidnos si funciona bien.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>

[jlalin]

Ramón,
> No se si tendrá lgo que ver, pero ya te dije que habí­a visto en el proyecto
> que me reenviaste que la librerí­a hbzip.lib venia con la ruta desde
> "c:harbour". en fin puede que no, pero es por dar pistas.
No, tengo xHarbour instalado en c:harbour para poder hacer pruebas con
diferentes versiones del compilador.
Saludos,
José Lalí­n