Mostrar Imagen de Registro de Access

[*Caro*]

Saluditos

[Neftali [Germán.Estévez]]

Empezado por Caro

Saluditos

Upppppsss!!!

Perdón, "se me fue el Santo al Cielo" con este hilo (como se suele decir).

[Neftali [Germán.Estévez]]

Bueno, más o menos me refería a esto. Lo recordaba con menos líneas la verdad.
He subido el ejemplo completo a mi web, ya que "pesa" demasiado para subirlo aquí. Incluye una Base de Datos algunas imágenes y el compilado.

Los dos procedimientos que se usan son estos:

Uno para obtener la imagen JPG de disco y guardarla e la Base de Datos.

Código Delphi [-]
procedure loadjpeg(FieldIMAGEN:TblobField; FileName:string);
var
  Jpg: TJpegImage;
  Stream: TMemoryStream;
begin
  Jpg := nil;
  Stream := nil;
  try
    Jpg := TJpegImage.Create;
    Jpg.LoadFromFile(filename);
    Stream := TMemoryStream.Create;
    Jpg.SaveToStream(Stream);
    Stream.Position := 0;
    FieldIMAGEN.loadFromStream(Stream);
  except
    showmessage('problemas');
    jpg.Free;
    Stream.Free;
    raise;
  end;
  jpg.Free;
  Stream.Free;
end;

Y otro para poder visualizar esas imágenes JPG en los componentes estandard de Base de Datos.

Código Delphi [-]
procedure ShowJPG(FieldImagen:TBlobField; Picture:TPicture);
var
  Stream: TMemoryStream;
  Jpg: TJpegImage;
begin
 Jpg := nil;
  Stream := nil;
  try
    Stream := TMemoryStream.Create;
    FieldImagen.SaveToStream(Stream);
    if Stream.Size > 0
     then begin
            Jpg := TJpegImage.Create;
            Stream.Position := 0;
            Jpg.LoadFromStream(Stream);
            Picture.Assign(Jpg);
         end
     else Picture.Assign(nil);
  except
    Picture.Assign(nil);
  end;
  jpg.Free;
  Stream.Free;
end;

[*Caro*]

Muchas gracias por responder Neftali, te cuento que la forma en que lleno el TImage es algo parecido al codigo que me has pasado.

Lo que yo quiero es que en mi campo donde se guarde la foto, pueda haber tanto imagenes bmp como jpg, para que se haga mas facil he añadido un campo mas para guardar la extension, entonces lo que hice fue verificar la extensión y dependiendo de cual fuera, mostrar de una forma u otra.

En el programa que me has pasado hice los cambios para que puedas ver mejor y me ayudes en un problemita que tengo, ahora se puede registrar tanto bmp o jpg, he añadido un DBCtrlGrid que es ahí donde quiero mostrar el DBImage, así como estaba con el evento AfterScroll que es el que refresca la imagen, no funcionaba nada bien, por lo que he utilizado el evento OnPaintPanel del DBCtrolGrid.

Mis preguntas, con el TImage funciona bien si todos los registros tienen imagenes pero sino, repite la ultima imagen que ha cargado en los que no tienen ninguna imagen, le he asiganado nil por si no encuentra pero nada me sigue cargando la imagen. De mi forma con un DBImagen pasa algo parecido que el anterior la diferencia es que solo el siguiente que no tiene imagen se carga con el anterior, con tu codigo, funciona bien. Por favor me puedes decir que estoy haciendo mal con mi codigo, porque no se asigan nil cuando no encuentra imagen en ese registro , tanto para el TImage como el TDBImage.

Te adjunto el pas, dfm y la BD lo he subido ha rapidshare, esta con el nuevo campo y con algunas imagenes bmp http://rapidshare.com/files/156026934/DataBase.mdb.html

Saluditos

[Neftali [Germán.Estévez]]

Hola Caro.
Bueno, queda descartado el tema del DBImage, puesto que creo que al utilizar DBCtrlGrid que visualiza más de un registro, esa opción no tiene mucho futuro.

Si te quedas con el Image, la única slución que se me ha ocurrido (no se si la has probado ya) es utlizar un BMP vacío para "limpiar" la imagen. Parece un poco "chapuza" y realmente lo es, pero con las pruebas que he hecho, es la única forma que he encontrado de que funcione.
La he añadido a un recurso para que no esté en disco.

[*Caro*]

Muchas gracias Neftali, entonces seguire utilizando el TImage con el bmp vacío , acabo de hacer la prueba y si funciona . Una preguntita mas solo por curiosidad que significa "se me fue el Santo al Cielo".

Saluditos

[Neftali [Germán.Estévez]]

Empezado por Caro

"se me fue el Santo al Cielo".

Algo así como:
"Se me pasó y ...", "se me olvidó y ..."

Cuando quieres hacer algo, se te olvida y dejas de hacerlo. Cuando te acuerdas sale esta frase... "se me fue el Santo al Cielo" en referencia a aquello que debías hacer.

Es difícil de explicar...