文件的压缩与解压缩

(1)压缩

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;

 

(2)解压缩

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

    SourceStream.ReadBuffer(Buffer^, Count);

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

    DestStream.WriteBuffer(Buffer^, Count);

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

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

    Bmp.LoadFromStream(DestStream);

  finally

    FreeMem(Buffer);

    DestStream.Free;

  end;

end;

 

 

在我的资源里面，有一个截取全屏，把图片保存到压缩文件，并可将压缩文件解压成bmp图片的源程序，欢迎下载。希望大家一起学习，共同进步。