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
19/03/2010 10:18
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 Server.MapPath("/imagens/foto.jpg")
'Reduz o tamanho em 50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Cria o thumbnail e grava em outra pasta
Jpeg.Open Server.MapPath("/imagens_reduzidas/foto.jpg")
Response.Write jpeg.SendBinary
Set Jpeg = Nothing
%>