BCB6 使用TZCompressionStream压缩
对方公司的数据是通过TCompressionStream 压缩之后,存到数据库中,采用的delphi7.起初以为直接用TCompressionStream就能搞定,实际发现BCB 没有这个东西。需要另外部署。
上网搜索之后,发现本质是一个叫zlib的库。
我用的是 1.2.3版本,下载地址 http://www.base2ti.com/?id=delphi.zlib
关于zlib的说明 http://www.zlib.net/; ,大致喵了一下 是 霍夫曼编码 啥的,后面再一点点仔细研究。
1、编译DelphiZLib.bpr
1.2.3版本解压之后得到 DelphiZLib.bpr 工程, 用BCB6编译这个工程
本质上就是编译那些*.c 文件得到 *.obj 文件 和 delphizlib.lib
2、编译ZLibEx.pas
bcb6新建一个lib 工程,将zlibEx.pas 通过project->Add 添加到工程,build即可,我边编译的时候报错了,发现是这个pas文件中
不知道为啥有 “锘縶*********************************” 这样的乱码,将乱码改成 “{******” (老实说delphi用 {表示注释 我不能理解) 即可。
得到 ZLibEx.hpp
3、编译ZLibExGZ.pas
与编译ZLibEx.pas同样的方法,得到ZLibExGZ.hpp
4、添加到运行环境
网上很多人喜欢吧 库文件一股脑的拷贝到 borland 安装目录的lib文件夹下面,这么做因为BCB工程默认会 引用 $(BCB)\include
$(BCB)\include\VCL (类似JAVA里面部署环境变量,总之就是要当前工程能够找到引用的lib obj pas cpp 这些库文件)
我是单独引用或在程序中带上三方的lib(仅仅是个人喜好,不喜欢混一块)。比如 D:\zlib 下面放了编译出来的lib obj hpp pas 这些文件 ,那么 optiontion->directores\contains
include path 和 lib path 引用D:\ZLIB
5、添加lib,obj
将d:\zilib 的 lib 和 obj 复制到到 当前工程下面, 比如 D:\project\zlib 文件夹里面
然后通过 project->add
吧lib 和 obj 都引用过去,否则报 无法引用xxxx之类的错误。
6、使用
在工程代码中
#include "ZLibEx.hpp"
即可使用
//压缩流
TZCompressionStream
//解压流
TZDecompressionStream
7、例子
这些例子是看人家delphi 自己翻译过来,又调整了下,保证能运行。前提是程序目录下有 s.bmp文件
//压缩的例子
void __fastcall TForm1::btn3Click(TObject *Sender)
{
TMemoryStream *fs = new TMemoryStream();
fs->LoadFromFile("s.bmp");
int fsize = 0;
fsize = fs->Size;
TMemoryStream *ms = new TMemoryStream();
ms->Write(&fsize,sizeof(fsize));
//构造时1参数为目标流 、2参数为压缩等级,这里选最快
//enum TZCompressionLevel { zcNone, zcFastest, zcDefault, zcMax, zcLevel1, zcLevel2, zcLevel3, zcLevel4, zcLevel5, zcLevel6, zcLevel7, zcLevel8, zcLevel9 };
TZCompressionStream *cs = new TZCompressionStream(ms,zcFastest);
//输入文件流
fs->SaveToStream(cs);
//压缩完毕保存压缩文件
ms->SaveToFile("test.crp");
delete fs;
delete cs;
delete ms;
}
//解压上面产生的 test.crp
void __fastcall TForm1::btn2Click(TObject *Sender)
{
TMemoryStream *fs = new TMemoryStream();
fs->LoadFromFile("test.crp");
fs->Position = 0;
int fsize = 0;
//此方法可以得到解压之后的大小
fs->ReadBuffer(&fsize,sizeof(fsize));
TMemoryStream* ms = new TMemoryStream();
ms->SetSize(fsize);
TZDecompressionStream* ds = new TZDecompressionStream(fs);
//解压后输入到ms流
ds->Read(ms->Memory,fsize);
ms->SaveToFile("ok.bmp");
delete ms;
delete ds;
delete fs;
}
BCB6 使用TZCompressionStream压缩的更多相关文章
- delphi 压缩ZLib
system.ZLib http://docwiki.embarcadero.com/CodeExamples/Berlin/en/ZLibCompressDecompress_(Delphi) 还不 ...
- ASP.NET Core 中间件之压缩、缓存
前言 今天给大家介绍一下在 ASP.NET Core 日常开发中用的比较多的两个中间件,它们都是出自于微软的 ASP.NET 团队,他们分别是 Microsoft.AspNetCore.Respons ...
- Golang 编写的图片压缩程序,质量、尺寸压缩,批量、单张压缩
目录: 前序 效果图 简介 全部代码 前序: 接触 golang 不久,一直是边学边做,边总结,深深感到这门语言的魅力,等下要跟大家分享是最近项目 服务端 用到的图片压缩程序,我单独分离了出来,做成了 ...
- 【开源毕设】一款精美的家校互动APP分享——爱吖校推 [你关注的,我们才推](持续开源更新3)附高效动态压缩Bitmap
一.写在前面 爱吖校推如同它的名字一样,是一款校园类信息推送交流平台,这么多的家校互动类软件,你选择了我,这是我的幸运.从第一次在博客园上写博客到现在,我一次一次地提高博文的质量和代码的可读性,都是为 ...
- linux 如何对文件解压或打包压缩
tar命令用与对文件打包压缩或解压,格式: tar [选项] [文件] 打包并压缩文件: tar -czvf 压缩包名 .tar.gz 解压并展开压缩包: tar -xzvf 压缩包名 .tar. ...
- linux压缩和解压缩命令大全
.tar 解包:tar zxvf FileName.tar 打包:tar czvf FileName.tar DirName ------------------------------------- ...
- 快速开发Grunt插件----压缩js模板
前言 Grunt是一款前端构建工具,帮助我们自动化搭建前端工程.它可以实现自动对js.css.html文件的合并.压缩等一些列操作.Grunt有很多插件,每一款插件实现某个功能,你可以通过npm命名去 ...
- H5图片压缩与上传
接到需求,问前端是否可以压缩图片?因为有的图片太大,传到服务器上再压缩太慢了.意识里没有这么玩过,早上老大丢来一个知乎链接,一看,原来前辈们已经用canvas实现了(为自己的见识羞愧3秒钟,再马上开干 ...
- 压缩javascript文件方法
写在前面的话:正式部署前端的时候,javascript文件一般需要压缩,并生成相应的sourcemap文件,对于一些小型的项目开发,这里提供一个简单的办法. ======正文开始====== 1.下载 ...
随机推荐
- Spark简介 --大数据
一.Spark是什么? 快速且通用的集群计算平台 二.Spark的特点: 快速:Spark扩充流行的Mapreduce计算模型,是基于内存的计算 通用:Spark的设计容纳了其它分布式系统拥有的功能, ...
- JavaSE基础(一)--初识Java
Java 简介 Java是由Sun Microsystems公司于1995年5月推出的Java面向对象程序设计语言和Java平台的总称.由James Gosling和同事们共同研发,并在1995年正式 ...
- CNN-1: LeNet-5 卷积神经网络模型
1.LeNet-5模型简介 LeNet-5 模型是 Yann LeCun 教授于 1998 年在论文 Gradient-based learning applied to document ...
- Python基础——matplotlib库的使用与绘图可视化
1.matplotlib库简介: Matplotlib 是一个 Python 的 2D绘图库,开发者可以便捷地生成绘图,直方图,功率谱,条形图,散点图等. 2.Matplotlib 库使用: 注:由于 ...
- python 脚本bak文件还原mssql数据库
# -*- coding=utf-8 -*- import pyodbc from datetime import datetime import pymssql import decimal cla ...
- Django之Hook函数
Django之钩子Hook方法 局部钩子: 在Fom类中定义 clean_字段名() 方法,就能够实现对特定字段进行校验.(校验函数正常必须返回当前字段值) def clean_name(self): ...
- docker&git&gitlab-安装/部署/新建
--安装gcc yum -y install gcc --安装g++ yum -y install gcc-c++ --安装编译所需的包 yum -y install curl-devel expat ...
- 【动态规划】洛谷2019 OI春令营 - 普及组 作业
[P1464 Function] [题解] 按照题目意思进行递归即可,但是过程中需要用到记忆化搜索. #include<bits/stdc++.h> using namespace std ...
- k8s系列0--Kubernetes基础知识
Kubernetes介绍 参考:Kubernetes核心组件解析 Pod是k8s的最小调度单元 每个pod有独立的IP,但是pod的IP是不可靠的,重新调度pod就会改变IP,service概念就是为 ...
- Python 的 Mixin 类(转)
转1:https://www.cnblogs.com/aademeng/articles/7262520.html 转2:https://blog.csdn.net/u010377372/articl ...