Xailer & OZ Software

Hola XTeam
Después de instalar la 3.2 veo que sigue fallando como en la 3.1 el
parámetro lIncludePath de TZipFile(), que sí­ funcionaba en 3.0 y sigue
sin crear las carpetas de los archivos en el Zip tal y como los cargas
en aZipFiles.
¿Hay alguna solución para esto?
Gracias y saludos.

Bingen Ugaldebere escribió el vie, 22 noviembre 2013 18:47Hola XTeam
Después de instalar la 3.2 veo que sigue fallando como en la 3.1 el
parámetro lIncludePath de TZipFile(), que sí­ funcionaba en 3.0 y sigue
sin crear las carpetas de los archivos en el Zip tal y como los cargas
en aZipFiles.
¿Hay alguna solución para esto?
Gracias y saludos.
A este asunto se le ha dedicado extrema atención no sola nuestra sino también de usuarios que lo han probado ampliamente y creemos que los problemas que tení­a la versión anterior están solucionados. No obstante, es posible que se haya quedado algún fleco sin resolver.
Te ruego que nos mandes un ejemplo que muestre el error.
Gracias

Aquí­ va la muestra:
Aadd( aZipFiles, Application:cDirectory+"Source*.Prg")
Aadd( aZipFiles, Application:cDirectory+"Source*.Xfm")
Aadd( aZipFiles, Application:cDirectory+"ReSource*.*")
Aadd( aZipFiles, Application:cDirectory+"Include*.*")
Aadd( aZipFiles, Application:cDirectory+"*.xpj")
WITH OBJECT oZip := TZipFile()
:cFileName := cName
:lIncludePath := .T.
:aFileMask := aZipFiles
:nCompressionLevel:= pkBEST
:Run()
END
Y el resultado como se ve en la imagen, es que sale todo junto.
Gracias.
--

Bingen,
Ya hace que tuve problemas con la compatibilidad entre versiones anteriores
de Xailer y copias Zip. Después de leer i escribir algun post al respecto...
me dio por añadir el fuente ZipArchive.prg de fecha 10/12/2102 (no se a que
versión de Xailer se corresponde) a mis proyectos... así­ me funciona
perfectamente, vaya, funciona como hacia anteriormente, y no me rompe nada.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@bisoft.es> ha escrit al
missatge:5291c3d9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Aquí­ va la muestra:
>
> Aadd( aZipFiles, Application:cDirectory+"Source*.Prg")
> Aadd( aZipFiles, Application:cDirectory+"Source*.Xfm")
> Aadd( aZipFiles, Application:cDirectory+"ReSource*.*")
> Aadd( aZipFiles, Application:cDirectory+"Include*.*")
> Aadd( aZipFiles, Application:cDirectory+"*.xpj")
>
> WITH OBJECT oZip := TZipFile()
> :cFileName := cName
> :lIncludePath := .T.
> :aFileMask := aZipFiles
> :nCompressionLevel:= pkBEST
> :Run()
> END
>
> Y el resultado como se ve en la imagen, es que sale todo junto.
>
> Gracias.
>
>

2012... se me fueron los dedos !!!
"Xevi" <xevicomas_quitaeso@gmail.com> ha escrit al
missatge:52923923$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Bingen,
>
> Ya hace que tuve problemas con la compatibilidad entre versiones
> anteriores de Xailer y copias Zip. Después de leer i escribir algun post
> al respecto... me dio por añadir el fuente ZipArchive.prg de fecha
> 10/12/2102 (no se a que versión de Xailer se corresponde) a mis
> proyectos... así­ me funciona perfectamente, vaya, funciona como hacia
> anteriormente, y no me rompe nada.
>
>
> Un Saludo,
> Xevi.
>
>
> "Bingen Ugaldebere" <bingen@bisoft.es> ha escrit al
> missatge:5291c3d9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Aquí­ va la muestra:
>>
>> Aadd( aZipFiles, Application:cDirectory+"Source*.Prg")
>> Aadd( aZipFiles, Application:cDirectory+"Source*.Xfm")
>> Aadd( aZipFiles, Application:cDirectory+"ReSource*.*")
>> Aadd( aZipFiles, Application:cDirectory+"Include*.*")
>> Aadd( aZipFiles, Application:cDirectory+"*.xpj")
>>
>> WITH OBJECT oZip := TZipFile()
>> :cFileName := cName
>> :lIncludePath := .T.
>> :aFileMask := aZipFiles
>> :nCompressionLevel:= pkBEST
>> :Run()
>> END
>>
>> Y el resultado como se ve en la imagen, es que sale todo junto.
>>
>> Gracias.
>>
>>

