[请教高手： 怎样用DBimage控件向数据库里添加图片? ］

Question

我用了一个DBImage 控件与数据库的graphic域相联，并用了OpenPictureDialog控件来打开图片。可是老是不对，运行时总提示不能往DataSet:ReadOnly中添加。
我的代码如下：请帮忙看看哪里错了。
procedure Tf_stuinput.b_insertphotoClick(Sender: TObject);
begin
  with datamodule1.q_stu do
  datamodule1.q_stu.Edit;
  begin
   if(openPictureDialog1.Execute) then
    dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
    datamodule1.q_stu.FieldByName('photo').Assign(dbimage1.picture);
  end;
end;
谢谢！！

Answer 1

procedure Tf_stuinput.b_insertphotoClick(Sender: TObject);
begin
  with datamodule1.q_stu do
  DataModule1.Q_Stu.ReadOnly:=false;//使数据集可读
  datamodule1.q_stu.Edit;
  begin
   if(openPictureDialog1.Execute) then
    dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);//直接装入就可以了！
    //但要保证你的DBImage1连接的是Photo字段
    //datamodule1.q_stu.FieldByName('photo').Assign(dbimage1.picture);
    Post;//保存修改
  end;
end;