我存入图片,编译通不过
难道TBlobField需要自己定义吗?procedure TForm2.BitBtn1Click(Sender: TObject);
var
jsq:integer;
begin
 if OpenPictureDialog1.Execute then
  begin
   form1.ADOQuery2.Insert;
   TBlobField(form1.ADOQuery2.FieldByName('照片')).LoadFromFile(OpenPictureDialog1.FileName);
   form1.ADOQuery2.FieldByName('照片编号').Text:=OpenPictureDialog1.FileName;
   form1.ADOQuery2.Post;
   Memo1.Lines.Add(OpenPictureDialog1.Files[0]);
   if CheckBox1.Checked=true then
    begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end;
   ProgressBar1.Max:=100;
   for jsq:=0 to 100 do
    begin
     ProgressBar1.Position:=jsq;
    end;
  end
end;