FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Recuperar IMAGEN de un QUERY
HOLA:
Tengo un pequeño problema. Tengo un query que obtiene la clave de una persona y su fotografía. Lo que busco es que me muestre la foto de la persona... Es muy simple pero no se que me falta. Intenté con el DBimage y el Datasource pero me dibuja solo la mitad de la imagen. Probé codigo que encontré en Internet pero algo me esta faltando... me marca error en la linea donde le asigno la imagen al objeto del formulario. Este es el codigo que probé, si me pueden ayudar a ver donde esta el error... De antemano gracias! Var Stream: TMemoryStream; Jpg: TJpegImage; Begin Stream := nil; Jpg := nil; query1.SQL.Clear; query1.Close; query1.SQL.Text:='select * from foto where foto_cve='''+Edit1.text+''''; query1.Open; try Stream := TMemoryStream.Create; TBlobField(query1.FieldByName('FOTO_IMAGEN')).SaveToStream(Stream); if Stream.Size > 0 then begin Stream.Position := 0; Jpg := TJpegImage.Create; Jpg.LoadFromStream(Stream); Image1.Picture.Assign(Jpg); Aqui marca error ... ... ... etc. Última edición por natalinuyo fecha: 13-02-2007 a las 20:17:37. |
#2
|
||||
|
||||
¿y que error te da?
|
#3
|
||||
|
||||
Realmente seria muy bueno si nos aclararas cual es el error que te muestra pues no somos adivinos, pero de todas formas mira la pagina 369 del libro "La cara oculta de delphi 4" ofrecido gratuitamente en la pagina de Ian Marteens, allí te dice como capturar imagenes de la BD.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#4
|
|||
|
|||
El error que marca es:
Project xxx.exe raised exception class EJPEG with message ‘JPEG error #53’. Process stopped… |
#5
|
||||
|
||||
STFW
http://www.capmac.org/phpbb2/viewtopic.php?p=6884 Lo más problable es que la imagen sea muy grande y tengas problemas de memoria, prueba lo hacer lo mismo pero con una imagen más pequeña.
__________________
|
#6
|
|||
|
|||
Marca que no he declarado el identificador TBlobStream.
|
#7
|
||||
|
||||
Cita:
Cita:
Pero te recomiendo dos cosas: 1) Debes tener en cuenta la sugerencia de ContraVeneno. 2) Lee la pagina de el libro que te sugerí anteriormente.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#8
|
|||
|
|||
La imagen no creo que sea muy grande. La exporté desde un manejador de BD y ya como archivo el tamaño que me indica es de 298K.
|
#9
|
||||
|
||||
Bueno, y entonces ¿como te fue con lo del libro o con los cambios que te sugerí?
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#10
|
|||
|
|||
Se necesita alguna clase especial o algo así? me marca lo mismo sobre el identificador, el problema es que lo marca en el 'TBlobStream' no en la variable 'Stream'.
Con respecto al libro, llevo desde que me lo sugeriste hasta este momento y aun no lo baja... pero en eso estoy. Y pues de la imagen, ustedes creen que sea el tamaño? como ya les expliqué mide menos de 300 k... Tengo la idea de extraer la imagen y guardarla en un archivo BMP o JPG, el problema es que no se como hacerlo... tal vez esa sería la solución, ustedes que creen? Gracias |
#11
|
||||
|
||||
Solo por curiosidad, en tu código introduce la siguiente linea:
Así la imagen se guardara en el disco duro. Ahora abre la imagen con otro programa y comprueba que esta bien. |
#12
|
||||
|
||||
Particularmente ya no creo que sea el tamaño, lo que si se me habia olvidado preguntar era el tipo de imagen que estabas manejando, desde un princio asumi que era JPG... Porque tenias declarada una variable de tipo TJpegImage.
Cita:
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#13
|
|||
|
|||
Ya probé bien la opcion de Seoane, sin embargo no crea bien el dibujo. El libro aun está en proceso.
Última edición por natalinuyo fecha: 12-02-2007 a las 19:35:29. |
#14
|
||||
|
||||
Hola a todos
Perdon que me entrometa, para cargar una imagen de la tabla, que yo sepa no se necesita nada en especial ya que se toma como un archivo mas. Yo dejaria esta parte y lo haria con el DBimage enlazado al datasource. Ahora en el DBimage en la propiedad Stretch, la pasaria a True, con esto la imagen tomara la dimension del tamaño que le des al componente. Digo todo esto porque asi lo hago yo y no tengo nigun problema, ademas si le cambio en propiedad los anchors, me la muestra mas grande si cambio la dimension del form. Saludos |
#15
|
||||
|
||||
1) Con cual codigo te muestra este ultimo error?.
2) Que tipo de conexion estas usando? 3) Si estas usando BDE. ¿Tienes la seguridad de que estas asignando el Alias correctamente y tienes conexion a dicha BD? Este ultimo punto lo planteo porque veo que en el codigo que mostraste dice asi:
Aal parecer todo lo estas asignando en ejecución y veo que falta la propiedad databasename la cual no esta siendo asignada. y tal vez por eso te muestra este ultimo error,
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#16
|
|||
|
|||
Obviamente les simplifiqué el código.... EN cada query selecciono bien la tabla, el problema no es el query... me marca error hasta que le asigno la imagen Stream al objeto Image
COmo ya dije, me crea el archivo pero con error, es decir no sale nada de nada... |
#17
|
||||
|
||||
Caramba, Que sucede si cambias.
Por
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#18
|
||||
|
||||
Hola
Perdonen que insista pero si se dice esto: Cita:
Saludos |
#19
|
||||
|
||||
Cita:
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#20
|
||||
|
||||
Yo pense que con "me muestra la imagen a la mitad", se refería a que la imagen estaba incompleta, por eso fue que pense en la falta de memoria para completar de cargar la imagen....
__________________
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recuperar los nombres de los campos almacenados en una query | juanpe | SQL | 1 | 27-09-2006 18:46:44 |
Como hacer referencia a un query dentro de otro query? | JuanBCT | SQL | 2 | 05-09-2006 18:35:25 |
Cómo almacenar, editar y recuperar una archivo de imagen guardado en la base de datos | JKM | MS SQL Server | 0 | 03-05-2006 22:29:41 |
Recuperar Sql | jzk | OOP | 2 | 24-11-2004 12:58:30 |
Cargar y recuperar imagen en bd MySQL??? | burasu | MySQL | 2 | 22-08-2004 22:40:18 |
|