>Man, try to find Zip in any search anywhere and you get every file there is because their all zipped.
>
>Anyway, I'm looking for a product that I can use to zip data into and out of memo fields both for space savings and for the checksum error checking. I also need it to do the same with seperate data files that I can read and write as needed. I need to do this on the fly from within VFP and without the user even knowing it's happening. I know it's out there.
You can use free info zip based dlls at
http://www.modemss.brisnet.org.au/~mlevoi/dos.htmlwith Christof Lange struct class from UT Files library
Here is sample code:
set classlib to struct
declare long ZpArchive in zip32.dll ;
long argc, string funame , string Zipnames
oFiles = CREATEOBJECT("FilesArray")
Dimension oFiles.aFiles[2]
oFiles.Requery()
oFiles.aFiles[1] = "c:\autoexec.bat"
oFiles.aFiles[2] = "c:\autoexec.bat"
? ZpArchive( 2, 'test.zip', oFiles.GetString() )
return
DEFINE CLASS FilesArray AS STRUCT
DIMENSION aFiles[1]
cMembers = "pz:aFiles"
ENDDEFINE
Andrus