L
lsys
Unregistered / Unconfirmed
GUEST, unregistred user!
一张800*600 的图像a.jpg,我要压缩成 80*60的b.jpg 文件
昨天 stlont 已经给我指导了，但是这种缩小的图片质量非常粗糙，
求不影响图片质量的前提下改变图像尺寸代码
来自：stlont, 时间：2005-10-13 21:46:43, ID：3237002
jpeg := Tjpegimage.Create;
image0:=Tbitmap.Create;
image1:=Tbitmap.Create;
jpeg.LoadFromFile(fn);
image0.assign(jpeg);
// image0.picture.loadfromfile(IconDir+sr.Name);
image1.Picture.Bitmap.PixelFormat:=pf24bit;
image1.Canvas.StretchDraw(rect(0,0,79,59),image0.picture.Graphic);
image1.picture.bitmap.SaveToFile(IconDir+'16/'+sr.Name);
昨天 stlont 已经给我指导了，但是这种缩小的图片质量非常粗糙，
求不影响图片质量的前提下改变图像尺寸代码
来自：stlont, 时间：2005-10-13 21:46:43, ID：3237002
jpeg := Tjpegimage.Create;
image0:=Tbitmap.Create;
image1:=Tbitmap.Create;
jpeg.LoadFromFile(fn);
image0.assign(jpeg);
// image0.picture.loadfromfile(IconDir+sr.Name);
image1.Picture.Bitmap.PixelFormat:=pf24bit;
image1.Canvas.StretchDraw(rect(0,0,79,59),image0.picture.Graphic);
image1.picture.bitmap.SaveToFile(IconDir+'16/'+sr.Name);