    Shm_zip2
(Shm-Soft,,2004)
----------------------------------------------
   Zip    API
    ZlibWapi.Dll
.....
**************************************************************************
http://www.winimage.com/zLibDll
zlib122.zip
  dll32\zlibwapi.dll :    The 32 bits DLL of ZLib 1.22
The zlib.h must be the version from zlib122.zip / zlib-1.2.2.tar.gz
Note :
  The DLL, named zlibwapi.dll, is compatible to the old zlib.dll built
  by Gilles Vollant from the zlib 1.2.x sources, and distributed at
    http://www.winimage.com/zLibDll
  It uses the WINAPI calling convention for the exported functions, and
  includes the minizip functionality. If your application needs that
  particular build of zlib.dll, you can rename zlibwapi.dll to zlib.dll.
***************************************************************************
.....

   VFP-8, ( BindEvent(...))


1. , ,  Shm_zip2
===============================================================================================
.Properties

axdir(1,1)	-    ,    .xDir()

azip(1,1)	-     ,   .Zip_List()

dir_size	-       (  ProgressBar)

input_mask	-    

input_path	-  

output_mask     -    ( ), : *.*

output_path	-  

xrescurs	-    

zipfile_name	-    .zip

zipfile_id	-   

.........................................................................

.Methods

xClose()	-    ( )

xDir()		-    

xFile_Attr	-    

xFile_DTime()	-      (-)

xFile_Info()	-      

xOpen()		-  -

xuClose()	-    ( )

xUnZip()	-  

xUnZipFile()	-   

xuOpen()	-    

xZip()		-  

Zip_List()	-    

Zip_Dir()	-  

....................................................................
...

DigitAsString()	-   -> 
Dw2Date()	-  dword -> date
Dw2Dtime()	-  dword -> DateTime
Dw2Num()	-  dword -> Numeric
Dw2Time()	-  dword -> Time
Int2Word()	-  Integer -> Word

....................................................................
Events

Init()		-    ZlibWapi.Dll  Kernel32.Dll

Destroy()	-    Init



OnFile_Unz()	- ,     
OnFile_Zip()	- ,     
(      :
1.-  , 2.-  )

    (VFP-8):

1.     :
	- Thisform.Shm_Zip21 - 
	- thisform.xProcess1 -  ProgressBar (   Shm_Zip2.VCX)

2.  .xProcess1   - ReShow()

3.  Init       .xProcess1

	=BindEvent(Thisform.Shm_Zip21,"OnFile_Zip",thisform.xProcess1,"ReShow")

4.         ( xZip())
	this.onfile_zip(xfile,xsize/this.dir_size*100)
	doevents
--------------------------------------------------------------------------------

2.  :

A:   ,  MyPath="c:\users\documents\",
   : MyMask="*.Rtf",  : MyZip="c:\FileZip.zip"

    with thisform.shm_zip21
	.zipfile=myzip
	.input_path=mypath
	.input_path=mymask
	.zipdir()
    endwith

B.   , : MyZip="c:\FileZip.zip"

    with thisform.shm_zip21
	.zipfile=myzip
	.zip_list()
    endwith
    with thisform.list1
	.columncount=6
	.columnwidths=[200,80,80,80,80,80]
	.rowsourcetype=5 && Array
	.rowsource=[thisform.shm_zip21.azip]
    endwith

C.      , : MyZip="c:\FileZip.zip",
   : MyMask="shm*.doc", : MyOut="c:\Recycler\"
    with thisform.shm_zip21
	.zipfile=myzip
	.output_path=myout
	.output_mask=mymask
	.xunzip()
    endwith


3.   .xProcess - ProgressBar  

	 .Procent -  
	    .ReShow(p1_text,p2_int)

4.    

	-       
		(   )

	-        (,),
		:   ...(  , )

	-  ,   ( )

	-      API  (   -),
	   : ZipOpenNewFileInZip...
	  :     , ...

5.     VFP-8 (SP1 id=3117)

    20.12.2004
-----------------------------------------------------------------------
	-     (  )
	-   .erase_zip = .t. (  ), 
		= .f. (default)     (   )
	-   .Safety -     (.t.-, .f.- )
	-        
	-        ( -  )
		    
	- :    ,   



==================================================================================
Shm-Soft, 02/12/2004, (shmsoft@rol.ru)



