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解决dll注入桌面卡的问题

Delphi取得文件图标并在tlistview中显示

Delphi 2009 之 tstringbuilder 类[3]: replace

Delphi 递归获取文件夹大小

Delphi windows 编程[7] - wm_create 消息

如何减小Delphi应用程序(exe)的大小

Delphi 实现类似windows的查找功能-遍历整个硬盘目录

Delphi 很方便调用的log日志方法

Delphi 苹果系统弹出链接

Delphi xe5实现android 安卓 左侧或者右侧菜单功能

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



打赏

取消

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

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

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

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

评论

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