我保存的图片为什么会被切掉一部分。我的数据库是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;
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;
解决方案 »
- C的代码转换成delphi代码
- fast report 安装怎么就这么麻烦啊?
- 如何在编辑dataset当前行的数据时,找到需要的其他行,并更改他的数据
- 如何将grid中的选中内容,拖放到程序中的一个TMemo中?
- 怎样把一个字符串转换成ACII码(函数)
- 如何将D5中的控件升级到D6中。
- 初级问题,几种字符串的区别!
- 大家说说看现在是学JAVA好,还是学C#啊?
- 关于"对象指针"。请大虾进?
- wangxd1976(西门吹雪),Kingron(WinAPI),快来帮我看看!!就“?一个table,一个datasource,一个dbgrid,一个query,利用tablename显示不同数据库的关于SQL查询的问题”那帖子
- 这个SQL语句怎么写
- 请各位大虾帮忙!下面的大概是什么意思?
例如将你的Image1.strech属性设置为True,然后再执行就不会有切掉的了,但是会变形,在你的语句:(Image1.Picture.Graphic.SaveToStream(MS); //Image1是图片控件)前加入调整图形大小的代码就可以了!