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)