6 replies to this topic

[dooper]

He probado de mil y una maneras en visuailzar la imagen en .bmp que tiene la tabla en el campo foto tipo "BLOB" en sqlit3 y ZeosLib, probé con un .jpg y tampoco. Pero no consigo visualizarla en la celda de un DBGRID1.

Si he conseguido que la guarde y he comprobado que lo ha hecho correctamente en la tabla de la bb.dd.

Este es el código que uso para intentar visualizarla en las celda, pero por más que intento no visualiza la imagen, los datos texto, si los visualiza. Y en un TImage como sería?

¿Qué hago mal?, para aprender de los errores?

php

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
          DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  bitmap : TBitmap;
  fixRect : TRect;
begin
    fixRect := Rect;
 
    Bitmap:=TBitmap.Create;
    if (Column.FieldName = 'foto' ) then
    try
      Bitmap.Assign(ZQuery1.FieldByName('foto'));
      DBGrid1.Canvas.StretchDraw(fixRect, BitMap);
    finally
      bitmap.Free;
    end;
end;

Gracias.

[dooper]

Estoy probando de esta manera y tampoco. Sí he conseguido que lo cargue en un TImage. Pero en la celda de la Dbgrid, imposible y ya no sé por donde indagar en el código y salir del embrollo, y hay a quien le funciona. Como digo la foto está en un campo BLOB de la tabla y he comprobado que está guardada sin problemas.

php

if (Column.FieldName = 'foto' ) then
    begin
         Bitmap:=TBitmap.Create; 
         unStream:= TMemoryStream.Create;
         try
              TBlobField(ZQuery1.FieldByName('foto')).SaveToStream(unstream);
              unstream.position:=0;
              Bitmap.LoadFromStream(unstream);
              DBGrid1.Canvas.Draw(fixRect.left,fixRect.top,Bitmap);
          finally
              bitmap.Free;
              unstream.free;
          end;
     end;

[dooper]

Indagando he podido con el sacar la foto en el campo BLOB. El problema era por el IF ya que comparaba con el fieldname y estaba vacía porque me daba error al principio, y le he intento poner el campo y ahora sí.

Pero me saca debajo de la foto la palabra "BLOB" que quisiera eliminarlo y dejar sólo la foto. Veré como lo puedo hacer...

[dooper]

Podría indicarme alguien como puedo eliminar el texto "BLOB" en el campo del mismo tipo en la celda del dbgrid. He conseguido insertar una imagen pequeña pero debajo sigue apareciendo la palabra "BLOB" y si no abarca toda la celda la imagen o la centro en la celda se solapan y se ve.

 

Una ayuda por favor, muchas gracias como siempre.

[dooper]

Encontré la solución, simplemente era el campo del edit en su propiedad FONT.  marcarla en clwhite y ya desaparece.

Gracias

[egostar]

Hola estuve viendo este asunto y pensé que lo que requerías era colocar la imagen y no "ocultar" la palabra "blob".

 

Como sea, que bien que se resolvió..

 

Saludos

[dooper]

Hola Egostar, el tema de la imagen al fin puse colocar la imagen, despues de muchos golpes de cabeza y dejar y retomar pude hacerlo. Muchas gracias.