Error jpeg #41 al cargar imagen en TImage

[Repelus]

El control TdbImage fue lo primero que empleé pero me daba error precisamente cuando intentaba grabar un jpeg, por lo demás se visualiza perfecto(cuando es un bmp). Así pues, hallé la respuesta en el foro y era que el dbImage no funciona bien con jpeg, no recuerdo ahora el error que me daba, pero se aconsejaba utilizar la clausula jpeg en el uses. Así lo hice y seguía sin funcionar por lo que decidí quitar el control y utilizar un TImage.

El codigo para cargar la imagen al control también lo saqué del foro (a través del TMemorystream), con estos cambios todo deberia funcionar y ya no salta ningún error pero sigue sin salir la imagen.

Código Delphi [-]
if not q_trabajadoresfoto.IsNull then
     begin
     B := TBitmap.Create;//TJPEGImage.Create;
     MS := TMemoryStream.Create;
     q_trabajadoresfoto.SaveToStream(MS);
     B.LoadFromStream (MS);
     foto1.Picture.Assign(B);
     MS.Free;
     B.Free;
     end
     else
     foto1.Picture := nil;

Lo único que no he probado es refrescar el control despues de hacerle la asignacion de la variable o tal vez un 'repaint'.

Voy a probarlo ahora y te cuento...

Saludos.