Question

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

Answer 1

用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;

追问

我用DBImage1，OpenPictureDialog1这两个控件。
if OpenP.Execute then
DBImage1.Picture.LoadFromFile(OpenP.FileName);这样我获得了图片的路径。
比如说获得图片路径为：d:\My Documents\My Pictures\001.ipg
我应该怎样做才能把图片的名字(001.ipg)保存到数据库表里。

追答

dbimage只支持bmp格式的图片
设置上 datasource和field就可以

Answer 2

需要用到流

Answer 3

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