Como utilizar o AspJpeg para redimensionamento de imagens na plataforma ASP?

De Wiki
Ir para: navegação, pesquisa

O componente AspJpeg permite que você redimensione imagens e crie thumbnails (miniaturas) de alta qualidade escolhendo o nível de visualização delas.

Exemplo de Utilização

Crie um arquivo de tipo asp (Ex. Aspjpeg.asp) conforme abaixo. Este código carrega a imagem teste.jpg da pasta imagens, a transforma em um thumbnail e o salva na pasta miniaturas.

<%
'Declara as variáveis a serem utilizadas no script
Dim AspJpeg, imagem

'Instancia o componente na memória
SET AspJpeg = Server.CreateObject("Persits.Jpeg")

'Define o caminho da imagem a ser redimensionada
imagem = "C:\inetpub\wwwroot\SuaConta\imagens\nome_da_imagem.jpg"

'NOTA: Substitua "SuaConta" pelo nome de usuário utilizado no acesso ao Painel de Controle do seu domínio e nome_da_imagem pelo nome do arquivo JPG.

'Carrega a imagem
AspJpeg.Open imagem

'Define o novo tamanho da imagem que neste caso, definimos que ela será 50% menor que o normal.
AspJpeg.Width = AspJpeg.OriginalWidth / 2
AspJpeg.Height = AspJpeg.OriginalHeight / 2


'Esse método é opcional, usado para melhorar o visual da imagem.
AspJpeg.Sharpen 1, 150

'Cria um Thumbnail e o grava no caminho abaixo.
AspJpeg.Save "C:\inetpub\wwwroot\SuaConta\miniaturas\nome_do_miniatura.jpg"

'NOTA: Substitua "SuaConta" pelo nome de usuário utilizado no acesso ao Painel de Controle do seu domínio e nome_da_miniatura pelo nome que deseja utilizar no arquivo de miniatura.

'Para enviar o thumbnail para o browser do visitante, utilize o método SendBinary.
Response.Write AspJpeg.SendBinary

'Remove as referências do componente da memória
SET AspJpeg = Nothing
%>

Links Adicionais