用Zlib压缩和解压数据库？(50分)

我用的是ADO＋DELPHI.
搜索了很多以前的贴子，都是抄录的对图像压缩的一个例子。
不知如何用自带的zlib对数据库进行压缩和解压缩？
最好有例子。邮箱：ttapeng@163.com

关注!!!

新建一个项目文件，在主单元的接口部分引用 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;

此外 TCompressionStream对象还提供了 CompressionRate属性，该属性用于描述对
原始数据进行压缩后的压缩比率，而 OnProgress事件在压缩与解压缩过程中都会被
触发，开发人员可以在该事件中编写用于显示进度的代码。
图片和数据库都是一样压缩

function CompressFile(const DestFile,SrcFile:String;const Level: TCompressionLevel):Boolean;
var
des:TMemoryStream;
sou:TMemoryStream;
cs: TCompressionStream;
Count: Integer;
ret:boolean;
begin
ret:=false;
des:=TMemoryStream.Create;
sou:= TMemoryStream.Create;
cs:=TCompressionStream.Create(level,des);
try
sou.LoadFromFile(SrcFile);
Count:=sou.Size;
sou.SaveToStream(cs);
cs.Free;

sou.Clear;
sou.WriteBuffer(Count, SizeOf(Count));
sou.CopyFrom(des,0);

des.Clear;

des.Seek(0,soFromBeginning);
des.CopyFrom(sou,0);
des.SaveToFile(DestFile);
ret:=true;
finally
des.Free;
sou.Free;
result:=ret;
end;
end;

function DeCompressFile(const DestFile,SrcFile:String):boolean;
var
des:TFileStream;
sou:TMemoryStream;
decs: TDeCompressionStream;
Buffer: PChar;
Count: integer;
ret:boolean;
begin
Buffer:=nil;
ret:=false;
des:=TFileStream.Create(DestFile,fmCreate);
sou:= TMemoryStream.Create;
decs:=nil;
try
sou.LoadFromFile(SrcFile);
sou.Seek(0,soFromBeginning);
sou.ReadBuffer(count,sizeof(count));
GetMem(Buffer, Count);
decs:=TDeCompressionStream.Create(sou);
decs.ReadBuffer(Buffer^, Count);
Des.WriteBuffer(Buffer^, Count);
Des.Position := 0;//复位流指针
ret:=true;
finally
FreeMem(Buffer);
decs.Free;
des.Free;
sou.Free;
result:=ret;
end;
end;

to rockjie:这个例子为什么这样多，反复贴

不知你到底想要什么，压缩数据库文件，还是压缩存往数据库的数据？

就是！不管怎么样都是压缩嘛！[]

CODEHUNTER:
感觉你的答案可以。但我不懂“Level: TCompressionLevel“的含义，麻烦你给我发一个例子
ttapeng@163.com

to gaisy:我是压缩数据库文件。

如果压缩文件的话有很多方法，VCLZip，ZIPTV，ZLIB等控件对于压缩文件都很方便的，而且
都代的有例子，一看就懂。
另外像CODEHUNTER给的例子中是Zilb压缩流的范例，十分不错，改一改可以用的很多地方。

ZLIB只是生成了压缩流，但不是压缩文件流，如果你想压缩的文件可以让别的压软件(WINZIP WINRAR)读取的话，
还需要加上文件头

用Zlib压缩文件或数据库都可以，我都试过，压缩用clMax模式对图像可以达到30%但是在解压时有个问题，就是如果不是压缩流压缩的，解压时出现out of memory，如何Check流是否被压缩？？