Delphi中的压缩单元ZLib.pas中二个鲜为人知的二个“指针”全局函数CompressBuf()和DeCompressBuf()

最新推荐文章于 2021-09-30 11:13:13 发布
最新推荐文章于 2021-09-30 11:13:13 发布
阅读量3.8k 收藏
点赞数
分类专栏： Delphi 文章标签： delphi integer 网络
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/king_xing/article/details/2155494
版权
 相信很多人都用过ZLib.pas中加解压功能，一般都是用其中的压缩流TCompressionStream和解压流对象TDecompressionStream。但在很多应用，如网络传输中须对数据加压解压，WinSock传递的数据都是内存块指针，因此很需要一套直接基于指针的函数。这时CompressBuf()和DeCompressBuf()就派上用场了，它们的声明如下：
procedure CompressBuf(const InBuf: Pointer; InBytes: Integer;
                      out OutBuf: Pointer; out OutBytes: Integer);

procedure DecompressBuf(const InBuf: Pointer; InBytes: Integer;
 OutEstimate: Integer; out OutBuf: Pointer; out OutBytes: Integer);

king_xing
关注
专栏目录
Delphi实现Zip压缩/解压缩
06-06
使用XE4自带单元System.Zip。来压缩解压，有XE4写的Exe，XE4写的Dll可供Delphi7调用。里面都有源码。
Delphi 流数据的压缩与解压
06-05
Delphi2007 敲的。 只是对流的压缩和解压，和Winrar无任何关系。
Delphi Zlib 压缩数据流解压通用函数
唐古拉山的专栏
04-27 441
function UnZipStream(Input, Output: TStream; var Buf: PByte): Boolean; var DS: TDecompressionStream; nBufSize: Integer; begin Result := False; if Assigned(Input) and Assigned(Output) then begin Input.Position := 0; Output.Position := 0; .
Delphi 中压缩流和解压流的应用
javazhuanzai的专栏
02-01 309
====================================================== 注：本文源代码点此下载 ====================================================== 转自:http://www.delphitop.com/html/yasuo/180.html 软件开发者不免都要遇到压缩数据的问题!经常使用d
delphi Zlib 流压缩解压
l799623787的专栏
09-26 2331
http://blog.csdn.net/zhongguoren666/article/details/7077328 procedure UnCompressionStream(var ASrcStream:TMemoryStream); //解压缩 var nTmpStream:TDecompressionStream; nDestStream:TMemoryStream; nBuf
微信小程序压缩库zlib.js
07-17
总之，`zlib.js`是微信小程序开发中的一个重要工具，它使得开发者能够在小程序环境中轻松地进行数据压缩和解压缩，从而提高数据处理的效率和节省资源。通过理解和熟练使用`zlib.js`，你可以为微信小程序开发带来更优...
Delphi gzip 压缩 解压 zlib 源码（128版，123版）
03-23
`zlib.123`和`zlib.128`可能是两个不同版本的Delphi封装的zlib库，可能分别对应版本号123和128，其中123版包含了一个示例项目。 1. **`zlib.123`源码**：这个版本可能包含了一个完整的Delphi工程，用于演示如何使用...
zconf.h,zlib.h,zlib.dll,ZLib.lib
08-29
总结来说，`zlib`库提供了高效的压缩和解压缩算法，`zconf.h`和`zlib.h`是开发过程中不可或缺的头文件，它们定义了`zlib`的配置和接口。而`zlib.dll`和`ZLib.lib`则为Windows平台提供了动态和静态链接的实现方式，...
压缩解压zlib.lib(zlib1.2.5)
05-12
`zlib.lib`、`zlib.conf`和`zlib.h`是使用zlib库的关键文件，通过它们，开发者可以轻松集成压缩和解压缩功能到自己的应用程序中。无论是在老版本的开发环境中，还是现代的编译器上，zlib都能发挥其强大的功能，为...
delphi zlib 1.2.7
09-26
最新版delphi zlib 支持 delphi7 - xe2
Delphi ZLIB 使用方法 例子
09-27
zlib是提供资料压缩之用的函式库，由Jean-loup Gailly与Mark Adler所开发，初版0.9版在1995年5月1日发表。zlib使用DEFLATE算法，最初是为libpng函式库所写的，后来普遍为许多软件所使用。此函式库为自由软件，使用zlib授权。 　　zlib是用于资料压缩的函式库，由Jean-loup Gailly与Mark Adler所开发，是使用抽象化的DEFLATE压缩算法gzip文件压缩程序。初版0.9版在1995年5月1日发表，最初是为libpng函式库所写的，后来普遍为许多软件所使用。此函式库为自由软件，使用zlib授权。 　　截至2007年3月，zlib是包含在Coverity的美国国土安全部赞助者选择继续审查的开源项目。
c++中处理winzip文件的类源码
08-30
c++ winzip 类 源码 c++中处理winzip文件的类源码 c++中处理winzip文件的类源码
zlib.h+zconf.h+zlib.lib+zlib1.dll
08-29
标题中的"zlib.h+zconf.h+zlib.lib+zlib1.dll"是指在开发或使用ZLib库时所需的核心文件。ZLib是一个开源的压缩库，广泛应用于数据压缩、解压缩等场景，尤其在软件开发中，如游戏、网络通信、文件存储等领域。接下来...
zlib的使用
weixin_42734445的博客
09-30 2289
测试项目目录结构如图 其中zlib源文件放置在libz目录下。 将ZLib源文件编译成静态库 1.在libz-cmake目录下的CMakeLists.txt中编写如下命令，生成静态库。 cmake_minimum_required (VERSION 3.3) project (z) file (GLOB_RECURSE SOURCES ${CMAKE_SOURCE_DIR}/libz/*.c) file (GLOB_RECURSE HEADERS ${CMAKE_SOURCE_DIR}/libz/*.
在Delphi中使用ZLib的最新版本
Vsun Sky ── 阿永的博客
06-30 8201
 ZLib(http://www.zlib.net)是现在使用最广泛的一套开源的通用无损压缩代码集了。它是LZ77 ((Lempel-Ziv 1977)的一个变种分支。它的代码是线程安全的，数据格式可以参见RFCs(Request for Comments) 1950 到1952(http://www.ietf.org/rfc/rfc1950.txt (zlib format), rfc1951.
对Zlib单元进行再封装
weixin_30912051的博客
06-27 231
对Zlib单元进行再封装 低版本DELPHI，如D7，ZLIB.pas单元封装的很简陋，因此有必要再封装，以增加使用的便利性。 高版本DELPHI，zlib.pas本身提供的接口已经相当完善。 Zlib.pas是DELPHI自带的压缩单元，下面对对Zlib单元进行再封装，增加两个压缩函数，一个压缩流，一个压缩字符串： 分别在D7和XE10.3.1下面，测试通过。 unit Unit1...
真正好用的delphi gzip解压代码
JUST DO IT.
10-09 4513
procedure DecompressGZip(AInStream, AOutStream: TStream); var   pb1, pb2: Byte; begin   AInStream.Seek(1, 0);   AInStream.Read(pb1, 1);   AInStream.Seek(2, 0);   AInStream.Read(pb2, 1);   AInS
zlib压缩多个文件到一个压缩文件中
最新发布
07-12
要将多个文件压缩到一个压缩文件中，你可以使用 zlib 库提供的函数和结构体来实现。下面是一个示例代码，演示了如何使用 zlib 压缩多个文件到一个压缩文件中： ```c #include <stdio.h> #include <stdlib.h> #include <string.h> #include <zlib.h> #define CHUNK_SIZE 1024 int compress_file(const char* filename, gzFile file_out) { FILE* file_in = fopen(filename, "rb"); if (!file_in) { return Z_ERRNO; } unsigned char in_buffer[CHUNK_SIZE]; unsigned char out_buffer[CHUNK_SIZE]; z_stream stream; stream.zalloc = Z_NULL; stream.zfree = Z_NULL; stream.opaque = Z_NULL; stream.avail_in = 0; stream.next_in = Z_NULL; int ret = deflateInit(&stream, Z_DEFAULT_COMPRESSION); if (ret != Z_OK) { fclose(file_in); return ret; } do { stream.avail_in = fread(in_buffer, 1, CHUNK_SIZE, file_in); if (ferror(file_in)) { deflateEnd(&stream); fclose(file_in); return Z_ERRNO; } stream.next_in = in_buffer; do { stream.avail_out = CHUNK_SIZE; stream.next_out = out_buffer; ret = deflate(&stream, feof(file_in) ? Z_FINISH : Z_NO_FLUSH); if (ret == Z_STREAM_ERROR) { deflateEnd(&stream); fclose(file_in); return ret; } unsigned int have = CHUNK_SIZE - stream.avail_out; if (fwrite(out_buffer, 1, have, file_out) != have || ferror(file_out)) { deflateEnd(&stream); fclose(file_in); return Z_ERRNO; } } while (stream.avail_out == 0); } while (!feof(file_in)); deflateEnd(&stream); fclose(file_in); return Z_OK; } int main() { const char* file1 = "file1.txt"; const char* file2 = "file2.txt"; const char* compressed_file = "compressed.gz"; gzFile file_out = gzopen(compressed_file, "wb"); if (!file_out) { fprintf(stderr, "Failed to open file for writing: %s\n", compressed_file); return 1; } int ret = compress_file(file1, file_out); if (ret != Z_OK) { fprintf(stderr, "Compression failed for file: %s\n", file1); gzclose(file_out); return 1; } ret = compress_file(file2, file_out); if (ret != Z_OK) { fprintf(stderr, "Compression failed for file: %s\n", file2); gzclose(file_out); return 1; } gzclose(file_out); printf("Files compressed successfully!\n"); return 0; } ``` 在上面的示例代码中，我们定义了一个 `compress_file()` 函数，用于压缩单个文件。然后，在 `main()` 函数中，我们依次调用 `compress_file()` 函数压缩每个文件，并将压缩输出写入到一个 `.gz` 压缩文件中。 需要注意的是，以上代码只是一个简化的示例，实际使用 zlib 进行文件压缩时，你可能需要处理更多的错误检查和边界情况。你可以参考 zlib 的文档和示例代码来了解更多详细信息。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值