Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need a program to Zip data on the fly from within VFP
Message
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00341678
Message ID:
00344406
Views:
26
>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.html

with 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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform