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.

[Repelus]

Me sigue sin funcionar....

Ya no se de que puede ser...

Estoy en blanco...

Haber si se te ocurre algo JMariano y gracias de antemano pero es que me monto unos lios imposibles.

[jmariano]

El problema es que jpeg es un formato comprimido de imagen que, ademas de la imagen, puede contener información adicional, y es por esta información, precisamente, por la que puede que te esté dando error (tambien es por esto que no se puede usar un control DBImage con un jpg, ya que no sabe como manejar dicha información). Así que para hacer lo que quieres tendrás que hacer alguna operación extra además de cargar la imagen. Leete el siguiente artículo que te va ayudar mucho: http://delphi.about.com/od/database/l/aa030601a.htm (los ejemplo son para ADO, pero lo puedes adaptar tanto para BDE como para InterBase o para el ClientDataSet)

Saludos!

[Repelus]

Gracias por la información, estudiaré el tema y ya comentaré los resultados.

Saludos.

[Repelus]

Hola JMariano,
he encontrado la solución por fin. Al final encontré otro articulo que me resulto quizas más claro he interesante para dar solucion a mi problema. Además ya lo he probado y funciona muy bien.
Aquí pongo el enlace para que todos puedan echarle un vistazo. Desde luego recomiendo su lectura atentamente.
www.latiumsoftware.com/es/pascal/0011.php

Por último muchas gracias por tu interes y tu ayuda.


Saludos.