Array
(
)

Imagens perdendo a qualidade!

Hal9000
   - 10 set 2008

Olá a todos...

Estou subindo uma imagem para meu site através do FileUpload
e então redimensionando elas para um tamanho padrão

Acontece que estou perdendo qualidade no processo o que torna as imagens distorcidas. aparentemente está baixando o DPI da imagem.

Estou usando a classe System.Drawing.Image para redimensionar a imagem.

#Código

   Dim oImagem As System.Drawing.Image
   oImagem = Image.FromFile(CaminhoFoto)
   oImagem = oImagem.GetThumbnailImage(350, 250, Nothing, Nothing)


Como manter a qualidade da imagem no redimensionamento???

Hal9000
   - 11 set 2008

Consegui resolver o problema aqui...
Agora consigo redimensionar sem perder a qualidade...

Usei o seguinte:

#Código

   Dim oImgOriginal As System.Drawing.Image
   oImgOriginal = Image.FromFile("c:\img\img.jpg")


  ´REDIMENSIONO O ORIGINAL
   Dim Tamanho As New Size(100,100)
   oImgOriginal = New Bitmap(oImgOriginal, Tamanho)

  ´SALVA A IMAGEM REDIMENSIONADA
   oImgOriginal.Save(Destino,Imaging.ImageFormat.Jpeg)