怎么样在sqlerver中update一个图片字段，对应的delphi的代码怎么写 ？

Question

表的name：zwb
字段：zwid,zwpic(存图片的字段）
怎么样update一个图片字段，delphi的代码怎么写　？

Answer 1

var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('F:\JPG.jpg');
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('zwpic')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;

Answer 2

var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('F:\JPG.jpg');
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('zwpic')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;

Answer 3

方法1。添加
  with DBImage1.DataSource.DataSet do
      begin
        edit;
        ADOQueryfieldimag.LoadFromFile(FileName);
      end;
方法2.
var
　MS: TMemoryStream;
begin
　MS:=TMemoryStream.create;
　Image1.Picture.Bitmap.SaveToStream(MS);
　MS.Position:=0;
　Table1.Append; 
　//在数据库中添加一条记录
　TBlobField(Table1.FieldbyName(’image’)).LoadFromStream(MS);
　Table1.Post; 
　//将所作的更新写入数据库
end;