关于dbimage的显示问题不是设置一下datasource就OK了吗?可是在设置了datasource后,出现了Bitmap image is not valid提示,在dbimage中导入照片的代码如下:
procedure TF_student.BtnimportClick(Sender: TObject);
begin
if Openpicturedialog1.Execute then
begin
dbimage1.Picture.LoadFromFile (openpicturedialog1.FileName );
adoqrystu.Edit ;
TBlobField(ADOqrystu.FieldByName('photo')).LoadFromFile(openpicturedialog1.FileName);
adoqrystu.Post ;
end;
end;
我的本意是让左边dbgrid中的数据滚动时,右边的dbimage动态显示图片,为此我又在adoquery的afterscroll事件中添加以下代码:
adoqrystu.SQL.Clear ;
adoqrystu.SQL.Add('select photo from student where studentno='''+adoqrystu.FieldByName('studentno').AsString+''' ' ) ;
adoqrystu.Open ;
dbimage1.DataSource :=datasource1;
可是在运行时又出现了ADOQryStu:Field 'studentno'not found的错误提示,我不知上面一段关于afterscroll事件的代码有无意义,代码的正确性也尚在商榷中,请高手指点,谢谢!
procedure TF_student.BtnimportClick(Sender: TObject);
begin
if Openpicturedialog1.Execute then
begin
dbimage1.Picture.LoadFromFile (openpicturedialog1.FileName );
adoqrystu.Edit ;
TBlobField(ADOqrystu.FieldByName('photo')).LoadFromFile(openpicturedialog1.FileName);
adoqrystu.Post ;
end;
end;
我的本意是让左边dbgrid中的数据滚动时,右边的dbimage动态显示图片,为此我又在adoquery的afterscroll事件中添加以下代码:
adoqrystu.SQL.Clear ;
adoqrystu.SQL.Add('select photo from student where studentno='''+adoqrystu.FieldByName('studentno').AsString+''' ' ) ;
adoqrystu.Open ;
dbimage1.DataSource :=datasource1;
可是在运行时又出现了ADOQryStu:Field 'studentno'not found的错误提示,我不知上面一段关于afterscroll事件的代码有无意义,代码的正确性也尚在商榷中,请高手指点,谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货