压缩图像文件并转换成BMP格式
2004-01-25 21:18
169 查看
function GraphicToBmp(P: TPicture; Quality: Integer = 80): TBitmap;
var
Jpg: TJpegImage;
begin
Result := TBitmap.Create;
with Result do
begin
Width := P.Width;
Height := P.Height;
Canvas.Draw(0, 0, P.Graphic);
end;
if Assigned(Result) then
begin
Jpg := TJpegImage.Create;
Jpg.Assign(Result);
Jpg.CompressionQuality := Quality;
Jpg.JPEGNeeded;
Jpg.Compress;
if Assigned(Jpg) then
begin
Jpg.DIBNeeded;
Result.Assign(Jpg);
end;
end;
end;
var
Jpg: TJpegImage;
begin
Result := TBitmap.Create;
with Result do
begin
Width := P.Width;
Height := P.Height;
Canvas.Draw(0, 0, P.Graphic);
end;
if Assigned(Result) then
begin
Jpg := TJpegImage.Create;
Jpg.Assign(Result);
Jpg.CompressionQuality := Quality;
Jpg.JPEGNeeded;
Jpg.Compress;
if Assigned(Jpg) then
begin
Jpg.DIBNeeded;
Result.Assign(Jpg);
end;
end;
end;
相关文章推荐
- 数据压缩原理与应用 图像文件的读写和转换(BMP2YUV)实验报告
- 数据压缩原理 实验二 图像文件的读写和转换
- 数据压缩实验二 图像文件的读写和转换(bmp转yuv)
- Image2DataURI——将图像文件转换为网页可用的Base64编码
- 图像数据转换成db(leveldb/lmdb)文件
- C#将图像文件压缩为AVI文件播放
- 图像转换为二进制文件存入DSP6748
- FRG图像文件格式的压缩质量
- Caffe学习系列(11):图像数据转换成db(leveldb/lmdb)文件
- android开发游记:图像文件压缩方法总结(将图像压缩到指定大小)
- shell 1-9 转换01到09 批量压缩文件
- 将摄像头输出的原始数据文件转换成bmp图像
- 全球最优秀的免费软件下载-压缩工具-文件转换工具-下载工具-杀毒工具-图片编辑器-网络管理工具
- C#将图像文件压缩为AVI文件播放
- Marvel – 将图像和源文件转换成互动,共享的原型
- Caffe学习系列(11):图像数据转换成db(leveldb/lmdb)文件
- 深度学习文章3:将自己的图像数据转换成caffe需要的db(leveldb/lmdb)文件
- C#将图像文件压缩为AVI文件播放
- 从视频文件中读入数据-->将数据转换为灰度图-->对图像做canny边缘检测-->将这三个结构显示在一个图像中
- <p><span style="font-size:14px">近期须要批量将PNM格式的文件转换成GIF文件。我尝试了例如以下的图像转换工具:</span></p>