Converter PNG para JPG com fundo Branco

06/01/2022

5

Preciso converter imagens PNG para JPG. Encontrei uma função que realiza o procedimento ao contrario, converte de JPG para PNG. Fiz uma modificação no código para fazer o processo inverso de converter PNG para JPG. Porém o resultado da conversão é uma imagem JPG com o fundo preto. Será que existe alguma forma de deixar com o fundo branco?

Uses;
Vcl.Graphics, Vcl.Imaging.pngimage, Vcl.Imaging.jpeg;


Função
function PngJPG(PNG : TPngImage) : TJPEGImage;
var vBmp : TBitmap;
begin
  Result  :=  TJPEGImage.Create;
  vBmp    :=  TBitmap.Create;
  vBmp.Assign(PNG);
  Result.Assign(vBmp);
  vBmp.Free;
end;


Chamar Função
var vPng: TPngImage; vJpg: TJPEGImage;
begin
  vPng := TPngImage.Create;
  vPng.LoadFromFile(origem);
  vJpg := PngJPG(vPng);
  vJpg.SaveToFile(destino);
  vJpg.Free;
  vPng.Free;
end;
Paulo Felipe

Paulo Felipe

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar