0 Compartilhamentos 199 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 (17/01)
Notícias
10 visualizações
Notícias
10 visualizações

Promoções de Jogos do Final de Semana (17/01)

Carlos L. A. da Silva - 17 de janeiro de 2020

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

Dez habilidades essenciais para desenvolvedores em 2020
Artigos
10 visualizações
Artigos
10 visualizações

Dez habilidades essenciais para desenvolvedores em 2020

Carlos L. A. da Silva - 16 de janeiro de 2020

Amplie e aperfeiçoe seu arsenal de conhecimento com essas competências fundamentais.

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

Promoções de Jogos do Final de Semana (10/01)

Carlos L. A. da Silva - 10 de janeiro de 2020

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

Mais publicações

A IA do Google derrubou o câncer de mama? Não exatamente
Artigos
20 visualizações
20 visualizações

A IA do Google derrubou o câncer de mama? Não exatamente

Carlos L. A. da Silva - 10 de janeiro de 2020
Mudanças no YouTube para conteúdo infantil já estão valendo
Notícias
21 visualizações
21 visualizações

Mudanças no YouTube para conteúdo infantil já estão valendo

Carlos L. A. da Silva - 7 de janeiro de 2020
Frameworks de servidor HTTP para Dart
Artigos
32 visualizações
32 visualizações

Frameworks de servidor HTTP para Dart

Carlos L. A. da Silva - 6 de janeiro de 2020
Promoções de Jogos do Final de Semana (03/01)
Notícias
21 visualizações
21 visualizações

Promoções de Jogos do Final de Semana (03/01)

Carlos L. A. da Silva - 3 de janeiro de 2020