C czq8 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-22 #1 如何在delphi下编程,把图象存入sql server 数据库image下image表的image 字段。 字段类型为image
Z zhoujg Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-22 #4 TBlobField.SaveToStream TBlobField.LoadFromStream
风 风中流云 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-22 #5 var aa:TStream; begin aa:=Query1.CreateBlobStream(query1.FieldByName('Remarks'),bmReadWrite); Query1.ParamByName('').LoadFromStream(aa,ftBlob); end;
var aa:TStream; begin aa:=Query1.CreateBlobStream(query1.FieldByName('Remarks'),bmReadWrite); Query1.ParamByName('').LoadFromStream(aa,ftBlob); end;
S SoftBoy Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-22 #7 var m:tstringstream; begin m:=tstringstream.Create(''); Image1.Picture.Graphic.savetostream(m); //image1控件中为要入库的图片 query.Close; query.sql.clear; query.sql.add('insert into img_table(htbh,img) valueshtbh,:img)'); query.ParamByName('htbh').asstring:=mhtbh; query.ParamByName('img').asblob:=m.DataString; query.ExecSQL; query.close; m.Free; end; 这是我做的一个基于SQL SERVER 7的MIS中的一段代码,该系统运行正常。
var m:tstringstream; begin m:=tstringstream.Create(''); Image1.Picture.Graphic.savetostream(m); //image1控件中为要入库的图片 query.Close; query.sql.clear; query.sql.add('insert into img_table(htbh,img) valueshtbh,:img)'); query.ParamByName('htbh').asstring:=mhtbh; query.ParamByName('img').asblob:=m.DataString; query.ExecSQL; query.close; m.Free; end; 这是我做的一个基于SQL SERVER 7的MIS中的一段代码,该系统运行正常。