0 Compartilhamentos 313 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.

Carregando...

Você pode se interessar

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

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

Carlos L. A. da Silva - 7 de agosto de 2020

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

Bloqueando robôs do seu site
Artigos
11 visualizações
Artigos
11 visualizações

Bloqueando robôs do seu site

Carlos L. A. da Silva - 6 de agosto de 2020

Nem todo robô que visita seu site é bonzinho como o do Google... aprenda a se defender!

Como encriptar seu dispositivo móvel
Dicas
16 visualizações
Dicas
16 visualizações

Como encriptar seu dispositivo móvel

Carlos L. A. da Silva - 4 de agosto de 2020

Privacidade nunca é demais e ela pode estar na palma da sua mão, sem dificuldades. Aprenda a encriptar dispositivos Android, iOS e até Windows Phone.

Deixe um Comentário

Your email address will not be published.

Mais publicações

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

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

Carlos L. A. da Silva - 31 de julho de 2020
Quem está lucrando com os aplicativos de entrega? Ninguém
Artigos
27 visualizações1
27 visualizações1

Quem está lucrando com os aplicativos de entrega? Ninguém

Carlos L. A. da Silva - 28 de julho de 2020
Como ditar um documento (Office, Google Docs, OpenOffice)
Dicas
25 visualizações
25 visualizações

Como ditar um documento (Office, Google Docs, OpenOffice)

Carlos L. A. da Silva - 27 de julho de 2020