Recuperar IMAGEN de un QUERY

[natalinuyo]

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.

[[seoane]]

¿y que error te da?

[jhonny]

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.

[natalinuyo]

El error que marca es:

Project xxx.exe raised exception class EJPEG with message ‘JPEG error #53’. Process stopped…

[ContraVeneno]

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.

[natalinuyo]

Marca que no he declarado el identificador TBlobStream.

[jhonny]

Empezado por jhonny

Prueba cambiando el TStream por un TBlobStream y cambias la linea
TBlobField(query1.FieldByName('FOTO_IMAGEN')).SaveToStream(Stream); por
Stream := TBlobStream.Create(query1.FieldByName('FOTO_IMAGEN'),bmRead);
Y nos cuentas como te va.

Nota: habia eliminado este mensaje porque sencillamente me parecio que la sugerencia de Contraveneno era la correcta y no queria desviar a natalinuyo, pero ya que ha recibido el mensaje quizá por correo pues...

Empezado por natalinuyo

Marca que no he declarado el identificador TBlobStream.

Debes cambiar tambien arriba en las declaraciones despues del var el TMemoryStream Por TBlobStream.


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.

[natalinuyo]

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.

[jhonny]

Bueno, y entonces ¿como te fue con lo del libro o con los cambios que te sugerí?

[natalinuyo]

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

[[seoane]]

Solo por curiosidad, en tu código introduce la siguiente linea:

Código Delphi [-]
//...
Stream := TMemoryStream.Create;
TBlobField(query1.FieldByName('FOTO_IMAGEN')).SaveToStream(Stream);


Stream.SaveToFile('c:\1.jpg'); // <-- Esta es la linea nueva


if Stream.Size > 0 then begin
Stream.Position := 0;
// ...

Así la imagen se guardara en el disco duro. Ahora abre la imagen con otro programa y comprueba que esta bien.

[jhonny]

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.

tal vez esa sería la solución, ustedes que creen?

Quizá, Esperemos a que hagas la prueba de seoane, descargues el libro, pruebes el ejemplo que alli viene y si no funciona pues nos indicas que tipo de imagen quieres convertir a JPG, como te fue con la prueba de seoane y tratamos por ese otro lado.

[natalinuyo]

Ya probé bien la opcion de Seoane, sin embargo no crea bien el dibujo. El libro aun está en proceso.

[[Caral]]

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.

Código Delphi [-]
query1.SQL.Clear;
query1.Close;
query1.SQL.Text:='select * from foto where foto_cve='''+Edit1.text+'''';
query1.Open;

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

[jhonny]

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:

Código Delphi [-]
query1.SQL.Clear;
query1.Close;
query1.SQL.Text:='select * from foto where foto_cve='''+Edit1.text+'''';
query1.Open;

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,

[natalinuyo]

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...

[jhonny]

Caramba, Que sucede si cambias.

Código Delphi [-]
Image1.Picture.Assign(Jpg);

Por

Código Delphi [-]
 
Image1.Picture.Graphic := Jpg;

[[Caral]]

Hola
Perdonen que insista pero si se dice esto:

Es muy simple pero no se que me falta. Intenté con el DBimage y el Datasource pero me muestra solo la mitad de la imagen.

Cambiando el parametro stretch seria suficiente.
Saludos

[jhonny]

Empezado por Caral

Cambiando el parametro stretch seria suficiente

Claro¡¡¡, es cierto lo que dice Caral. Si desde un principio te muestra la imagen pues solo es cuestion de colocar la propiedad stretch en True y ya.

[ContraVeneno]

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....