Delphi 解压缩 ZipForge

ZipForge

http://www.componentace.com/zip_component_zip_delphi_zipforge.htm

downLoad

http://www.componentace.com/download/download.php?editionid=12

Example

http://www.componentace.com/zip-delphi.htm

c++builder、Delphi 压缩文件

ZipForge is a fast and powerful VCL Zip component, written in Delphi.
It lets you easily create ZIP archives, extract files from zip files to hard drive or memory, add files to a zip archive from disk or memory, replace, move and delete files in zip archives. Also it creates and reads self-extracting (SFX) zip archives, AES encrypted and multi-volume zip files.

ZipForge main features:

Opens and creates archives encrypted with strong AES encryption algorithm
Zip64 supports - lets you create ZIP files over 4 GB
Unicode file names support
Includes transaction system which allows you to rollback changes if archive update failed
Adds compressed data directly from streams and extracts archived files to streams without creating temp files
Lets you store full path with drive for each file
Allows to search for files inside archive by mask
Progress indication
Full Delphi source code is available

zf: TZipForge;
zf := TZipForge.Create(nil);
zf.OpenArchive(aInStream, False);
zf.ExtractToStream(FileName, StreamOut);

setup Path

D:\Program Files (x86)\ComponentAce\ZipForge

压缩文件

void __fastcall TForm4::Button1Click( TObject * Sender )
{TMemoryStream * ms = new TMemoryStream( );Memo1->Text="Hello Word!";Memo1->Lines->SaveToStream( ms );ZipForge1->FileName = "a.zip";//压缩包的名称ZipForge1->OpenArchive( );
   ZipForge1->AddFromStream( "a.txt", ms, true );//压缩包里的文件//ZipForge1->AddFromString("b.txt","text2",)ZipForge1->CloseArchive( );delete ms;}

解压缩

void __fastcall TForm4::Button2Click( TObject * Sender )
{TMemoryStream * ms = new TMemoryStream( );ZipForge1->FileName = "a.zip";//压缩包名称ZipForge1->OpenArchive( );ZipForge1->ExtractToStream( "a.txt", ms );//压缩包里的文件ms->Position = 0;Memo1->Lines->LoadFromStream( ms );// To String
//    String StrOut;
//    ZipForge1->ExtractToString( "a.txt", StrOut );ZipForge1->CloseArchive( );delete ms;
}

解压缩到字符串

void __fastcall TForm4::Button2Click( TObject * Sender )
{

ZipForge1->FileName = "a.zip";
   ZipForge1->OpenArchive( );
   // To String
   String StrOut;
   ZipForge1->ExtractToString( "a.txt", StrOut );
   Memo1->Text = StrOut;
   ZipForge1->CloseArchive( );
}

查找压缩包文件列表，找到文件名称，然后

ZipForge1->ExtractToStream(文件名,stream);

Use FindFirst and FindNext methods of TZipForgefor searching files within the archive file.

获得压缩包中的文件列表

    TZFArchiveItem afItem;bool aFound = ZipForge1->FindFirst( "*.*", afItem, faAnyFile, "" );while ( aFound ){this->mmoFileList->Lines->Add( afItem.FileName );aFound = ZipForge1->FindNext( afItem );}

压缩包文件详情

        this->mmoFileList->Lines->Add( afItem.FileName );this->mmoFileList->Lines->Add( ">>>>" );this->mmoFileList->Lines->Add( afItem.StoredPath );this->mmoFileList->Lines->Add( afItem.CompressedSize );//压缩后文件大小this->mmoFileList->Lines->Add( afItem.UncompressedSize );//压缩前文件大小this->mmoFileList->Lines->Add( afItem.CompressionRate );this->mmoFileList->Lines->Add((int) afItem.Encrypted );this->mmoFileList->Lines->Add( afItem.LastModFileDate );this->mmoFileList->Lines->Add( afItem.LastModFileTime );this->mmoFileList->Lines->Add( afItem.CRC );this->mmoFileList->Lines->Add( afItem.ExternalFileAttributes );this->mmoFileList->Lines->Add( afItem.Comment );

从流中解压

    TMemoryStream * ms;ms = new TMemoryStream( );ms->LoadFromFile( "a.zip" );ZipForge1->OpenArchive( ms, false );

.Net c#

ICSharpCode.SharpZipLib.dll

ZipOutputStream

http://icsharpcode.github.io/SharpZipLib/

Delphi 解压缩 ZipForge相关推荐

Delphi中的字符串压缩与解压缩
在Delphi中如果需要对字符串进行压缩与解压缩是非常简单的事,只需要uses一下zlib单元即可. ZCompressStr:压缩字符串,传人字符串,返回TBytes; ZDecompressStr ...
关于 Delphi 中流的使用(10): 压缩与解压缩进度 - 回复 ilst 的问题
为什么80%的码农都做不了架构师?>>> 问题来源: http://www.cnblogs.com/del/archive/2008/08/02/1022539.html#12 ...
自己对Delphi中使用正则表达式的研究心得
在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 在此分享一下自己的一些心得体会. 官方网站: http://www.regular-expressions.info/de ...
Delphi使用CEF4Delphi制作Chromium谷歌内核浏览器
什么是CEF4Delphi? CEF4Delphi是由Salvador Díaz Fau创建的一个开源项目,用于在基于Delphi或Lazarus/FPC的应用程序中嵌入基于谷歌内核查看更多关于内 ...
Delphi编程中流的使用
什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具.在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向. ...
结合Delphi和Python的优势：使用Delphi VCL组件快速构建超现代的Python本机Windows GUI桌面酷炫用户界面应用
Delphi开发Pyhron GUI 有时您的应用程序需要一个用户界面,但是为Python应用程序制作用户界面最好的方法是什么?输入用于Python的DelphiVCL.VCL是成熟的Windows本 ...
《Delphi传奇》网络游戏组件安装步骤：Delphi 10.3安装DelphiX
1.官网下载最新版本DelphiX游戏开发组件:http://www.micrel.cz/Dx/ 欢迎加入Delphi开发局QQ群:32422310 2.解压缩到一个文件夹中,建议不要用英文: 3.启 ...
Delphi使用SpreadSheet
https://wenku.baidu.com/view/c03a6ff50029bd64793e2c3a.html 1.开发环境以Delphi7为例,使用DevExpress套件中的Express ...
用Delphi开发视频聊天软件
一.引言我们知道视频聊天软件的关键技术在于采集视频,并实时传输给聊天软件在线的人.对于视频的采集,这里采用微软公司的关于数字视频的一个软件包VFW(Video for Windows).相信很多人对 ...

Delphi 解压缩 ZipForge

ZipForge

Delphi 解压缩 ZipForge相关推荐

最新文章

热门文章