Diminuir o tamanho de uma imagem BMP

Delphi

25/07/2005

Bom dia,
Estou com uma aplicação em paradox onde eu necessito gravar imagens, mas as imagens que vou gravar estão em formato BMP, desta forma a base de dados fica imensa, tem alguma forma de mudar o formato?
E como faria para ler neste novo formato?
Grato
Fausto


Faustoalves

Faustoalves

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

25/07/2005

Você pode converter a imagem para JPG.

Adicionando JPeg na cláusula Uses da unit:
function TForm1.BmpToJpeg(BMP: TBitmap): TJPegImage;
begin
  Result := TJpegImage.Create;
  Result.CompressionQuality := 20;
  Result.Compress;
  Result.Assign(BMP);
end;


Alterando valores da propriedade CompressionQuality, vc pode encontrar uma boa razão entre Qualidade x Compactação.


GOSTEI 0
POSTAR