本文整理自网络，侵删。
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 2009 之 tstringbuilder 类[3]: replace
Delphi windows 编程[7] - wm_create 消息
Delphi 实现类似windows的查找功能-遍历整个硬盘目录
Delphi xe5实现android 安卓 左侧或者右侧菜单功能
更多相关阅读请进入《Delphi》频道 >>
