用流保存图片至access

Question

出错提示Undeclared identifer:'ftBlob' 
不知道怎么解决？
（我知道用流保存）
pjpg:=tjpegimage.Create;
      pjpg.Assign(Image1.Picture.Bitmap);
      pic:=TMemoryStream.Create;
      pjpg.SaveToStream(pic);
      pic.Position:=0;
      TBlobField(ADOQuery.FieldByName('photo')).LoadFromStream(pic);//此处出错，出错提示Undeclared identifer:'ftBlob'       pic.Free;
      pjpg.free;

Answer 1

估计是photo这个字段的类型出问题

Answer 2

photo的字段是什么类型 ？
为OLE对象，就可以

Answer 3

TBlobField，这个用在前面声明一下吗，或是怎么样，感觉程序不让用TBlobField这个

Answer 4

直接用位图到流试一下，不用转弯．image1.picture.bitmap.savetoStream(pic)

Answer 5

直接用位图到流试一下，不用转弯． image1.picture.bitmap.savetoStream(pic)
这样可以保存，运行不出错，并进行保存，但保存后，查看access数据库，photo字段为空啊，什么也没有存上，为什么呢？？谢谢啦

Answer 6

存到流，可怎样存到数据库呢，这是我的这段代码，大家帮看一下呗，
procedure Tzjform1.btn7Click(Sender: TObject);
var
MyRecPtr: TMyRec;
cmycode,coutname:string;
i:integer;
pjpg:tjpegimage;
pic:TMemoryStream;
    begin
     try
    MyRecptr:=TMyRec.Create;
    MyRecPtr:=TMyRec(form2.TreeView1.Selected.Data);
      if MyRecPtr.Fname<>'' then
        begin
          cmycode:=MyRecPtr.Fname;
          if cmycode<>'' then
            begin
                if (qzid.Text='') or (ypname.Text='') or (age.Text='') or (zw.Text='')
                  or (gznx.Text='')or (yxyq.Text='')or (sj.Text='')or (xb.Text='')or (mz.Text='')
                  or (hf.Text='')or (zw.Text='')or (qzlx.Text='') then
                begin
                application.MessageBox('请您将信息填完整！','提示',64);
                Exit;
                btn1.Enabled;
                form2.ActiveControl.SetFocus;//将窗体当前活动控件，设置为焦点所在（判断焦点在哪）
              end
              else              with DataModule3.ADO_Temp do
              begin
            //DataSource:=Form2.ds1;            Close;
            sql.clear;
            SQL.Text:='insert into message_message (qzid,djsj,ypname,xb,age,csrq,mz,hf,sg,tz,jzd,'+
            'hjd,zw,qzlx,gznx,yxyq,gzjl,xxjl,nlzc,jtdh,sj,qq,msn,yx,zy,photo)'+
            'values (:qzid,:djsj,:ypname,:xb,:age,:csrq,:mz,:hf,:sg,:tz,:jzd,'+
            ':hjd,:zw,:qzlx,:gznx,:yxyq,:gzjl,:xxjl,:nlzc,:dh,:sj,:qq,:msn,:yx,:zy,:photo)';
            parameters.ParamByName('qzid').Value:=qzid.Text;
            parameters.ParamByName('djsj').Value:=formatdatetime('yyyy-mm-dd',djsj.Date);
            parameters.ParamByName('ypname').Value:=ypname.Text;
            parameters.ParamByName('xb').Value:=xb.Text;
            parameters.ParamByName('age').Value:=age.Text;
            parameters.ParamByName('csrq').Value:=FormatDateTime('yyyy-mm-dd',csrq.Date);
            parameters.ParamByName('mz').Value:=mz.Text;
            parameters.ParamByName('hf').Value:=hf.Text;
            parameters.ParamByName('sg').Value:=sg.Text;
            parameters.ParamByName('tz').Value:=tz.Text;
            parameters.ParamByName('jzd').Value:=jzd.Text;
            parameters.ParamByName('hjd').Value:=hjd.Text;
            parameters.ParamByName('zw').Value:=zw.Text;
            parameters.ParamByName('qzlx').Value:=qzlx.Text;
            parameters.ParamByName('gznx').Value:=gznx.Text;
            parameters.ParamByName('yxyq').Value:=yxyq.Text;
            parameters.ParamByName('gzjl').Value:=gzjl.Text;
            parameters.ParamByName('xxjl').Value:=xxjl.Text;
            parameters.ParamByName('nlzc').Value:=nlzc.Text;
            parameters.ParamByName('dh').Value:=jtdh.Text;
            parameters.ParamByName('sj').Value:=sj.Text;
            parameters.ParamByName('qq').Value:=qq.Text;
            parameters.ParamByName('msn').Value:=msn.Text;
            parameters.ParamByName('yxyq').Value:=yx.Text;
            parameters.ParamByName('zy').Value:=zy.Text;
            if (not Image1.Picture.Bitmap.Empty) then
    begin
      pjpg:=tjpegimage.Create;
      pjpg.Assign(Image1.Picture.Bitmap);
      pic:=TMemoryStream.Create;
      pjpg.SaveToStream(pic);
      pic.Position:=0;
      image1.picture.bitmap.savetoStream(pic);
     // TBlobField(ADOQuery.FieldByName('photo')).LoadFromStream(pic);
      pic.Free;
      pjpg.free;
    end;           ExecSQL;
           end;
          //清空窗体上的录入文字
                    for i:=0 to componentcount-1 do
                    begin
                        if components[i] is tedit then
                        begin
                        tedit(components[i]).Text:='';                        end;
                        if components[i] is tcombobox then
                        begin
                        tcombobox(components[i]).Text:='';
                        end;
                      // pnl1.Enabled:=False;
                    pnl2.Enabled:=False;
                    end;                btn7.Enabled:=false;
                btn1.Enabled:=true;
                btn3.Enabled:=False;
                btn5.Enabled:=False;
                end;           end;
     except
     application.MessageBox('录入信息失败！','提示',64);
    end;
Form2.TreeView1Click(Sender);
end;

Answer 7

你把那个　注释了？肯定没有保存啊      image1.picture.bitmap.savetoStream(pic); 
    // TBlobField(ADOQuery.FieldByName('photo')).LoadFromStream(pic); 确认你的image1中有图片存在．

Answer 8

  image1.picture.bitmap.savetoStream(pic); 
    // TBlobField(ADOQuery.FieldByName('photo')).LoadFromStream(pic); 
如果不注释掉，程序编译不过去啊，就是被注释这行出错啊，);//此处出错，出错提示Undeclared identifer:'TBlobField' 
我确定选择了图片，是jpeg格式的

Answer 9

你在　uses 加入　DB　没？

Answer 10

就像下面这样子
unit Unit4;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,DB;

Answer 11

SQL.Text:='insert into message_message (qzid,djsj,ypname,xb,age,csrq,mz,hf,sg,tz,jzd,'+ 
            'hjd,zw,qzlx,gznx,yxyq,gzjl,xxjl,nlzc,jtdh,sj,qq,msn,yx,zy,photo)'+ 
            'values (:qzid,:djsj,:ypname,:xb,:age,:csrq,:mz,:hf,:sg,:tz,:jzd,'+ 
            ':hjd,:zw,:qzlx,:gznx,:yxyq,:gzjl,:xxjl,:nlzc,:dh,:sj,:qq,:msn,:yx,:zy,:photo)';上面用加这段吗，（红色部份）
点保存时，提示photo不能找到