Hola a todos, espero inicien la semana mucho mejor que yo.
Antes de explicar el problema desarrollo en Delphi 7 y para BD firebird. Pasa que tengo una tabla que se llama fotos de ahi extraigo la foto para mostrar en caso que la persona tenga foto en la BD. Utilizo la siguiente consulta:
Código SQL
[-]
select c.*, f.foto,m.nombre_mpo as municipio from afiliados c
inner join mpo_cdto m on c.cve_mpo=m.cve_mpo left join fotos f
on c.reafilcve_rnm=f.cve_rnm
where (falta between :fini and :ffin) and (c.cve_mpo=:cve_mpo)
order by c.appat
En el boton propiedades de mi form: pongo el siguiente codigo,
mostrar es una variable que declare con anterioridad como tipo:TJPEGImage;
Código:
// codigo que esta en el boton propiedades.
mostrar:=TJPEGImage.Create;
mostrar.Assign(qrylistafiliados.FieldByName('foto'));
frmpropcenso.Image2.Picture.Assign(mostrar);
mostrar.Free;
Pasa que si eligo una persona con foto al momento de ver sus propiedades no hay ningun error, pero cuando veo las propiedades de una persona que no tiene foto almacenada en la BD me muestra el siguiente error:
raised exception class EJPEG with message 'JPEG error # 42'
Espero hayan entendido la explicación y puedan ayudarme a solucionar el problema de ante mano muchas gracias.