使用说明.txt

应用于压缩与解压缩

《解压缩动态链接库Zip.dll》使用声明
----------------------------------------------------------------

1、《解压缩动态链接库Zip.dll》具有免费版和正式版本两种，免费版本
可以无限制永久使用。

2、两种版本之间的差别：免费版有"免费版"及相关联系信息等字样。免
费版不可以隐藏进度条窗体，正式版本可自行根据需要进行选择。其它功
能均与正式版本相同。

3、正式版本的使用权仅限购买方软件中使用，购买方
信息也包含在文件中，不得将《解压缩动态链接库Zip.dll》单独进行交换、
转让和销售，一经发现，将采取技术手段封锁对该用户的后续版本的升级，
并在法律许可的最大范围追究相应的法律责任。

4、欢迎用户下载免费版进行试用，满意后再联系购买，售价仅50元人民币。
联系购买事谊请E-mail联系"[e-mail]" 。

5、在使用中出现问题欢迎联系，来信时请告知详情，谢谢。为了使用解决
您所遇到的问题，建议您采用QQ与我在线实时取得联系（QQ：9562512）。

-----------------------------------------------------------------

	ESM软件工作室
	联系人：陈广进
	E-mail：[e-mail]

*****************************************************************

《解压缩动态链接库Zip.dll》使用说明及示例

*****************************************************************

    为方便广大程序员在自己的程序中加入文件的解/压缩功能，值此元旦
之际,特别推出方便实用的解/压缩动态链接库Zip.dll V1.0.2.2版。目前
已经可以很方便的被各种流行的开发语言进行调用。本动态库可以让用户
对是否存贮目录结构、是否压缩子目录文件、是否显示解压缩进度条等进
行选择。详细使用说明参考包内说明文档,使用中有任何问题请E-mail
([e-mail])联系。

    从Zip.dll发布了V1.0.0.0版后,我收到了很大程序员朋友的来信,他们
大多数都是希望能够在其它语言中方便的调用,但由于在不同的开发工具的
类型（参数）之间存在很大的差异，因为我所使用的开发工具的原因,目前
还没有彻底找到了一种方法加以解决,因此现采用Ini文件作为中介,目前已
经可以在各种流行的语言中方便的调用。

   以下是delphi/VB示例！
   

***************************Delphi示例****************************

在调用前，先根据需压缩/解压缩的文件，以及相关参数对zip.ini文件进
行设置。完成后即可参考以下代码进行调用。

Delphi调用示例及说明（将动态库zip.dll和配置文件zip.ini放在Delphi
编译后的可执行文件同一目录，也可以在声明时写上zip.dll所在路径。
动态库zip.dll和配置文件zip.ini必须在同一目录）

procedure TForm1.Button2Click(Sender: TObject);
var
  MyHandle2: THandle;
  CompressFile: function : Boolean;
begin
  try
    MyHandle2 := LoadLibrary('zip.dll');
    if MyHandle2 < 32 then
      raise Exception.Create('动态链接库调用失败，错误代码是：' + Inttostr(Getlasterror));
  except
  end;

  if Myhandle2 = 0 then
  begin
    ShowMessage('尚未加载');
    exit;
  end;
  CompressFile := GetProcAddress(MyHandle2, 'CompressFile');
  if Assigned(CompressFile) then
  begin
    if CompressFile then
      ShowMessage('压缩成功')
    else
      ShowMessage('压缩失败');
  end;

  try
    Freelibrary(Myhandle2); // 卸载DLL
    Myhandle2 := 0;
  except
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  ExtractFileToDir:function : Boolean;
  MyHandle3: THandle;
begin
  try
    MyHandle3 := LoadLibrary('zip.dll');
    if MyHandle3 < 32 then
      raise Exception.Create('动态链接库调用失败，错误代码是：' + Inttostr(Getlasterror));
  except
  end;

  if Myhandle3 = 0 then
  begin
    ShowMessage('尚未加载');
    exit;
  end;

  ExtractFileToDir := GetProcAddress(MyHandle3, 'ExtractFileToDir');
  if Assigned(ExtractFileToDir) then
  begin
    if ExtractFileToDir then
      ShowMessage('解压成功')
    else
      ShowMessage('解压失败');
  end;

  try
    Freelibrary(Myhandle3); // 卸载DLL
    Myhandle3 := 0;
  except
  end;
end;



******************************VB示例*****************************
在调用前，先根据需压缩/解压缩的文件，以及相关参数对zip.ini文件进行
设置。完成后即可参考以下代码进行调用。

VB调用示例及说明（将动态库zip.dll和配置文件zip.ini放在VB编译后的可
执行文件同一目录，也可以在声明时写上zip.dll所在路径。动态库zip.dll
和配置文件zip.ini必须在同一目录）

Private Declare Function CompressFile Lib "zip.dll" () As Boolean
Private Declare Function ExtractFileToDir Lib "zip.dll" () As Boolean

Private Sub Command1_Click()
    If CompressFile Then
       MsgBox "OK"
    Else: MsgBox "F"
    End If
End Sub

Private Sub Command2_Click()
    If ExtractFileToDir Then
       MsgBox "OK"
    Else: MsgBox "F"
    End If
End Sub