O AspImage é um componente ASP que permite criar e modificar imagens no formato JPG, GIF, BMP e PNG automaticamente.
Este componente da Server Objects tem sua licença shareware e normalmente está disponíveis nos servidores de hospedagem.
Pode ser utilizado para redimencionar automaticamente a imagem, rotacionar, recortar além de disponibilizar vários efeitos como sharpen, distorção entre outros.
O código abaixo apresenta duas funcionalidades do componente, como criar um thumbnail e como acrescentar um texto na imagem.
Criar Thumbnail de uma imagem
<%
' Cria uma instância do controle
Set AspImage = Server.CreateObject("AspImage.Image")
' Carrega a imagem
AspImage.LoadImage( Server.MapPath("imagem.jpg") )
' Propriedades da imagem
AspImage.ImageFormat = 1
AspImage.JPEGQuality = 100
' Redimensiona a imagem
AspImage.ResizeR 200, 80
' Salva a imagem
AspImage.FileName = Server.MapPath("imagem_thumbnail.jpg")
AspImage.SaveImage
' Tira o objeto da memória
Set AspImage = Nothing
Response.Write "![]()
"
%>
Criar uma imagem de texto
<%
' Cria uma instância do controle
Set AspImage = Server.CreateObject("AspImage.Image")
' Texto a ser excrito
strMessage = "AspImage - ServerObjects"
' Seta as propriedades do Texto
AspImage.Bold = True
AspImage.Italic = False
AspImage.Underline = False
AspImage.FontColor = vbBlue
AspImage.FontName = "Tahoma"
AspImage.FontSize = 30
AspImage.MaxX = AspImage.TextWidth(strMessage)
AspImage.MaxY = AspImage.TextHeight(strMessage)
' Cria a imagem com o texto
AspImage.TextOut strMessage, AspImage.X, AspImage.Y, False
' Salva a imagem
AspImage.FileName = Server.MapPath("imagem_texto.jpg")
AspImage.SaveImage
' Tira o objeto da memória
Set AspImage = Nothing
' Exibe a imagem na tela
Response.Write "![]()
"
%>
