请问各位大大,怎么向SQL数据库中添加图片?

Question

希望各位说的详细些,我以前没接触过``谢谢各位了!!

Answer 1

procedure TMain_frm.BtnsaveClick(Sender: TObject);
var
  testStream:TMemoryStream;
begin
testStream:=TMemoryStream.Create;        //创建内存流
    Image1.Picture.Graphic.SaveToStream(testStream);   //将图片存入内存流
    dm.Qryaaa.Close;
    DM.Qryaaa.SQL.Clear;
    DM.Qryaaa.SQL.Text:='insert into friend(name,call,address,photo,memo) ' +
      'VALUES(:name,:call,:address,:photo,:memo)';
    DM.Qryaaa.ParamByName('name').Value:=edit1.Text;
    DM.Qryaaa.ParamByName('call').Value:=edit2.Text;
    DM.Qryaaa.ParamByName('address').Value:=edit3.Text;
    DM.Qryaaa.ParamByName('photo').LoadFromStream(testStream,ftBlob);
    DM.Qryaaa.ParamByName('memo').Value:=memo1.Text;
    DM.Qryaaa.ExecSQL;
    ShowMessage('保存成功！！！');
end;绝对可以！拷过去试试！

Answer 2

procedure TForm1.bbtnSaveClick(Sender: TObject);
var
    pic:tpicture;
    JPEG:tjpegimage;
begin
   pic:=tpicture.create;
   jpeg:=tjpegimage.create;
    try
        pic.loadfromfile(openpicturedialog1.filename);
      if pic.bitmap.empty=false then
        jpeg.assign(pic.bitmap)
    else
        jpeg.loadfromfile(openpicturedialog1.filename);
        Parameters.ParamByName('photo').Assign(jpeg);
    finally
      pic.free;
      jpeg.free;
    end;
   ExecSQL;
end;

Answer 3

http://topic.csdn.net/t/20040623/13/3116032.html

Answer 4

参照一下这里的
http://topic.csdn.net/u/20080103/15/c4048808-acae-47bd-af85-9429bdd1c306.html