Imagens perdendo a qualidade!

10/09/2008

0

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 [b:e1b737a12c]System.Drawing.Image[/b:e1b737a12c] para redimensionar a imagem.

   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

Hal9000

Responder

Posts

11/09/2008

Hal9000

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

Usei o seguinte:

   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)



Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar