主题:求将照片保存到数据库的代码
这是我编的代码:
dbimage1.DataField:='zp00';
//选择图像
if openpicturedialog1.Execute then
begin
fdm.q_student.Edit;
//Tblobfield(fdm.q_student.FieldByName('zp00')).loadfromfile(openpicturedialog1.FileName);
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
fdm.q_student.Post;
end;
当我添加的时候,图片不能显示,也不能保存到数据库当中,不知为什么?
dbimage1.DataField:='zp00';
//选择图像
if openpicturedialog1.Execute then
begin
fdm.q_student.Edit;
//Tblobfield(fdm.q_student.FieldByName('zp00')).loadfromfile(openpicturedialog1.FileName);
dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
fdm.q_student.Post;
end;
当我添加的时候,图片不能显示,也不能保存到数据库当中,不知为什么?