-

vb实现压缩源码

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

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

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

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

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

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

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

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

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

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

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

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

以下是delphi/C++ Builder(VC请参考BCB)/VB示例！
对于其它语言如Foxpro,Java,C#等语言调用的方法均类似,众多的用户使用
均较为满意,因此暂不提供示例程序,请自行使用动态调用的方式进行调用.
   

***************************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;


***************************C++Builder示例****************************

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

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HINSTANCE  MyHandle;
    
    bool WINAPI (*CompressFile)();//压缩
    bool WINAPI (*ExtractFileToDir)();//解压

    try
    {
        MyHandle = LoadLibrary ("ZIP.dll");
        if (MyHandle==NULL)  return ;
        
        (FARPROC)CompressFile = GetProcAddress (MyHandle,"CompressFile");
        
        if (CompressFile()==true)
        {//成功
            Application->MessageBoxA("压缩调用成功","提示",0+64);
        }
        Else
        {//失败
            Application->MessageBoxA("压缩调用失败","提示",0+48);
        }
            MyHandle=0;
        }
    catch (Exception & E)
    {
        Application->MessageBoxA(E.Message.c_str(),"错误提示",0+64);
    }
}




******************************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