Delphi 11 读Oracle中图片

Delphi 读取Oracle中图片时出现 Unsupported stream format错误的解决方案

 

在读取Oracle数据库的PHOTO字段照片是BLOB类型，用DBImage控件读取数据库照片时发现在编辑状态能正常显示照片，但在调试运行状态时，无法显示照片，提示Unsupported stream format.错误。

 

 

解决办法：

对DBImage控件属性值DBImage1.DragMode := dmAutomatic; //显示图片自动模式

能正常显示照片。

 

相关代码如下：

procedure TFrmMain.BitBtn1Click(Sender: TObject);
begin
  dm.FDQuery1.Active :=True;
  dm.FDQuery2.Active :=True;
  DBImage1.DataSource :=dm.DataSource2;
  DBImage1.DataSource.DataSet.Active :=True;
  DBImage1.AutoDisplay := True; //显示图片
  DBImage1.Proportional :=True;  //成比例显示
  DBImage1.Stretch  :=True;  //图片拉伸至图框大小
  DBImage1.DragMode := dmAutomatic; //显示图片自动模式
end;