真正好用的delphi gzip解压代码
来源:互联网 发布:阿弥陀佛是如来佛知乎 编辑:程序博客网 时间:2024/06/03 19:42
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);
AInStream.Position := 0;
AOutStream.Position := 0;
if (pb1 = $8B) and (pb2 = $8) then
ZDecompressStream2(AInStream, AOutStream, 47)
else
AOutStream.CopyFrom(AInStream, AInStream.Size);
end;
var
pb1, pb2: Byte;
begin
AInStream.Seek(1, 0);
AInStream.Read(pb1, 1);
AInStream.Seek(2, 0);
AInStream.Read(pb2, 1);
AInStream.Position := 0;
AOutStream.Position := 0;
if (pb1 = $8B) and (pb2 = $8) then
ZDecompressStream2(AInStream, AOutStream, 47)
else
AOutStream.CopyFrom(AInStream, AInStream.Size);
end;
0 0
- 真正好用的delphi gzip解压代码
- Delphi中获取IE网页后,对GZIP方式的网页解压(gzip,deflate)
- 解压HTTP gzip的
- 客户端的gzip解压
- GZip 压缩解压 --- Pako 的压缩解压
- OpenSolaris下的gzip解压
- iOS客户端的gzip解压
- iOS客户端的gzip解压
- 关于http的gzip解压
- gzip解压
- gzip解压
- gzip解压
- gzip解压
- 获取http的gzip内容并解压
- gzip, StringIO的压缩和解压
- 使用curl解压gzip的内容
- 解压web服务器返回的gzip数据
- Java实现Gzip的压缩和解压
- EBS log
- 【FAQ】如何重启Jenkins?(Apache)
- iOS 强引用,弱引用及strong,retain,copy,weak,assignd的关系
- HashMap,LinkedHashMap,TreeMap,HashTable的区别
- Linux下复制粘贴快捷键
- 真正好用的delphi gzip解压代码
- ubuntu14.04 上使用glfw
- CUDA系列学习(五)GPU基础算法: Reduce, Scan, Histogram
- 二维数组和指针
- CUDA(六). 从并行排序方法理解并行化思维——冒泡、归并、双调排序的GPU实现
- linux GPIO中断的使用笔记
- 一笔画问题
- CheckBox样式
- 设A和B是两个单链表,其表中元素递增有序,使用一算法将A和B归并成一个案元素递减有序的单链表C(该程序中的功能包含了上几个博客中的部分功能)