delphi 添加图片到数据库 怎么做的

用blob
首先存到流中
var
imgstream: TMemoryStream;
imgstream := TMemoryStream.Create;
imgstream.LoadFromFile(imgpath);
imgstream.Position := 0;
然后存到数据库就行了
QrySave.Close;
QrySave.SQL.Clear;
QrySave.SQL.Add('insert into mmsimgstore (id, class1, class2, filename, filetype, imgsize, img)');
QrySave.SQL.Add(' values (:id, :cl1, :cl2, :filename, :filetype, :imgsize, :img)');
QrySave.Params.FindParam('id').Value := id;
QrySave.Params.FindParam('cl1').Value := cl1;
QrySave.Params.FindParam('cl2').Value := cl2;
QrySave.Params.FindParam('filename').Value := fina;
QrySave.Params.FindParam('filetype').Value := fity;
QrySave.Params.FindParam('imgsize').Value := imgsize(imgstream);
QrySave.Params.FindParam('img').LoadFromStream(imgstream, ftBlob);
QrySave.ExecSQL;

需要用到流

lovesky0414 的回答很对,但麻烦了些,其实还有更简单的办法.