Buenos dí­as,
METHOD Run() CLASS XZipFile
LOCAL aFiles
LOCAL dDate
LOCAL cFile, cTime, cBuffer, cDir, cPath, cMaskPath
LOCAL nTotal, nAttr, nSize, nRead, nLen, nPos
LOCAL hZip, hFile
LOCAL lOk
::nLastError := 0
::cLastError := ""
nLen := ::nBufferSize * 1024
cDir := HB_CurDrive() + ":" + Curdir()
cBuffer := Space( nLen )
nTotal := 0
nPos := 0
lOk := .T.
aFiles := ::GetFiles()
IF Len( aFiles ) == 0
::cLastError := "Property aFiles empty"
RETURN .F.
ENDIF
IF !::lOverwrite .AND. File( ::cFileName )
hZip := HB_ZipOpen( ::cFileName, HB_ZIP_OPEN_ADDINZIP )
ELSE
hZip := HB_ZipOpen( ::cFileName, HB_ZIP_OPEN_CREATE )
ENDIF
IF Empty( hZip )
::nLastError := GetLastError()
::cLastError := "File creation error (" + ::cFileName + ")"
RETURN .F.
ENDIF
cMaskPath := ::CommonMaskPath()
nTotal := ::FilesSize()
FOR EACH cFile IN aFiles
IF !::lIncludePath
DirChange( FilePath( cFile ) )
cFile := FileFullName( cFile )
ELSE
cPath := FilePath( ::aMasks[ cFile:__enumIndex ] )
IF !Empty( cPath )
IF !::lMasksComPath
IF !::lIncludePath
DirChange( cPath )
cFile := SubStr( cFile, Len( cPath ) + 2 )
ELSE
DirChange( cMaskPath )
cFile := SubStr( cFile, Len( cMaskPath ) + 1 )
ENDIF
ELSE
IF Empty( cMaskPath ) .OR. Left( cFile, 3) != Left( cMaskPath, 3 )
cMaskPath := Left( cFile, 3 )
ENDIF
DirChange( cMaskPath )
cFile := SubStr( cFile, Len( cMaskPath ) + 1 )
ENDIF
ENDIF
ENDIF
dDate := FileDateTimeLocal( cFile )
cTime := SubStr( hb_TToC( dDate ), 12, 8 )
nSize := hb_FSize( cFile )
nAttr := GetFileAttributes( cFile )
::OnChangeFile( cFile )
IF ( hFile := FOpen( cFile, 32 ) ) <= 0
::cLastError := "File open error (" + cFile + ")"
::nLastError := GetLastError()
lOk := .F.
EXIT
ENDIF
IF Empty( ::cPassword )
HB_ZipFileCreate( hZip, cFile, dDate, cTime, 0, nAttr,, ;
::nCompressionLevel )
ELSE
HB_ZipFileCreate( hZip, cFile, dDate, cTime, 0, nAttr,, ;
::nCompressionLevel, ::cPassword, hb_ZipFileCRC32( cFile ) )
ENDIF
DO WHILE nSize > 0
nRead := FRead( hFile, @cBuffer, Min( nSize, nLen ) )
IF nRead == 0
EXIT
ENDIF
IF ( ::nLastError := GetLastError() ) != 0
::cLastError := "File reading error (" + cFile + ")"
FClose( hFile )
lOk := .F.
EXIT
ENDIF
HB_ZipFileWrite( hZip, cBuffer, nRead )
nSize -= nRead
nPos += nRead
::OnProgress( nPos, nTotal )
END DO
HB_ZipFileClose( hZip )
FClose( hFile )
IF !lOk
EXIT
ENDIF
NEXT
HB_ZipClose( hZip )
DirChange( cDir )
RETURN lOk
Si fueras tan amable de probarlo. Te quedo muy agradecido de antemano y disculpa por las molestias.
Un saludo

Perdona Ignacio tengo problemas los valores de
Ambiguous reference 'HB_ZIP_OPEN_ADDINZIP'
Ambiguous reference 'HB_ZIP_OPEN_CREATE'
He incluido
#define HB_ZIP_OPEN_CREATE 0
#define HB_ZIP_OPEN_CREATEAFTER 1
#define HB_ZIP_OPEN_ADDINZIP 2
que he sacado de los fuentes
y así­ no da error pero me genera un ZIP de 1Kb corrupto ???

Te adjunto el fichero completo. No tengo ni idea que te puede estar pasando.
Un saludo

Attached files ZipArchive.rar (3.9 KB)Â

Gracias Ignacio con este Prg funciona perfectamente, necesitas que haga
alguna prueba más para ver donde esta el problema o la diferencia entre
las versiones? o lo tienes claro.
Salu2.