Visualizar Imagen Formato Jpg En Timage Desde Un Dbgrid

[MARIO2019]

Buenos dias, tengo un proyecto donde he cargado la foto con formato jpg en una tabla (Campo foto (blob)) de estudiante. En un DBGRID tengo los datos de los estudiantes. Lo que necesito es que al posicionarme en una fia del DBGRID se visualice la foto del estudiante en un TIMAGE.

Antes no tenia problema al cargar imagenes con formato BMP, pero al cargar imagen con otro formato (JPG), DBIMAGE me quedo obsoleto

Este es el BOTON que carga la foto.

Código Delphi [-]
procedure TfALtaestudianbte.BitBtn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    fmodulo.testudiante.Edit;
    Image2.picture.loadfromfile(OpenDialog1.FileName);
    fmodulo.testudiante.FieldByName('f').Assign(Image2.Picture.Graphic);
  end;

Desde ya muy agradecido


Nota del moderador: Por favor, añadid TAGs cuando pongáis código, trozos de XML,... y en tu caso ya que eres nuevo, bienvenido y te recomiendo revidsar la guía de estilo de los foros.

[Casimiro Noteví]

Si es una versión muy antigua de delphi entonces tendrás que añadir jpeg al uses.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  BlobStream: TStream;
  JpegImage: TJpegImage;
begin
  if Column.FieldName = 'ImageField' then
  begin
    JpegImage := TJpegImage.Create;
    try
      BlobStream := DBGrid1.DataSource.DataSet.CreateBlobStream(Column.Field, bmRead);
      try
        JpegImage.LoadFromStream(BlobStream);
        DBGrid1.Canvas.StretchDraw(Rect, JpegImage);
      finally
        BlobStream.Free;
      end;
    finally
      JpegImage.Free;
    end;
  end
  else
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[MARIO2019]

Gracias Casimiro, estoy utilizando Delphi xv, ya le agregué al uses. Al ejecutarlo me salta un error en bm Read

[cloayza]

Estimado colega, hace ya un tiempo, realice cambios a componente DBImage para permitir otros formatos de imagenes a desplegar...

En el siguiente enlace CLDBImagen lo puede descargar. Está el código del componente un ejemplo de su uso (Con tablas Paradox )...Yo lo utilizo con Firebird y sin ningún problema ...

Espero le sirva, saludos cordiales

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

Empezado por MARIO2019

Buenos dias, tengo un proyecto donde he cargado la foto con formato jpg en una tabla (Campo foto (blob)) de estudiante. En un DBGRID tengo los datos de los estudiantes. Lo que necesito es que al posicionarme en una fia del DBGRID se visualice la foto del estudiante en un TIMAGE.

Antes no tenia problema al cargar imagenes con formato BMP, pero al cargar imagen con otro formato (JPG), DBIMAGE me quedo obsoleto

Te adjunto un procedimiento que te permite cargar en un TImage, una imagen almacenada en un campo de una base de datos (ya sea BMP o JPG).
Necesitas pasarle el campo de Tipo BLOB, la extensión y el TImage donde quieres que te la dibuje.
Es de los ejemplos que puedes encontrar en el FTP del Club.

Código Delphi [-]
procedure MostrarCampoJPGImage(FieldImagen:TBlobField; ext:string; Picture:TPicture);
var
  Stream: TMemoryStream;
  Jpg: TGraphic;
begin
  Jpg := nil;
  Stream := nil;
  try
    Stream := TMemoryStream.Create;
    FieldImagen.SaveToStream(Stream);
    if Stream.Size > 0
     then begin
          if AnsiUpperCase(ext)='.BMP' then
           Jpg := TBitmap.create
          else
           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;

Para llamarlo puedes hacer de una de estas formas:

Código Delphi [-]
  // para una imagen JPG
  MostrarCampoJPGImage(Table1Imagen, '.jpg', Image2.Picture);
  // para un BMP
  MostrarCampoJPGImage(Table1Imagen, '.bmp', Image2.Picture);

Table1Imagen es el campo de tipo blob de tu tabla

[MARIO2019]

Al ejecutar el programa, me sale un error BMREAD. Donde debo declarar el Objeto de esta clase

Código SQL [-]
Constructor Create(Field: TBlobField; Mode: TBlobStreamMode)

Donde lo declaro, en el form

[cloayza]

Debes incluir la unidad Data.DB.

Saludos cordiales

[MARIO2019]

Sigoejecutando y me sale este error

Código Delphi [-]
 BlobStream := DBGrid1.DataSource.DataSet.CreateBlobStream(Column.Field, bmRead);

Código Delphi [-]
 E2003 Undeclared identifier: 'bmRead'

Me podrian ayudar donde declarar TBlobStreamMode

[MARIO2019]

En el USES DEL FORM lo instale a DB, Solucionado. Voy a tratar de subir la imagen y comento. Gracias a todos