关于“数据库”中图片的问题?

wcqun 2003-08-31 10:47:31
我把一些图片存储在数据库中,现在我想有ADOQuery把一些老的图片更新为新的图片,我用下面的方法:
with ADOQ_changepic do
begin
close;
sql.Clear;
sql.Text:='insert into 照片(照片名称,编号,照片)values(:zpmc,:pybh,:zp)';
parameters.ParamByName('zpmc').Value:=ddpic_zpmc.Text;
parameters.ParamByName('pybh').Value:=frm_fyxx.chid;
parameters.ParamByName('zp').LoadFromFile(addpic_zpyj.Text,ftBlob) ;
execsql;
但我发现这样只能附加到老图片后面。我想是把老图片换成全新的图片,不知道应该如何处理?
...全文
41 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Spqk005 2003-08-31
  • 打赏
  • 举报
回复
var
Jpeg:TJPEGIMAGE;
Ms:TMemoryStream;

//示意图
if (image1.Picture.Graphic<>nil) then
begin
Jpeg:=TJpegImage.Create;
try
jpeg.Assign(image1.Picture.Graphic);
ms:=Tmemorystream.Create;
jpeg.SaveToStream(ms);
ms.Position:=0;
TBlobField(FieldbyName('F_syt')).LoadFromStream(MS)
finally
jpeg.Free;
ms.Free;
end;
huojiehai 2003-08-31
  • 打赏
  • 举报
回复
修改:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('UPDATE myimages SET pic=:pic WHERE filename=''Image1''');
Query.ParamByName('pic').LoadFromFile('D:\Hasd2.bmp',ftBlob);
Query.ExecSQL;
fhuibo 2003-08-31
  • 打赏
  • 举报
回复
保存

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