在vcl.vclxx.org里有许多相关控件可以使用:数据压缩类
BCBZIP.ZIP 
提供 PKZIP 2.04g 版相容之 .ZIP 文件压缩、解压缩构件 ( 1.52h 版,附源码 C++Builder 1.0/3.0 适用,构件使到用的 DLL DZDLLSRC.ZIP 亦附源码 ),作者: Eric Engler。 BTOOLS.ZIP 备份工具构件套件能够帮助您制作能够包装、加密、压缩多个文件的程序 ( 1.3 版,附源码 ),作者 : Morgan Martinet。 BZIP2.ZIP 提供数据压缩类及函式的单元 ( 1.01 版,附源码 ),作者 : Edison Mera Men dez。 CABCMP.ZIP 封装 Micorsoft CabInet SDK FCI 及 FDI 介面而成的数据压缩构件 ( 1.1 beta 版,附源码),作者 : Alexander Staubo。 CHIEFLZ2.ZIP LZSS ( LZ77 ) 压缩算法单元,包含 DOS、 DOS DPMI、 Win16、Win32 等各版本 ( 2.0 版,附源码 ),作者 : Dr. Abimbola Adeleke Olowofoyeku。 CHIEFZIP.ZIP 利用 Info-Zip 的 UNZIP DLL 制作的解 .ZIP 压缩档的构件 ( 2.01 版,附源码 ) ,作者 : Dr. Abimbola Adeleke Olowofoyeku 。 DIFFM134.ZIP 针对大型文件优化的数据压缩/解压缩单元,另外也提供以 CRC32 算法快速核验数据正确的单元 ( 1.34 版,附源码 ),作者: S.Kurinny &S.Kostinsky。 DZBCB.ZIP 提供 PKZIP 2.04g 版相容之 .ZIP 文件压缩、解压缩构件 ( 1.52k 版,附源码 C++Builder 适用,构件使到用的 DLL DZDLLSRC.ZIP 亦附源码 ),作者 : Eric Engler。 DZDEL.ZIP 提供 PKZIP 2.04g 版相容之 .ZIP 文件压缩、解压缩构件 ( 1.52k 版,附源码,构件使到用的 DLL DZDLLSRC.ZIP 亦附源码 ),作者 : Eric Engler。 GWDC0061.ZIP 简单快速的 LZW 算法数据压缩构件 ( 1.00 版,附源码 ),作者 : Glen Why。 HKSTRM.ZIP THKStreams 是改良版的 TStream 类,能够将其内容以 LHA 算法压缩数据,亦可以利用 Blowfish 算法加密 ( 1.6 版,附源码 ),作者 : Harry Kakoulidis。 HTMLCOMP.ZIP 能够清除 HTML 文件中与显示无关之非必要内容,以缩减 HTML 文件文档大小的非可视构件 ( 1.2 版,附源码 ),作者 : Aleksey Kuznetsov。 HUF10-32.ZIP THuffman 构件是利用 Huffman 编码方式制作的压缩、解压缩构件 (无源码, Delphi 2.0 适用,源码可向作者免费索取),作者 : Keith Yoder 。 LZHCOMP.EXE 利用 LZH 算法压缩及解压缩构件 ( 1.4 版,无源码 Delphi 1.0/2.0 适用 ),作者 : Douglas P. Webb。 MISTY.ZIP 与 Misty1 加密算法 binary 相容的非可视构件 ( 1 版,附源码,可免费用於非商业用途 ),作者 : David Barton。 NIKKELEN.ZIP TGzip 是不需借助额外的 .DLL 实作 Gzip 及 Gunzip 压缩及解压缩的非可视构件 ( 0.2.2 版,附源码 ),作者 : Vincent Nikkelen。 PASSWORD.ZIP TPassWord 是利用 MISTY.ZIP 构件制作的密码输入构件,能够储存密码於 Registry 以备核验的构件  ( 0.5 Beta 版,附源码 ),作者 : Johannes Berg。 PASZLIB.ZIP PasZLIB 是移植 Jean-Loup Gailly 及 Mark Adler 以 C 程序语言撰写的  zlib 1.1.2 版数据压缩函式库成 Pascal 语言版本,提供 DOS DPMI 及 Delphi 3.02 使用 ( 1.1 版,附源码 ),作者 : Jacques Nomssi Nzali。 RARARC11.ZIP UNRAR.DLL 是提供 RAR 解压缩的动态链接库,TRAR 构件将 UNRAR.DLL 的解压缩功能封装成构件 ( 1.1 版,附源码 ),作者 : Ales Berka。 POWERARC.ZIP 高效率的数据压缩函式库,支持 Rank、ZIP、BZIP 与 PPM 等多种压缩算法,所有函式皆内建数据一致性检查并都为 thread-safe ,压缩率可超过 ZIP 或 RAR 1.5 倍以上 ( 1.3 版,附源码 ),作者 : SoftLab MIL-TEC Ltd。 RS25BSRC.ZIP 专门压缩、打包文件的单元,依循 CACM 1987 Arithmetic encoder 算法,实作 Block Sorting 而成的数据压缩构件,较 LZ77 (ZIP) 压缩效率佳,而压缩速度与 LZ77 相近,并提供 CRC32 核对功能 ( 2.50 Beta 版,附源码 ),作者 : Victor Kasenda。 RTDUNACE.ZIP 运用 UnAce.Dll 进行解压缩的非可视构件 ( 0.1 版,附源码 ),作者 : Rogier Timmermans。 RTDUNRAR.ZIP UNRAR.DLL 是提供 RAR 解压缩的动态链接库,TdRar 构件将 UNRAR.DLL 的解压缩功能封装成构件 ( 0.1c 版,附源码 ),作者 : Rogier Timmermans。 TLZRW1.ZIP 提供 LZRW1/KH 或 LZH 算法数据压缩解压缩的构件 ( 2.01.00 版,附源码 ),作者 : Danny Heijl。 TZIP.ZIP TZipFile 构件能够读取 ZIP 压缩档内的一些信息 ( 1.2 版,附源码 ),作者 :Pier Carlo Chiodi。 TZLIB.ZIP TZlib 类提供 C++Builder 压缩及解压缩 .ZIP 格式的文件,并可以搭配  TFileStream 或 TBlobStream 使用 ( beta 版,附源码 C++Builder 适用),作者 : Richard W. Frost。 UCCOMP.ZIP 针对文件进行压缩及解压缩的非可视构件 ( 0.1 版,附源码 ),作者 : Luis Rodrigues。 UNACE.ZIP TKTOP 是封装 unace.dll 来解 ACE 压缩格式的构件 ( 1.0 版,附源码 ),作者 : Skatan。 UNRAR.ZIP UNRAR.DLL 是提供 RAR 解压缩的动态链接库,TUnRar 构件将 UNRAR.DLL 的解压缩功能封装成构件 ( 1.2 版,附源码 C++Builder 1.0/3.0 适用 ),作者 : Eugene Roshal。 UNZDL206.ZIP 16 位及 32 位版本之 .ZIP 文件压缩、解压缩 DLL ( 2.06版,附源码 ),作者 : Sam Smith。 ZCOMP.ZIP TZCompress 是封装 PASZLIB.ZIP 数据压函式库的构件 ( 1.0 版,附源码 ),作者 : Matthew Meadows。 ZIPSFX_S.ZIP 能够压缩、解压缩 ZIP 档的单元 ( 附源码 ),作者 : Carl Bunton。 ZIPTV092.ZIP TZipTV 构件能够获知 ZIP、 ARC、 LZH、 LHA、 HA、 RAR、 PAK、 ARJ、 ZOO 等压缩档的内容,而 TUnZIP 构件则能够对 ZIP 档解压缩 ( 0.92 版,无原始式码 Delphi 2.0 适用 ),作者 : Carl Bunton。 ZLBAR.ZIP ZLBArchive Control 是利用 Delphi CD 中所附的 ZLIB 数据压缩函式库制作的构件 ( 1.52 版,附源码 ),作者 : Ryan J. Mills。 ZUNZ.ZIP 提供 Info-Zip 的 Zip32.dll ( 2.2 版 ) 及 UnZip32.dll ( 5.4 版 ) 之 Object Pascal 宣告档,让您轻松以 Delphi 开发压缩及解压缩 .ZIP 格式文件 ( 0.02 版,附源码 ),作者 : Theodoros Bebekis。

