¡hola amigos!, sí, sí ya sé que este tema ya se trato, es mas, he utilizado alguno de los concejos que se dan acá para mostrar imagenes jpeg almacenadas en una base de datos, pero nada, no me muestra nada.
Este es el código que utilizo para mostrar la imagen:
Código Delphi
[-]
if (dmcpaf.MDOSPselect_afiliadoFOTO_AFIL.IsNull) then
imgfoto.Picture:=nil
else
begin
imgfoto.Picture.Graphic:=TJpegImage.Create;
m:=dmcpaf.MDOSPselect_afiliado.CreateBlobStream(dmcpaf.MDOSPselect_afiliadoFOTO_AFIL, bmRead);
imgfoto.Picture.Graphic.LoadFromStream(m);
m.Free;
end;
al evaluarse el condicional, el resultado que obtengo es que el campo está vacío, aun esta contenga una imagen, la solución que encontre es negar el condicional, quedando de la siguiente manera:
Código Delphi
[-]
if not (dmcpaf.MDOSPselect_afiliadoFOTO_AFIL.IsNull) then
al hacer este cambio ya puedo intentar mostrar la imagen, así que paso al bloque else...end y que creen ¡zas! salta un error, el "Error JPEG #42" y a decir verdad no sé que significa, pensé que a lo mejor estoy guardando mal imagen así ejecuto una consulta en el IBexpert y puedo ver la imagen, así que no creo que sea problema de mal guardado de la misma, por si acaso, esta la guardo con:
Código Delphi
[-]
mdospputafiliado.ParamByName('foto_afil').LoadFromFile(s_imgpath,ftBlob);
donde s_imgpath es la ruta de la imagen a guardar.
utilizo delphi 7 y FB1.5, esto por si sirve de algo.
Espero puedan darme una idea de como solucionar mi problema y desde ya les doy las gracias por la ayuda que me brinden
Saludos desde Tacna - Perú
David