Alaska Software Inc. - XbZLib - which way to update?
Username: Password:
AuthorTopic: XbZLib - which way to update?
Roland GentnerXbZLib - which way to update?
on Wed, 20 Apr 2011 19:58:51 +0200
Hello

I use XbZLib from Phil Ide.
The files are from 2005/2009.
Isn't Phil continuing his work with ZIP for Xbase++?
Which way to go to get updates?

I have a litle problem.
When i zip files in a directory and use the option to zip all subdirs the 
zip was created completely.
But when i unzip the extraction fails if i havent created some subdirs 
bevore.
Example:
path to zip:  c:\data\2011\   (and some subdirs to zip)
path to unzip: x:\archiv\
existing path: x:\archiv\
Now i must create the path x:\archiv\data\2011\ bevore unzip works.
But unzip should create the path ...\data\2011\ by himself.

Did someone know this problem and has a solution?

Regards
Roland
Martin AltmannRe: XbZLib - which way to update?
on Wed, 20 Apr 2011 20:29:44 +0200
Roland,
you need to include the directory entry itself into the zip when creating 
the zip!
Have a look at the docs (AddFile)

  cPath     := upper( CurDrive() ) + ':' + left( datenpfad, len( 
datenpfad ) - 1 )
  cZipFile  := upper( CurDrive() ) + ':' + archiv + "\" + katalog + ".zip"
  if file( cZipFile )
   delete file ( cZipFile )
  endif
  oZip := XbZLibZip():New()
  oZip:SetDisplayObject( ::Static1 )
  oZip:Open( cZipFile, XBZ_OPEN_CREATE, XBZ_BEST_COMPRESSION )
  oZip:AddFile( cPath )
  oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katalog )
  if File( cPath + "\TAG2", "D" )
   oZip:AddFile( cPath + "\TAG2" )
  endif
  if File( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + "\TAG2", 
"D" )
   oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + 
"\TAG2" )
  endif
  oZip:AddDir( "*.dbf", cPath, , .f., .t., .f. )
  if File( cPath + "\TAG2", "D" )
   oZip:AddDir( "*.dbf", cPath + "\TAG2", , .f., .t., .f. )
  endif
  oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog, , .f., .t., .f. )
  oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog, , .f., .t., .f. )
  oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog, , .f., .t., .f. )
  if File( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + "\TAG2", 
"D" )
   oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog + "\TAG2", , .f., .t., .f. )
   oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog + "\TAG2", , .f., .t., .f. )
   oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + 
katalog + "\TAG2", , .f., .t., .f. )
  endif
  oZip:Close()

Regards,
Martin



______________________________

Deutschsprachiges Xbase-Forum:
http://www.xbaseforum.de/
Deutschsprachige Xbase-Entwickler e. V.:
http://www.xbaseentwickler.de/
______________________________
"Roland Gentner"  schrieb im Newsbeitrag 
news:2d0bb6b6$50304a89$32d4b@news.alaska-software.com...

Hello

I use XbZLib from Phil Ide.
The files are from 2005/2009.
Isn't Phil continuing his work with ZIP for Xbase++?
Which way to go to get updates?

I have a litle problem.
When i zip files in a directory and use the option to zip all subdirs the
zip was created completely.
But when i unzip the extraction fails if i havent created some subdirs
bevore.
Example:
path to zip:  c:\data\2011\   (and some subdirs to zip)
path to unzip: x:\archiv\
existing path: x:\archiv\
Now i must create the path x:\archiv\data\2011\ bevore unzip works.
But unzip should create the path ...\data\2011\ by himself.

Did someone know this problem and has a solution?

Regards
Roland
Roland GentnerRe: XbZLib - which way to update?
on Fri, 22 Apr 2011 13:08:58 +0200
Hello Martin,
i think i understand what you mean - i check it out.
Thanks!
Roland

