Mostra Blob como imagen

[MaMu]

Tengo una tabla access a donde le cargue imagenes en un campo blob sin problemas. Pero como puedo hacer para que cuando cargo la tabla en un DBGrid, me visualice directamente la imagen y no que me figure [BLOB] en dicho campo.

Alguien me puede dar una mano?

Saludos y Gracias

[lucero_chivas]

Bueno, lo que yo hago es quitar la columna de imagen del Grid y creo aparte un DBImage..... el cual lo ligo con el campo de la tabla donde esta guardada la imagen....

No se si te sirva o era algo diferente lo q buscabas

[MaMu]

En realidad lo que quiero es mostrar la imagen dentro de la misma celda, son bmp no mas grandes que un icono. Haciendolo como me sugeris, me funciona, ya lo habia probado, utilizando un DBControlGrid tambien, pero lo que quiciera es poder pintar la imagen dentro de la misma celda u otra cualquira.

Saludos

[MaMu]

Hice esto, pero no me dibuja la imagen adentro de la celda, y no se por que me sale este error

Código Delphi [-]
[Warning] Unit2.pas(824): Variable 'icono' might not have been initialized

El cual solucione, cambiando a FALSE el DefaultDrawing del DBGrid, pero aun asi no me dibuja la imagen dentro de la celada

Código Delphi [-]
procedure TFormSubclases.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var icono: TBitmap;
begin
if Field.Name = 'Icono' then
begin
  try
   icono:= Tbitmap.Create;
   icono.Assign(TBlobField(Field));
   (Sender as TDBGrid).Canvas.FillRect(Rect);
   (Sender as TDBGrid).Canvas.Draw(Rect.left+3,Rect.Top+1, icono);
  finally
    icono.free;
  end;
end
else
    (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
end;

Saludos

[casacham]

Lee tu respuesta en este hilo --> http://www.clubdelphi.com/foros/showthread.php?t=41768

[MaMu]

Empezado por casacham

Lee tu respuesta en este hilo --> http://www.clubdelphi.com/foros/showthread.php?t=41768

Lo lei detenidamente, pero la solucion que me ofrece no es la que busco, ya que yo poniendo un DBImage o un Timage linkado al campo blob, visualizo la imagen sin problema alguno. Lo que yo quiero es pintar esa imagen en una celda del DBGrid donde se visualizan los registros, sin necesidad de tener que poner un DBImage o un Timage.

Saludos