Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   JPG, DBImage y DBCtrlGrid (https://www.clubdelphi.com/foros/showthread.php?t=15674)

jcamalmx 01-11-2004 05:29:26

JPG, DBImage y DBCtrlGrid
 
Hola:

Antes que nada quiero enviarles un enorme saludo a todos los integrantes de este foro y solicitarles sus comentarios respectos a como pudiera hacerle para mostrar una imagen jpg en un componente DBImage y que a la vez se encuentra dentro de un DBctrlGrid ya que requiero presentar un grupo de imagenes al mismo tiempo, utilizo el siguiente código para mostrar la imagen, pero no funciona cuando lo coloco en el DBCtrlGrid, no me las muestra correctamente, al mover el scrollbar del DBCtrlGrid solo me aparece una imagen:

var

IJpeg : TJpegImage;
Temporal : TMemoryStream;

Begin

IJpeg:=TJpegImage.create;
Temporal:=TMemoryStream.create;

TablaFotosFOTO.SaveToStream(Temporal);
Temporal.Seek(0,soFromBeginning);
IJpeg.LoadFromStream(Temporal);
DBImage.Picture.Assign(IJpeg);

end;


Tal ves sea problema de la memoria o debería colocarlo en algún evento en particular, he probado colocandolo en el evento "OnPaintPanel" de DBctrlGrid, así como en el evento "AfterScroll" de la Tabla y nada, alguien pudiera echarme una manita ??

De antemano Gracias.

frudolph 02-11-2004 16:33:29

Lo que tienes que hacer es poner en la cláusual "Uses" la unidad "jpeg" y luego:

DBImage.FieldName := 'FOTO';
DBImage.Stretch := True;

con esto debería funcionar.

pgrdelphi 19-07-2011 23:46:46

Problema con jpg
 
Buenas

Yo tengo un TDBIMAGE llamado rutafoto, y en USES ya agregue JPEG

Cuando voy a cargar el archivo al dbrutafoto me aparece un error

(unknow picture file extension (.jpg))

Lo cargo de la siguiente forma

DBRUTAFOTO.PICTURE.LOADFROMFILE(RUTA)

Quisiera saber que estoy haciendo mal, de verdad agradezco la ayuda.

Muchas Gracias


La franja horaria es GMT +2. Ahora son las 11:43:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi