有关数据压缩(100分)

有一个20多M的数据要在网上传输，能否先压缩后再进行传输。
是否有控件能对数据流进行压缩，且压缩后也能返回数据流

你可以用Delphi自己的ZLib.pas来处理
该单元位于DELPHI5的安装盘里，你搜索一下。

可以用Vclzip或者ziptv
www.51delphi.com上有， 先到留言区注册一个用户，再用下载区的压缩部分找
压缩代码同样可在本论坛找到

VclZip不行，它只能压缩到文件里，而不能将压缩结果直接以Stream返回

zlib就可以。网上有很多介绍它的文章（其实是一个人写的）不过我感觉它的解压算法中
似乎有一个问题：资源释放位置比较奇怪若是不注意，在改写程序的时候可能会造成内存
泄露。如果找不到那篇文章，我再贴。

Zlib的压缩率好象不大，只有3/4左右，好象比VclZip差远了
如果数据有20M用VclZip压缩后还不到1M，用ZLib则还有5M左右，传送时还是太大了
是否有类似于VclZip的控件呢？

to : whsunbin;
Zlib的压缩率好象不大?
谁说的？!!!!!!!!!!!!!!!!

to whsunbin：

ZLib里的TCompressionStream对象提供了 CompressionRate属性，
该属性用于描述对原始数据进行压缩后的压缩比率，你可以自己试试看，到底压缩率如何；
另一好处：可以将压缩之后的数据流保存为自定义格式的文件，这一点也不错。

我试试
能否介绍一下该如何使用呢？

下面是完整的对图象进行压缩、解压的例程，你看看就明白的，^_^

解决思路

首先利用屏幕拷贝捕捉到当前整个屏幕的图像，然后在内存中保存为 BMP文件格式。
压缩时，使用 TCompressionStream对象对原始图像进行压缩并且保存为自定义的文件格式；
解压缩时，使用 TDecompressionStream对象对被压缩的图像进行解压缩，
还原为 BMP格式的图像文件。

具体实现

新建一个项目文件，在主单元的接口部分引用 Zlib.pas，在主表单上放置两个按钮 Button1、 Button2，
在它们的 OnClick事件中写上相应的过程调用代码。

部分程序源代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Zlib;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{＄ R＊ .DFM}

1．捕捉全屏幕图像

procedure GetScreen(var Bmp: TBitmap);

var

Dc: HDC;

MyCanvas: TCanvas;

MyRect: TRect;

begin

Dc := GetWindowDC(0);

MyCanvas := TCanvas.Create;

try

MyCanvas.Handle := Dc;

MyRect:=Rect(0， 0,Screen.Width, Screen.Height);

//图像为 24位真彩色，也可根据实际需要调整

Bmp.PixelFormat := pf24bit;

Bmp.Width := MyRect.Right;

Bmp.Height := MyRect.Bottom;

//捕捉整个屏幕图像

Bmp.Canvas.CopyRect(MyRect, MyCanvas, MyRect);

finally

MyCanvas.Handle := 0;

MyCanvas.Free;

ReleaseDC(0, Dc);

end;

end;

2．压缩图像

procedure CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);

var

SourceStream: TCompressionStream;

DestStream: TMemoryStream;

Count: Integer;

Begin

//获得图像流的原始尺寸

Count := CompressedStream.Size;

DestStream := TMemoryStream.Create;

SourceStream:=TCompressionStream.Create

(CompressionLevel, DestStream);

Try

//SourceStream中保存着原始的图像流

CompressedStream.SaveToStream(SourceStream);

//将原始图像流进行压缩， DestStream中保存着压缩后的图像流

SourceStream.Free;

CompressedStream.Clear;

//写入原始图像的尺寸

CompressedStream.WriteBuffer(Count, SizeOf

(Count));

//写入经过压缩的图像流

CompressedStream.CopyFrom(DestStream, 0);

finally

DestStream.Free;

end;

end;

3．还原被压缩图像

procedure UnCompressBitmap(const CompressedStream: TFileStream; var Bmp: TBitmap);

var

SourceStream: TDecompressionStream;

DestStream: TMemoryStream;

Buffer: PChar;

Count: Integer;

Begin

//从被压缩的图像流中读出原始图像的尺寸

CompressedStream.ReadBuffer(Count, SizeOf(Count));

//根据图像尺寸大小为将要读入的原始图像流分配内存块

GetMem(Buffer, Count);

DestStream := TMemoryStream.Create;

SourceStream := TDecompressionStream.Create(CompressedStream);

Try

//将被压缩的图像流解压缩，然后存入 Buffer内存块中

SourceStream.ReadBuffer(Buffer^, Count);

//将原始图像流保存至 DestStream流中

DestStream.WriteBuffer(Buffer^, Count);

DestStream.Position := 0;//复位流指针

//从 DestStream流中载入原始图像流

Bmp.LoadFromStream(DestStream);

finally

FreeMem(Buffer);

DestStream.Free;

end;

end;

4．压缩按钮 OnClick事件

procedure TForm1.Button1Click(Sender: TObject);

var

Bmp: TBitmap;

CompressedStream: TMemoryStream;

begin

Bmp := TBitmap.Create;

CompressedStream := TMemoryStream.Create;

Try

//捕获当前整个屏幕 ,将图像保存至 Bmp对象中 GetScreen(Bmp);

//将 Bmp对象中的图像保存至内存流中

Bmp.SaveToStream(CompressedStream);

//按缺省的压缩比例对原始图像流进行压缩

CompressBitmap(CompressedStream, clDefault);

//将压缩之后的图像流保存为自定义格式的文件

CompressedStream.SaveToFile(‘ C:/cj.dat’ );

finally

Bmp.Free;

CompressedStream.Free;

end;

end;

5．解压缩按钮 OnClick事件

procedure TForm1.Button2Click(Sender: TObject);

var

CompressedStream: TFileStream;

Bmp: TBitmap;

begin

Bmp := TBitmap.Create;

//以文件流的只读方式打开自定义的压缩格式文件

CompressedStream := TFileStream.Create(‘ C:/cj.dat’ , fmOpenRead);

Try

//将被压缩的图像流进行解压缩

UnCompressBitmap(CompressedStream, Bmp);

//将原始图像流还原为指定的 BMP文件

Bmp.SaveToFile(‘ C:/cj.bmp’ );

finally

Bmp.Free;

CompressedStream.Free;

end;

end;

哎，不能自已找找吗？
网络时代信息看起来多，实则少，到处充满了相同的味道！

我有一个VarIant类型的数据需要进行压缩/解压缩
我不知道该如何将该数据放到Stream中压缩后如何取出变量

为什么ZLib在压缩时会出现"需要1个Dll"的错误提示

多人接受答案了。