0 Compartilhamentos 189 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

Promoções de Jogos do Final de Semana (06/12)
Notícias
11 visualizações
Notícias
11 visualizações

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

Carlos L. A. da Silva - 6 de dezembro de 2019

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

Como bloquear trolls no Twitter em larga escala
Dicas
13 visualizações
Dicas
13 visualizações

Como bloquear trolls no Twitter em larga escala

Carlos L. A. da Silva - 4 de dezembro de 2019

Ninguém está livre de cair na mira de uma horda virtual e saber se defender é fundamental.

Conheça a diferença entre Inteligência Artificial, Aprendizado de Máquina e Aprendizado Profundo
Artigos
19 visualizações
Artigos
19 visualizações

Conheça a diferença entre Inteligência Artificial, Aprendizado de Máquina e Aprendizado Profundo

Carlos L. A. da Silva - 30 de novembro de 2019

Na linguagem coloquial, esses termos até se confundem mas, tecnicamente, não são a mesma coisa.

Mais publicações

Como aproveitar ao máximo a Área de Transferência do Windows 10
Dicas
19 visualizações
19 visualizações

Como aproveitar ao máximo a Área de Transferência do Windows 10

Carlos L. A. da Silva - 28 de novembro de 2019
Tudo que você precisa saber sobre o USB4
Artigos
45 visualizações
45 visualizações

Tudo que você precisa saber sobre o USB4

Carlos L. A. da Silva - 25 de novembro de 2019
Promoções de Jogos do Final de Semana (22/11)
Notícias
21 visualizações
21 visualizações

Promoções de Jogos do Final de Semana (22/11)

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