Fórum Como trabalhar com imagens (streams) sem criar arquivos temporários. #404573

procedure TFrmDadosMarcacaoPesquisar.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);


var
  bitmap1 : TBitmap;
  fixRect : TRect;
  bmpWidth : integer;
  StreamBlobFoto1 : TStream;

begin

with DataSourceResultado.DataSet do
begin
    StreamBlobFoto1 := CreateBlobStream(FieldByName('FOTO1'),bmRead) ;      
end;

try
    StreamBlobFoto1.Seek(0, soFromBeginning);
    with TFileStream.Create('d:\setor\foto1.jpg', fmCreate) do
    try
        CopyFrom(StreamBlobFoto1, StreamBlobFoto1.Size)
    finally
        Free
    end;
finally
    StreamBlobFoto1.Free
end;




if Trim(Column.Title.Caption) = 'Foto1' then
begin
    bitmap1 := TBitmap.Create;

    try
       ConverterJpegParaBmp('d:\setor\foto1.jpg');
       bitmap1.LoadFromFile('d:\setor\foto1.bmp');

       //Fix the bitmap dimensions
       bmpWidth := (Rect.Bottom - Rect.Top);
       fixRect.Right := Rect.Left + bmpWidth;
       //draw the bitmap
       DBGrid1.Canvas.StretchDraw(fixRect,bitmap1);
    finally
       bitmap1.Free;
       
    end;
end;


deletefile('d:\setor\foto1.jpg');
deletefile('d:\setor\foto1.bmp');

end;