Uso essa função para gerar thumbs das imagens no sistema:
procedure converte_jpg(Bitmap: TBitmap; Stream: TMemoryStream);
var
surf: TBitmapSurface;
saveParams : TBitmapCodecSaveParams;
begin
surf := TBitmapSurface.Create;
try
surf.Assign(Bitmap);
saveParams.Quality:= 20;
if not TBitmapCodecManager.SaveToStream(Stream, surf, '.jpg',@saveParams)
then
raise EBitmapSavingFailed.Create(SBitmapSavingFailed);
finally
Surf.Free;
end;
end;
chamo ela assim
img.Bitmap.LoadFromStream(imagem);
converte_jpg(img.Bitmap,thumb_img);
o resultado da função é um TMemoryStream que eu salvo no banco de dados, a função funciona normalmente na thread principal, porém, quando coloco ela dentro de um thread anonima, da o seguinte erro
Bitmap size too big.