Problemas con imágenes en BD

[martinlillo]

Ahora, yo probé poner este código que vi en alguna parte de este foro:

Código Delphi [-]
 TDBimage.LoadFromFile('ejemplo.jpg');

y me tira error porque no es un BMP válido. Eso me cambió los esquemas... se ve que hay que hacerle algo más al asunto...

Saludos!

[Casimiro Noteví]

Venga, una buscadita y verás como lo encuentras en un momento

[martinlillo]

Te juro que me estoy mareando en la navegación de links del foro!! He encontrado un montón de "medias soluciones", juaaa! Pero bueno, sigo leyendo... con paciencia...

Saludos y gracias!!

[Casimiro Noteví]

Algo así te sirve, con un simple timage

Código Delphi [-]
uses jpeg
...
...
...

procedure TFmain.FormShow(Sender: TObject);
var
  cImg, cExt : string;
begin 
  cImg := LeerINI(cContaIni,_seccion_personal_,_propiedad_imagenfondoalternativa_);
  cExt := AnsiUpperCase(ExtractFileExt(cImg));
  if ( (_JPG_=cExt) or (_JPEG_=cExt) or (_PNG_=cExt) ) then
    imgFondo.Picture.LoadFromFile(cImg)
  else
  if (_BMP_=cExt) then
    imgFondo.Picture.Bitmap.LoadFromFile(cImg);

...
...
...

end;

[martinlillo]

Poniendo

Código Delphi [-]
 DBImage.picture.LoadFromFile('ej.jpg');

no me tira ningún error, pero me deja el campo blob en NIL. No me levanta la imagen...
Pero creo que vamos por buen camino.

Gracias!!

[fidel]

Mira a ver si te sirve esto, a mí me va bien.

http://www.clubdelphi.com/foros/showthread.php?t=41572

[martinlillo]

Muchas gracias a todos por sus respuestas. Un amigo mio me dio la solución. Instalar las componentes Jedi.

Saludos!!