Mostrar Imagen de Registro de Access

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

Para trabajar con JPG hay que añadir diempre la unit jpeg.
Hay varios componentes (1, 2, 3) que soportan formatos de imagen diferentes a BMP. Aunque con algo de código se puede hacer también de forma manual.

[*Caro*]

Hola Neftali, muchísimas gracias por responder, pero tengo la unit jpeg en mi uses y aún asi no funcionaba, me salía y me sigue saliendo este error "Bitmap image is not value". Por eso lo cambie a mostrar en un TImage pero si se puede con un TDBImage estaría mucho mejor.

Empezado por Neftali

Aunque con algo de código se puede hacer también de forma manual.

Puedes ayudarme con ese codigo por favor por favor , no quisiera usar otros componentes.

Saluditos

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

Empezado por Caro

Puedes ayudarme con ese codigo por favor por favor , no quisiera usar otros conponentes.

¿Qué Base de Datos estás utilizando?

[*Caro*]

Empezado por Neftali

¿Qué Base de Datos estás utilizando?

Estoy utilizando Firebird 2.0 y mi campo es de tipo Blob.

Saluditos

[*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;