tratar Fotos No Banco De Dados

04/12/2018

7

Galera, ao armazenar fotos no Banco de Dados acaba ficando meio lento o sistema, Tipo Enchado . Como trato isso no Banco?
Responder

Post mais votado

05/12/2018

Use a compressão das Imagens.


uses JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
jpg : TJPEGImage;
begin
jpg := TJPEGImage(Image1.Picture.Graphic);
if jpg.CompressionQuality <= 50 then
begin
ShowMessage('Sua Imagem ou foto foi compactada.');
Exit;
end;

jpg.CompressionQuality := 50;
jpg.Compress;
jpg.SaveToFile('c:\\teste.jpeg');
end;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar