W
wangzhibing3366
Unregistered / Unconfirmed
GUEST, unregistred user!
我要达到的目的是我在300pdi的时候图片的容量太大了我要把他变成200pdi
把图片大小搞小点
SetBmpDPI(Image.Picture.Bitmap,10);
Jpeg.Assign(Image.Picture.Bitmap);
Jpeg.CompressionQuality := 100;
Jpeg.Compress;
strfilepath := Edit1.Text +'/'+ str+ '.jpg';
try
Jpeg.SaveToFile(strfilepath);
except
errflag := false;
end;
把图片大小搞小点
SetBmpDPI(Image.Picture.Bitmap,10);
Jpeg.Assign(Image.Picture.Bitmap);
Jpeg.CompressionQuality := 100;
Jpeg.Compress;
strfilepath := Edit1.Text +'/'+ str+ '.jpg';
try
Jpeg.SaveToFile(strfilepath);
except
errflag := false;
end;