<Martin Altmann> schrieb im Newsbeitrag 
news:3f2e7002$35d8c350$33959@news.alaska-software.com...
> Roland,
> you need to include the directory entry itself into the zip when creating 
> the zip!
> Have a look at the docs (AddFile)
>
>  cPath     := upper( CurDrive() ) + ':' + left( datenpfad, len( 
> datenpfad ) - 1 )
>  cZipFile  := upper( CurDrive() ) + ':' + archiv + "\" + katalog + ".zip"
>  if file( cZipFile )
>   delete file ( cZipFile )
>  endif
>  oZip := XbZLibZip():New()
>  oZip:SetDisplayObject( ::Static1 )
>  oZip:Open( cZipFile, XBZ_OPEN_CREATE, XBZ_BEST_COMPRESSION )
>  oZip:AddFile( cPath )
>  oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katalog )
>  if File( cPath + "\TAG2", "D" )
>   oZip:AddFile( cPath + "\TAG2" )
>  endif
>  if File( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + "\TAG2", 
> "D" )
>   oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + 
> "\TAG2" )
>  endif
>  oZip:AddDir( "*.dbf", cPath, , .f., .t., .f. )
>  if File( cPath + "\TAG2", "D" )
>   oZip:AddDir( "*.dbf", cPath + "\TAG2", , .f., .t., .f. )
>  endif
>  oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog, , .f., .t., .f. )
>  oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog, , .f., .t., .f. )
>  oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog, , .f., .t., .f. )
>  if File( upper( CurDrive() ) + ':' + textpfad + "\" + katalog + "\TAG2", 
> "D" )
>   oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog + "\TAG2", , .f., .t., .f. )
>   oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog + "\TAG2", , .f., .t., .f. )
>   oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + 
> katalog + "\TAG2", , .f., .t., .f. )
>  endif
>  oZip:Close()
>
> Regards,
> Martin
>
>
>
> ______________________________
>
> Deutschsprachiges Xbase-Forum:
> http://www.xbaseforum.de/
> Deutschsprachige Xbase-Entwickler e. V.:
> http://www.xbaseentwickler.de/
> ______________________________
> "Roland Gentner"  schrieb im Newsbeitrag 
> news:2d0bb6b6$50304a89$32d4b@news.alaska-software.com...
>
> Hello
>
> I use XbZLib from Phil Ide.
> The files are from 2005/2009.
> Isn't Phil continuing his work with ZIP for Xbase++?
> Which way to go to get updates?
>
> I have a litle problem.
> When i zip files in a directory and use the option to zip all subdirs the
> zip was created completely.
> But when i unzip the extraction fails if i havent created some subdirs
> bevore.
> Example:
> path to zip:  c:\data\2011\   (and some subdirs to zip)
> path to unzip: x:\archiv\
> existing path: x:\archiv\
> Now i must create the path x:\archiv\data\2011\ bevore unzip works.
> But unzip should create the path ...\data\2011\ by himself.
>
> Did someone know this problem and has a solution?
>
> Regards
> Roland
>
Pablo BotellaRe: XbZLib - which way to update?
on Wed, 20 Apr 2011 21:40:31 +0200
Hi,

I think 2.01.151 is the latest version published by Andreas

>You can download the latest version of XbZLib (2.01.151) from here:
> http://www.EJusticeSolutions.com/EJS_OnSite/XbZLib21.zip

Regards,
Pablo Botella
Roland GentnerRe: XbZLib - which way to update?
on Fri, 22 Apr 2011 12:53:51 +0200
Thank you Pablo,
i will download and test it!

Regards
Roland

"Pablo Botella" <pb_no_spam_@_remove_all_betwen_underscores_xbwin.com> 
schrieb im Newsbeitrag 
news:7efe306e$78307915$34bd6@news.alaska-software.com...
> Hi,
>
> I think 2.01.151 is the latest version published by Andreas
>
>>You can download the latest version of XbZLib (2.01.151) from here:
>> http://www.EJusticeSolutions.com/EJS_OnSite/XbZLib21.zip
>
> Regards,
> Pablo Botella
Klaus OverhageRe: XbZLib - which way to update?
on Thu, 21 Apr 2011 07:22:46 +0200
or look here under XbZLib Version 2.0, Hubert Brandel uploaded a
newer version.

Am 20.04.2011 19:58, schrieb Roland Gentner:
> Hello
>
> I use XbZLib from Phil Ide.
> The files are from 2005/2009.
> Isn't Phil continuing his work with ZIP for Xbase++?
> Which way to go to get updates?
>
> I have a litle problem.
> When i zip files in a directory and use the option to zip all subdirs the
> zip was created completely.
> But when i unzip the extraction fails if i havent created some subdirs
> bevore.
> Example:
> path to zip:  c:\data\2011\   (and some subdirs to zip)
> path to unzip: x:\archiv\
> existing path: x:\archiv\
> Now i must create the path x:\archiv\data\2011\ bevore unzip works.
> But unzip should create the path ...\data\2011\ by himself.
>
> Did someone know this problem and has a solution?
>
> Regards
> Roland
>
>