我要做的工作是这样的,先把 Image[i].Picture.Bitmap图片的分辨率转华成10
在把Image[i].Picture.Bitmap图片转化为jpeg的格式,在保存成文件:
我象这样做怎么不行,虽然能把Image[i].Picture.Bitmap的分辨率转华成10但是
转变成jpeg后怎么还是老的分辨率,不知道应该怎么改
SetBmpDPI(Image[i].Picture.Bitmap,10); //自己写的一个过程
Jpeg.Assign(Image[i].Picture.Bitmap);
Jpeg.CompressionQuality := 100;
Jpeg.Compress;
strfilepath := Edit1.Text +'\'+ str+ '.jpg';
try
Jpeg.SaveToFile(strfilepath);
except
errflag := false;
end;
在把Image[i].Picture.Bitmap图片转化为jpeg的格式,在保存成文件:
我象这样做怎么不行,虽然能把Image[i].Picture.Bitmap的分辨率转华成10但是
转变成jpeg后怎么还是老的分辨率,不知道应该怎么改
SetBmpDPI(Image[i].Picture.Bitmap,10); //自己写的一个过程
Jpeg.Assign(Image[i].Picture.Bitmap);
Jpeg.CompressionQuality := 100;
Jpeg.Compress;
strfilepath := Edit1.Text +'\'+ str+ '.jpg';
try
Jpeg.SaveToFile(strfilepath);
except
errflag := false;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货