H
Hed
Unregistered / Unconfirmed
GUEST, unregistred user!
-我的论坛-
我的问题
我参与的问题
我得分的问题
我的信誉分
我的收藏夹
短信息
使用帮助
我要投诉
— 人才招聘 —
北京金山软件有限...
北京英特创软件科...
泰德时代空中美语...
美国软件公司招收...
国风因特软件（北...
北京市鑫楷慧德电...
瑞索讯杰信息技术...
北京国遥万维信息...
南京致昶网络技术...
— 热销商品 —
《软件创富》
程序员杂志2001增...
程序员大本营2001...
程序员大本营2001...
Visual Studio β...
《程序员》杂志20...
《程序员》杂志20...
— 培训信息 —
中国四达独家授权...
达洋行教育招生中...
中国国际工程和材...
中商集团经济合作...
北京康飞理想科技...
首都师大出国留学...
— 图书信息 —
软件创富
CSDN - 专家门诊 - Delphi DataBase问题
回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 保存 | 关闭窗口
主 题： SQL Server在存储jpg图像后，对图像字段进行修改就不起作用了......
作 者： darkeye ()
等 级：
信 誉 值： 100
所属论坛： Delphi DataBase
问题点数： 100
回复次数： 0
发表时间： 2003-03-10 10:59:33
代码如下:
var
msStream: TMemoryStream;
jpg: TJpegImage;
beign
if btnSave.Tag = 1 then
Table1.Append
else
Table1.Edit;
msStream := TMemoryStream.Create;
jpg := TJpegImage.Create;
try
jpg.Assign(Image1.Picture.Graphic);
Jpg.SaveToStream(msStream);
msStream.Position := 0;
(FieldByName('photo') as TBlobField).LoadFromStream(msStream);
TBlobField().LoadFromStream(msStream)
finally
jpg.Free;
msStream.Free;
end;
Table1.Post;
说明:图像是由TImage来加载的，不是DBImage
问题一： 新增记录时，插入图像没有问题，但想对同一记录换一幅图片再保存时（也就是对记录的图像进行修改），图片没有更换，不知道为什么?
问题二： 同样是修改，已经保存的图像不能被清除，清除后出现下列错误信息：
EConvertError: Cannot assign a nil to a TJPEGImage
清除图像代码： Image1.Picture.Graphic := nil