|
Vale muchas gracias, no estaba seguro y me dio unos errores pero ya esta, cuando pulso el boton de informes hago:
if ( (VarToStr(MD->qIBConsulta1->FieldValues["DIRFOTO"])!="")
&& (FileExists(VarToStr(MD->qIBConsulta1->FieldValues["DIRFOTO"]))) )
FormClienteInforme->QRImagenCliente->Picture- >LoadFromFile(VarToStr(MD->qIBConsulta1->FieldValues["DIRFOTO"]));
else
FormClienteInforme->QRImagenCliente->Visible=false;
Muchas gracias
|