Redimensionar por largura

[Marinho 0]

Como eu faço para redimensionar uma imagem por largura na hora do upload.

Tenho um codigo aqui onde eu crio uma miniatura da imagem, mais agora tenho que reduzir a propria imagem em tamanhos proporcionais

 

Ex:

 

largura = 200

 

Ela terá que ter as dimensões menor ou igual a 200 pixels sem

 

obs: eu uso aspjeg para fazer o trabalho

 

obrigado a todos. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[vypy 0]

faz uma regrinha de tres...exlargura desejada/largura total=X/altura total...eh soh resolver e você tera a altura proporcional a largura desejada...faloww

[Marinho 0]

faz uma regrinha de tres...exlargura desejada/largura total=X/altura total...eh soh resolver e você tera a altura proporcional a largura desejada...faloww

Você pode colocar um exemplo claro aqui ? eu fiz aqui deu tudo errado.olha o meu ai 'Criando o thumbnail: Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Caminho imagem 'Para pegar imagem localPath = "C:\Documents and Settings\Mecanica Brasil\Meus documentos\site_eventos\grafica\arquivos\"&imagem&""'Busca a Imagem Jpeg.Open Path if jpeg.Originalwidth > 200 or jpeg.OriginalHeight > 200 then if jpeg.Originalwidth > jpeg.OriginalHeight then jpeg.width = 200else jpeg.Height = 200end if end ifJpeg.Canvas.Pen.Color = &H990000Jpeg.Canvas.Pen.Width = 0Jpeg.Canvas.Line 0, Jpeg.Height, Jpeg.Width, Jpeg.Height'Esse método é opcional, usado para melhorar o visual da imagem Jpeg.Sharpen 1, 150 'Salva imagem servidorJpeg.Save "C:\Documents and Settings\Mecanica Brasil\Meus documentos\site_eventos\grafica\arquivos\"&imagem&""set jpeg = nothing

[vypy 0]

a conta fikaria assimalturaDesejada=(larguraDesejada*alturaOriginal)/larguraOriginal

[Marinho 0]

a conta fikaria assimalturaDesejada=(larguraDesejada*alturaOriginal)/larguraOriginal

Não deu certo não ela obdeceu a largura mais a altura ficou com uns 450olha o codigo ai por favor:'Criando o thumbnail: Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Caminho imagem 'Para pegar imagem localPath = "C:\Documents and Settings\Mecanica Brasil\Meus documentos\site_eventos\grafica\arquivos\"&imagem&""'Busca a Imagem Jpeg.Open Path 'Especifica o tamanho da imagem, nesse caso ela ficará 50% menorif jpeg.Originalwidth > 200 or jpeg.OriginalHeight > 200 then if jpeg.Originalwidth > jpeg.OriginalHeight then jpeg.width = ( 200 * jpeg.OriginalHeight ) / jpeg.Originalwidthend if end ifJpeg.Canvas.Pen.Color = &H990000Jpeg.Canvas.Pen.Width = 0Jpeg.Canvas.Line 0, Jpeg.Height, Jpeg.Width, Jpeg.Height'Esse método é opcional, usado para melhorar o visual da imagem Jpeg.Sharpen 1, 150 'Salva imagem servidorJpeg.Save "C:\Documents and Settings\Mecanica Brasil\Meus documentos\site_eventos\grafica\arquivos\"&imagem&""set jpeg = nothing obrigado pela paciência galera. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif