FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Hola
Este código lo Hizo nuestro amigo ChackAll: Esta hecho para ado (access), pero sera facil cambiarlo a IBX (firebird). Esta bien detallado, creo que se entiende bien. Saludos
__________________
Siempre Novato |
#2
|
|||
|
|||
Cargar Imagen hacia tImage desde Base de datos
Cita:
Hola a Todos Buscando una solución a mi problema, me encontré con este hilo. El procedimiento de guardar la imagen en el campo blob parece que lo hace sin problemas, sin embargo al tratar de obtener la imagen y asignarlo a un TImage me da problemas. Estoy utilizando Delphi 5 con base de datos Firebird. Les comparto el código Procedimiento que guarda la Imagen: procedure TfrmDetalleProducto.GuardarClick(Sender: TObject); Var tabla : tTable; Stream: TStream; bmp: TBitmap; jpg : TJPEGImage; begin tabla := tTable.Create(nil); tabla .DatabaseName := Sessions[0].Databases[0].DatabaseName; tabla .TableName := 'Productos'; tabla .Active := True; tabla.Insert; jpg := TJPEGImage.Create; bmp := TBitmap.Create; bmp.LoadFromFile(Global.POS.FRutaImagenBtn + EdRutaImagen.text); jpg.Assign(bmp); bmp.Destroy; Stream := tabla.CreateBlobStream(tabla.FieldByName('IMAGEN'), bmWrite); jpg.SaveToStream(Stream); Stream.Destroy; tabla.post; end; Procedimiento para asignar la imagen al componente tImage procedure TfrmDetalleProducto.CargarImagen(Sender: TObject); Var tabla : tTable; Stream: TStream; bmp: TBitmap; jpg: TJPEGImage; begin tabla := tTable.Create(nil); tabla .DatabaseName := Sessions[0].Databases[0].DatabaseName; tabla .TableName := 'Productos'; tabla .Active := True; If tabla.Locate('CODIGO',245,[loCaseInsensitive]) then begin jpg := TJPEGImage.Create; Stream := tabla.CreateBlobStream(tabla.FieldByName('IMAGEN'), bmRead); jpg.LoadFromStream(Stream); <------------ AQUI DA EL ERROR Stream.Destroy; bmp.Assign(jpg); ImgProducto.Picture.Assign(bmp); end; end; El error que despliega es: Project x.exe raised exception class EJPEG with message 'JPEG error #50'. Process stopped. Use Step or Run to continue. Agradezco me puedan colaborar Saludos |
#3
|
||||
|
||||
Se supone que has añadido jpeg al uses:
Código:
uses jpeg; Y recuerda poner los tags al código fuente, ejemplo: Gracias |
#4
|
|||
|
|||
Claro Casimiro, el uses del jpeg esta añadido.
|
#5
|
||||
|
||||
Puede que no sea un jpg, aunque su extensión sea jpg.
|
#6
|
|||
|
|||
Claro yo mismo cree el archivo jpg.
Lo probé con un archivo bmp y otro jpg. Claro está que modifiqué el código para cada tipo de archivo. No si tienes otra manera de hacerlo para intentarlo. Saludos |
#7
|
||||
|
||||
Desde aquí no podemos hacer mucho más, yo comprobaría con otro jpg, vaya a ser que ese esté mal.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cargar imagen en Un TImage guardada en campo Blob o Objeto OLE en accsess | gulder | Varios | 1 | 28-11-2008 18:54:43 |
guardar archivos en un campo blob | a_f_g | Firebird e Interbase | 10 | 07-11-2008 20:46:28 |
Cargar imagen BLOB usando BDE | leodenis784 | Gráficos | 3 | 12-09-2006 10:31:07 |
¿cargar un campo blob por codigo? | fredo | SQL | 2 | 18-05-2005 14:56:59 |
guardar un fichero en un campo blob | apicito | Firebird e Interbase | 2 | 02-03-2005 12:01:54 |
|