解决方案 »

  1.   

    呵呵,如果安装了winzip这个软件,可以用它的dll来实现:
    wz32.dllDragAppendFile
    DragCreateFiles
    WZ56
    uncompress
    uncompress_init
    unzip
    unzip_init
    zip
    zip_init
    ziplabelDiskette
    zipmemcompress
    zipsplit
    zipwipeDiskette
    wzcab.dllGetDllVersion
    FCICreate
    FCIAddFile
    FCIFlushFolder
    FCIFlushCabinet
    FCIDestroy
    FDICreate
    FDIIsCabinet
    FDICopy
    FDIDestroy
    wzcab3.dllCAB_MakeHFDI
    FDICopy
    FDICreate
    FDIDestroy
    FDIIsCabinet
    FreeFDI
    LoadFDI
    QuickIsCAB
    SetCallBackProcs
    SetFDIFName
    SetFDIOffset
    SetVerboseMsgs
    isCabinet
    isCabinet2
    isFDILoaded
    isInstallExeWzzpmail.dllZAMEntryPoint1呵呵,这个由kingron提供的。
      

  2.   

    我有一些控件,需要的话可以发邮件给我。可别忘记了给分哟。
    [email protected]
      

  3.   

    to sundayboys(sunboy):
      怎么实现,给段例程!
    to ljhsoft(刘建华):
      谢谢,快给我发过来吧,我的信箱[email protected]
      

  4.   

    to sundayboys(sunboy):
      我对你的建议很敢兴趣,可否给我一段你写的源程序,只需要解压的。
      

  5.   

    to sundayboys(sunboy):
      我需要你的帮助,快与我联系!
      我的oicq:7760126