tratar Fotos No Banco De Dados
Galera, ao armazenar fotos no Banco de Dados acaba ficando meio lento o sistema, Tipo Enchado . Como trato isso no Banco?
Valsistemasdelphi
Curtidas 0
Melhor post
Paulo Freire
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;
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;
GOSTEI 1