Delphi数据压缩处理

2．压缩图像

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

　　　　var

　　　　　SourceStream: TCompressionStream;

　　　　　DestStream: TMemoryStream;

　　　　　Count: Integer;

　　　　Begin

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

　　　　　Count := CompressedStream.Size;

　　　　　DestStream := TMemoryStream.Create;

　　　　　SourceStream:=TCompressionStream.Create

　　　　　(CompressionLevel, DestStream);

　　　　　Try

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

　　　　　　CompressedStream.SaveToStream(SourceStream);

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

　　　　　　SourceStream.Free;

　　　　　　CompressedStream.Clear;

　　　　　　file://写入原始图像的尺寸

　　　　　　CompressedStream.WriteBuffer(Count, SizeOf

　　　　　　(Count));

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

　　　　　　CompressedStream.CopyFrom(DestStream, 0);

　　　　　　finally

　　　　　　DestStream.Free;

　　　　　end;

　　　　end;