Hola LuisMiguel.
Supongo que obtenes el mensaje:
Bitmap Image is not valid. Este tema se trató con referencia a Delphi
[ aquí ], quizá puedas sacar alguna idea.
En tu lugar pondría un
TQRSubDetail con su propiedad
DataSet apuntando al DataSet en questión, dentro de él un
TQRImage en lugar del
TQRDBImage y luego en el evento
AfterScroll del
TDataSet:
Código:
void __fastcall TForm1::DataSetAfterScroll(TDataSet *DataSet)
{
QRImage1->Picture = NULL;
if (FileExists(DataSetRUTA->AsString))
QRImage1->Picture->LoadFromFile(DataSetRUTA->AsString);
}
Donde
DataSetRUTA es el nombre del campo persistente que almacena la ruta y nombre de imágen.
Saludos.