delphi 将image组件的图片保存为JPG格式图片方法


本文整理自网络,侵删。

 procedure SaveAsJPG ;

var

jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.

begin

jp := TJPEGImage.Create;

try

with jp do

begin

jp.CompressionQuality := 2;

jp.Compress ;

Assign(Image1.Picture.Bitmap);

SaveToFile(''''D:\zhy.jpg'''');

end;

finally

jp.Free;

end;

////---读入方法如下:

procedure OpenJPGInImage

var

jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.

begin

jp := TJPEGImage.Create;

jp.LoadFromFile(''''D:\zhy.jpg'''');

try

with jp do

begin

image1.Picture.Bitmap.Assign(jp);

end;

finally

jp.Free;

end;

end;

相关阅读 >>

Delphi 如何确定windows安装的语言

Delphi版内存共享

Delphi sysem.json 链式写法

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi中move函数的正确理解

Delphi 获取鼠标当前位置的相对坐标

Delphi ttask无法传递参数的一个解决方案

Delphi中messagebox的用法

Delphi msxml 获取 api接口

Delphi 窗体只显示控件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...