con el tema de el componente aspjpeg le he preguntado a mi hosting y me a dicho que no lo disponen pero que tienen otra cosa similar y me han pasado estos codigos, haber si alguien me dice si realmente hacen lo mismo
Código:
Disponemos de otro componente para el tratamiento de imagenes que te permite redimensionar imagenes y obtener las propiedades de las mismas.
Te envio a continuación 2 ejemplos de su utilización por si os pudiera servir:
1.- Obtiene dimensiones de una imagen
<%
Response.Buffer = true
dim obImgEngine
dim obImage
set obImgEngine = Server.CreateObject("SOFTOMATIX.ChartEngine")
strImgFile = Server.MapPath("imagenes/cabecera.jpg")
'response.write strImgFile
set obImage = obImgEngine.GetImageSize(strImgFile)
Response.Write("Width: " & obImage.Width)
Response.Write("<br>")
Response.Write("Height: " & obImage.Height)
%>
2.- Redimensiona una imagen
<%
Response.Buffer = true
dim obImgEngine
dim obImage
on error resume next
set obImgEngine = Server.CreateObject("SOFTOMATIX.ChartEngine")
strImgFile = Server.MapPath("CD001.jpg")
strDestFile = Server.MapPath("CD001_th.jpg")
respuesta=obImgEngine.CreateThumbnail(strImgFile, strDestFile, 30, 30, 1)
if err<>0 then
Response.Write err.description
else
response.write "Imagen redimensionada correctamente"
end if
%>