Ver Mensaje Individual
  #2  
Antiguo 12-12-2024
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.669
Reputación: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
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;
Responder Con Cita