怎样把图片存入数据库啊？用什么字段啊？在前端录入怎么写代码啊？

Question

怎样把图片存入数据库啊？用什么字段啊？在前端录入怎么写代码啊？

Answer 1

给你个例子：
function TfrmSbManager.InsertSbTb: Boolean;
var
sqltext : string;
begin
   //添加设备
   sqltext := '';
   Memo1.Lines.SaveToFile('c:\tempMemo.txt');
   with dtmd.qyinsertsb do
   begin
     Close;
     SQL.Clear;     if PicterFilename <> '' then
     begin
       SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz,tp)');
       SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz,:#tp)');
     end else begin
       SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz)');
       //
       SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz)');
       //  
     end;
     Parameters.ParamByName('#sbid').Value := Trim(edSbid.Text);
     Parameters.ParamByName('#sbname').Value := Trim(edSbname.Text);
     Parameters.ParamByName('#gmdate').Value := FormatDateTime('yyyy-mm-dd',dtpkGmrq.Date);
     Parameters.ParamByName('#dj').Value := StrToFloat(edDj.Text);
     Parameters.ParamByName('#sl').Value := StrToFloat(EdSl.Text);
     Parameters.ParamByName('#fpsl').Value := 0;
     Parameters.ParamByName('#cjname').Value := Trim(edCj.Text);
     Parameters.ParamByName('#cfdb').Value := Trim(edDb.Text);
     Parameters.ParamByName('#tel').Value := Trim(edTel.Text);
   //  Parameters.ParamByName('#memo').DataType := ftMemo;
     Parameters.ParamByName('#bz').Value := Memo1.Text;
     if PicterFilename <> '' then
       Parameters.ParamByName('#tp').LoadFromFile(PicterFilename,ftBlob);//这里是图片的录入
     try
       ExecSQL;
       Result := true;
     except
       Result := false;
     end;   end;
end;