sql server下的图象(100分)

  • 主题发起人 主题发起人 czq8
  • 开始时间 开始时间
C

czq8

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在delphi下编程,把图象存入sql server 数据库image下image表的image 字段。
字段类型为image
 
图象字段不是这个吧?
自己去找找,又好处的!
 
图象字段定义为binary,又如何存入
 
TBlobField.SaveToStream
TBlobField.LoadFromStream


 
var
aa:TStream;
begin
aa:=Query1.CreateBlobStream(query1.FieldByName('Remarks'),bmReadWrite);
Query1.ParamByName('').LoadFromStream(aa,ftBlob);


end;
 
rEMARKS是什么
 
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) values(:htbh,:img)');
query.ParamByName('htbh').asstring:=mhtbh;
query.ParamByName('img').asblob:=m.DataString;
query.ExecSQL;
query.close;
m.Free;
end;
这是我做的一个基于SQL SERVER 7的MIS中的一段代码,该系统运行正常。
 
我用image字段类型也很好的。没出什么问题
 
多人接受答案了。
 
后退
顶部