【图像处理高级编程】-压缩代码（包含compression库）

压缩代码（包含compression库）

提示：这里可以添加技术概要

核心源码

procedure TForm1.Button1Click(Sender: TObject);
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
ms.LoadFromFile(‘e:\1.bmp’);
CompressStream(Ms);
ms.SaveToFile(‘e:\2.wh’);
ms.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ms: Tmemorystream;
bmp: tbitmap;
begin
ms := Tmemorystream.Create;
ms.LoadFromFile(‘e:\2.wh’);
unCompressStream(Ms);
bmp := Tbitmap.create;
bmp.LoadFromStream(ms);
image1.Picture.Bitmap.Assign(bmp);
end;