Vclzip 内存文件压缩与解压缩问题！

2010-02-02 04:33:03 304 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DELPHI 文件压缩加密 1、系统功能 1）、数据压缩使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。 2）、数据加密压缩通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现方法 3）、双阅读详情

一个已经读入内存的文件，如何对它进行压缩。
压缩后如何存成一个文件。
TMemoryStream *InStream=new TMemoryStream();
TMemoryStream *OutStream=new TMemoryStream();
//将文体文件存为stream
RichEdit->SaveRVFToStream(InStream);

//压缩内存中的stream
VCLZip1->ZLibCompressStream(InStream,OutStream);

//存文件这里不成功
MidStream->SaveToFile("c:\\xcv.zip");

...全文

Delphi强力压缩控件VCLZip实战应用 VCLZip是专为Delphi平台设计的高性能第三方压缩控件库，广泛应用于Windows桌面系统的文件归档、数据打包与传输场景。其基于面向对象思想构建，深度集成于VCL框架，提供对ZIP及ARJ等主流压缩格式的完整读写支持。核心类TZipMaster负责压缩与打包操作，具备丰富的属性与事件模型；而TUnzipFile则专注于高效、低内存占用的解压任务，支持按名称或索引精准提取文件。二者协同工作，形成完整的压缩-解压闭环。阅读详情

52vc

VCL组件使用和开发 604 成员 13,456 内容

+ 关注 + 加入社区

切换为时间正序

52vc 2010-02-03

打赏
举报

可以了，原来每步都得
OutStream->Position = 0;
十分感谢各位的参与，特别是ccrun.
结贴了。

ccrun.com 2010-02-03

打赏
举报

如果还有问题，每操作一步，检查一下流的Size值。

ccrun.com 2010-02-03

打赏
举报

你这样试试，我没有安装三方组件，不能测试。

TMemoryStream *InStream = new TMemoryStream();

TMemoryStream *MidStream = new TMemoryStream();

TMemoryStream *OutStream = new TMemoryStream();

try

{

    SRichViewEdit1->RichViewEdit->SaveRVFToStream(InStream, false);

    // 压缩

    InStream->Position = 0;

    VCLZip1->ZLibCompressStream(InStream, MidStream);

    MidStream->Position = 0;

    MidStream->SaveToFile("c:\\xcv.zip");

    // 解压

    VCLZip1->ZLibDecompressStream(MidStream, OutStream);

    // 调试时发现OutStream 是NULL

    OutStream->Position = 0;

    SRichViewEdit2->LoadRVFFromStream(OutStream);

    SRichViewEdit2->Format();

    SRichViewEdit2->RichViewEdit->Format();

}

__finally

{

    delete InStream;

    delete MidStream;

    delete OutStream;

}

52vc 2010-02-03

打赏
举报

TMemoryStream *InStream=new TMemoryStream();
TMemoryStream *MidStream=new TMemoryStream();
TMemoryStream *OutStream=new TMemoryStream();
SRichViewEdit1->RichViewEdit->SaveRVFToStream(InStream,false);
//压缩
VCLZip1->ZLibCompressStream(InStream,MidStream);
MidStream->Position=0;
MidStream->SaveToFile("c:\\xcv.zip");
//解压
VCLZip1->ZLibDecompressStream(MidStream,OutStream);
//调试时发现OutStream 是NULL
OutStream->Position=0;
SRichViewEdit2->LoadRVFFromStream(OutStream);
SRichViewEdit2->Format();
SRichViewEdit2->RichViewEdit->Format();

delete InStream;
delete MidStream;
delete OutStream;

ccrun.com 2010-02-03

打赏
举报

贴完整代码。

52vc 2010-02-03

打赏
举报

OutStream->Postion=0;//加不加这句都是
OutStream->SaveToFile("c:\\xcv.zip");
文件不是压缩文件总是8字节，不知何故？

52vc 2010-02-03

打赏
举报

写错了
//存文件这里不成功
OutStream->SaveToFile("c:\\xcv.zip");

ccrun.com 2010-02-02

打赏
举报

保存以前，将MidStream的Postion置为0，如：

...

MidStream->Postion=0;

MidStream->SaveToFile("c:\\xcv.zip");

周药师 2010-02-02

打赏
举报

“MidStream”
是什么？
在上面的处理中未曾出现

Vclzip 内存文件压缩与解压缩问题！

相关推荐