保存 :
var Ms:TmemoryStream;
begin
ms:=TmemoryStream.Create;
Jpg.Assign(Image1.Picture.Graphic);
Jpg.SaveToStream(Ms) ;
Ms.Position :=0;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
ADOquery1.Post;
Ms.Free ;
end;
//上面这种保存图片到数据库方法,如何用到下面这种查询里面去?
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('update 数据库 set 图片 = :bb where 编号=:aa');
ADOQuery2.Parameters.ParamByName('bb').Value := LoadFromStream(Ms);//这样好像不对?
ADOQuery2.Parameters.ParamByName('aa').Value := bianhao;
ADOQuery2.ExecSQL;
Ms.Free ;
ADOquery1.append;
TBlobField(ADOquery1.FieldByName('img')).LoadFromStream(Ms);
ADOquery1.Post;
这样,这个图片保存到哪个数据库哪个列的img字段?
保存到ADOQUERY所连接的数据库,
及对应表
新增记录的img字段(列)ADOQuery2.Parameters.ParamByName('bb').value
这种方式不知道怎么更新图片记录了看能不能将内存流转化为variant类型的数据块