AspJpeg
|
Utilizando o AspJpeg
Arquivo: aspjpeg.asp ( por exemplo ) <% '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 = "e:\home\SEU_LOGIN_FTP\web\AspJpeg\imagem.jpg" 'Para quem utiliza serviços da REVENDA conosco 'imagem = "E:\vhosts\DOMINIO_COMPLETO\httpdocs\AspJpeg\imagem.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 "e:\home\SEU_LOGIN_FTP\Web\AspJpeg\imagem_mini.jpg" 'Para quem utiliza serviços da REVENDA conosco 'AspJpeg.Save "E:\vhosts\DOMINIO_COMPLETO\httpdocs\AspJpeg\imagem_mini.jpg" '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 %> Neste exemplo foi utilizado o diretório AspJpeg, substitua pelo diretório em que você deseja gravar o thumbnails. Esse diretório necessariamente deve ter permissão de "Leitura/Escrita" que deve ser concedido através do painel de controle conforme instruções do artigo Alterando a permissão de pastas em Windows .
Veja tambémLinks |
||||