Publicação Ler

Para reduzir o tamanho de uma imagem utilizando a biblioteca Persits.Jpeg sem perder muita qualidade, você pode experimentar ajustar a qualidade de compressão, além de garantir que o redimensionamento preserve a proporção original da imagem. Aqui estão algumas sugestões que podem melhorar o resultado:

1. Ajuste o nível de compressão: Use a propriedade Quality da biblioteca Persits.Jpeg para controlar a qualidade da imagem. Quanto maior o valor, melhor a qualidade.

2. Aplicação de Resample ao redimensionar: Use o método Resample em vez de alterar diretamente as propriedades Width e Height. O Resample oferece uma interpolação melhorada, preservando mais detalhes.
   
    

   Set Jpeg = Server.CreateObject("Persits.Jpeg")
   Jpeg.Open "" & rsSite("pastaupload") & "pastaimg" & "" & imagem & ""

   L = 1200
   H = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

   ' Use Resample para melhorar a qualidade ao redimensionar
   Jpeg.Resample L, H

   ' Ajuste o nível de qualidade (de 0 a 100, onde 100 é a melhor qualidade)
   Jpeg.Quality = 90  ' Ajuste conforme necessário para equilíbrio entre tamanho e qualidade

   ' Sharpen a imagem, se necessário (ajustar os parâmetros conforme teste)
   Jpeg.Sharpen 1, 150

   ' Salvar a imagem redimensionada
   Jpeg.Save "" & rsSite("pastaupload") & "pastaimg" & imagem

   Set Jpeg = Nothing
    

3. Jpeg.Resample L, H: O método Resample redimensiona a imagem de forma mais eficiente e com menor perda de qualidade.
4. Jpeg.Quality = 90: Controla a compressão JPEG, onde um valor mais alto melhora a qualidade (pode variar conforme o caso, teste com 85-95).