为VisualFoxPro应用程序增加文件压缩功能

压缩文件可以被认为是打包文件的容器。通过文件压缩，可以将大量文件打包并作为一个文件处理。此外，压缩文件通常比原始文件小。例如，压缩后文本文件的平均大小是原始大小的40%。

因此，文件压缩可以大大节省存储空和网络传输之间的时间，从而使文件的携带和传输更加方便快捷。
在DOS环境下，常用的压缩程序有ARJ、RAR和PKZIP/PKUNZIP。在Windows环境下，常用的压缩软件是WinZip和CleverZip。这些软件基本都是共享软件，可以从网络上免费获得。
在数据库应用中，经常需要压缩和备份数据文件，或者从压缩文件中恢复数据文件。以Visual FoxPro为例，通常的做法是通过FoxPro语句调用压缩软件，然后在压缩软件的操作界面上压缩或还原文件。这种做法不仅在操作界面上非常不友好，而且大大削弱了应用程序的完整性。下面的FoxPro程序利用AZIP.DLL和AUNZIP.DLL两个共享的动态链接库，在Visual FoxPro中实现文件压缩和解压缩，很好地解决了这个问题。

文件压缩程序
*程序名:AZIP。PRG
*程序描述:Visual FoxPro中的文件压缩
*程序要求:AZIP32.DLL放在Windows的系统目录或当前目录中
*用法:用法:azip (linitualize，archive，sinclfiles [，zip params])
*参数描述:
-linitualize:。t .第一次使用这个程序。f .–不是第一次用这个程序
-s Archive:带扩展名的压缩文件名，如“C:\ this file . zip”
-sincl files:要压缩的文件名，不同文件名之间有空空格。

1: "d: \ custdata.dbf"
例2: "C: \ customer.dbf d: \ *。txt d: \ databases \ *。* "
-zip params:file compression参数[可选]
e(x) x = 'X '度压缩
x = '0 '无压缩
x = 'S '最小压缩

p包含目录信息
S使用密码(必须是最后一部分)
*示例语句:azip (.T，" Zipfile "，" *。dbf *。txt customer.doc")
*返回参数:压缩文件的数量，如果没有指定文件名，则返回-1
*接受参数
参数初始化、存档、sinclfiles、zip params
private params、stemp
params = parameters()

*声明要调用的DLL函数并使当前窗口获得焦点
如果params = 0或Li initialize
Private HWND
在Win32 API中声明整数GetActiveWindow
HWND = GetActiveWindow()
在AZIP32中声明addZIP _ initialize
在AZIP32中声明SHORT addZIP _ SetParentWindowHandle SHORT @ HWindow
在AZIP32 STRING @ sArchName中声明SHORT addZIP _ archive name
在AZIP32中声明SHORT addZIP _ SetCompressionLevel SHORT @ ncomprvl
在AZIP32中声明SHORT addZIP _ IncludeDirectoryEntries SHORT @ nInclDir
在AZIP32中声明SHORT addZIP _ Update
在AZIP32中声明SHORT addZIP _ Update SHORT @ nu Update
在AZIP32中声明SHORT addZIP _ Update
在AZIP32中声明SHORT addZIP

*如果你使用的是这个动态链接库的注册版本，你可以添加下面一行
Add zip _ register("注册名"，注册号)

*它的功能是在压缩文件中使用密码保护
*如果没有指定压缩文件名，它将返回0(没有压缩文件)
如果params < 2
返回0
endif
endif。

*如果没有指定压缩文件名，响铃并返回0(没有压缩文件)
如果Params < 3
？？CHR(7)
MESSAGEBOX(')缺少操作参数！' 0，azip警告！')
RETURN 0
ENDIF