tratar Fotos No Banco De Dados

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;