图片转换问题--请高手帮忙解决(50分)

W

wangzhibing3366

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-16

• #1

我要做的工作是这样的,先把 Image.Picture.Bitmap图片的分辨率转华成10
在把Image.Picture.Bitmap图片转化为jpeg的格式,在保存成文件:
我象这样做怎么不行,虽然能把Image.Picture.Bitmap的分辨率转华成10但是
转变成jpeg后怎么还是老的分辨率,不知道应该怎么改
-------我要达到的目的是我在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;

 

W

wangzhibing3366

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-16

• #2

ding

 

C

chaofan201

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-16

• #3

SetBmpDPI(Image.Picture.Bitmap,10);

Image.Picture.Bitmap.canvas.StretchDraw(Image.Picture.Bitmap.canvas.Cliprect, Image.Picture.Bitmap); //缩放适应

Jpeg.Assign(Image.Picture.Bitmap);
Jpeg.CompressionQuality := 100;
Jpeg.Compress;
strfilepath := Edit1.Text +'/'+ str+ '.jpg';
try
Jpeg.SaveToFile(strfilepath);
except
errflag := false;
end;

 

W

wangzhibing3366

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-17

• #4

接受答案了.