Suporte - Componentes ASP - ASPJpeg
http://www.mco2.com.br/suporte_componentes_aspjpeg.asp
Site: www.mco2.com.br
E-mail: atendimento@mco2.com.br
Telefone: (11) 2239-1442
21/11/2008 07:43
Fabricante: Persits Software, Inc (www.persits.com/)
Documentação: http://www.aspjpeg.com/
Exemplo de implementação:
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre a imagem que está gravada na pastado site
Jpeg.Open "D:\www\vhosts\mco2\usuario\imagens\foto_1.jpg"
'Reduz o tamanho em 50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Cria o thumbnail e grava na mesma pasta, porém com outro nome
Jpeg.Save "D:\www\vhosts\mco2\usuario\imagens\foto_1_p.jpg"
Response.Write jpeg.SendBinary
Set Jpeg = Nothing
%>