图片保存问题

Question

我保存的图片为什么会被切掉一部分。我的数据库是Access。我的代码为：
var
    MyJPEG                      :TJPEGImage;
    MS                          :TMemoryStream;
begin 
    MyJPEG := TJPEGIMage.Create;
    MS := TMemoryStream.Create;
    Image1.Picture.Graphic.SaveToStream(MS); //Image1是图片控件
    MS.SaveToFile('c:\aa.bmp');  //保存的图片可以还原
    ms.Position := 0;
    TBlobField(Graphic.DataSource.DataSet.FieldByName(Graphic.DataField)).LoadFromStream(MS);
end;

Answer 1

将你的Image1的大小调整好再存流，不然当然就会切掉了！
例如将你的Image1.strech属性设置为True，然后再执行就不会有切掉的了，但是会变形，在你的语句：（Image1.Picture.Graphic.SaveToStream(MS); //Image1是图片控件）前加入调整图形大小的代码就可以了！