上一页 1 2 3 下一页
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;
上一页 1 2 3 下一页 |
