0 Compartilhamentos 180 Views

Como redimensionar uma foto Jpeg ao enviar para o servidor

19 de julho de 2008

‘Primeiro vamos verificar o se o tipo de arquivo enviado será .JPG
If InStr(LCase(arquivo), ".jpg") > 0 Then

‘Depois vamos criar o objeto e abrir a imagem
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Upload.Path & arquivo

‘Especificações do seu sistema de imagens
Dim Width, Height, x0, y0, x1, y1
Width = 82
Height = 62

‘Aqui o script irá verificar a largura x altura da foto original e corrigir para o padrão que você especificou
If Jpeg.OriginalWidth < Jpeg.OriginalHeight Then
Jpeg.Width = Width
Jpeg.Height = ( Jpeg.OriginalHeight * ((Jpeg.Width * 100) / Jpeg.OriginalWidth)) / 100
Else
Jpeg.Height = Height
Jpeg.Width = ( Jpeg.OriginalWidth * ((Jpeg.Height * 100) / Jpeg.OriginalHeight)) / 100
End If

‘Determina o corte na figura e salva o arquivo final
Jpeg.Sharpen 1, 120
x0 = Fix((Jpeg.OriginalWidth/2)-(Width/2))
y0 = Fix((Jpeg.OriginalHeight/2)-(Height/2))
x1 = Fix((Jpeg.OriginalWidth/2)+(Width/2))
y1 = Fix((Jpeg.OriginalHeight/2)+(Height/2))
Jpeg.Crop x0, y0, x1, y1
Jpeg.Save Upload.Path & arquivo
End If

Espero que seja útil.

Você pode se interessar

De volta aos anos 80!
Artigos
4 visualizações
Artigos
4 visualizações

De volta aos anos 80!

Carlos L. A. da Silva - 22 de julho de 2019

Stranger Things puxou a nostalgia e a Microsoft entrou na brincadeira. Mas como era a tecnologia da informação naquela época?

Promoções de Jogos do Final de Semana (19/07)
Notícias
23 visualizações
Notícias
23 visualizações

Promoções de Jogos do Final de Semana (19/07)

Carlos L. A. da Silva - 19 de julho de 2019

Confira as melhores ofertas de jogos de PC para o final de semana.

Como ativar o DNS-over-HTTPS (DoH) no Firefox
Dicas
15 visualizações
Dicas
15 visualizações

Como ativar o DNS-over-HTTPS (DoH) no Firefox

Carlos L. A. da Silva - 18 de julho de 2019

Protocolo aumenta a segurança da navegação de seus dados e navegador da Mozilla por enquanto é o único com suporte oficial.

Mais publicações

SEO // Dicionário do Programador
Vídeos
18 visualizações
18 visualizações

SEO // Dicionário do Programador

Thais Cardoso de Mello - 15 de julho de 2019
Promoções de Jogos do Final de Semana (12/07)
Notícias
19 visualizações
19 visualizações

Promoções de Jogos do Final de Semana (12/07)

Carlos L. A. da Silva - 12 de julho de 2019