改变图象大小问题

[rcaicc]

我想把用户打开的图片改变成640*480。不知道有什么办法？

[zzlingaaa]

var
BMP: TBitmap;
PIC: TPicture;
begin
BMP := TBitmap.Create;
PIC := TPicture.Create;
PIC.LoadFromFile('用户文件');
BMP.Width := 640;
BMP.Height := 480;
BMP.Canvas.StretchDraw(BMP.Canvas.ClipRect, PIC.Graphic);
BMP.SaveToFile('你想要的文件');
BMP.Free;
PIC.Free;
end;

[aiirii]

不大清楚你要实现什么，用个image, 设置成你要的大小，然后，
设置 Stretch := true;

[rcaicc]

哦，是这样的。我需要把图片存到数据库中，但用户打开的图片太大很影响速度，所以我想在程序中改变图片的大小，然后存入数据库中。不知道修改分辨率的办法行不行