'Criando o thumbnail:
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Caminho da Imagem
Path = server.mappath("original/" & "dharma.jpg")
'Busca a Imagem
Jpeg.Open Path
'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150
'Para visualizar o thumbnail no browser sem salvar o arquivo
Response.Write jpeg.SendBinary
'Cria um thumbnail e o salva no caminho abaixo
Jpeg.Save server.mappath("thumb/" & "dharma_mini.jpg")
Set Jpeg = Nothing
Nenhum comentário:
Postar um comentário