ASPJPEG es un shareware producido por Persits. El período de prueba es de 30 días. Puede descargarlo aquí: http://www.persits.com/aspjpeg.exe. El último número de versión es 1.3.
ASPJPEG es un componente de procesamiento de imágenes muy poderoso. Puede usarlo para crear fácilmente miniaturas de imágenes y agregar marcas de agua a las mismas. Aquí hay una breve introducción sobre cómo usarlo:
Primero debe ejecutar el archivo exe descargado para instalar el componente.
1. Crea miniaturas para imágenes.
<% ///' Crear instancia
Jpeg tenue, ruta
Establecer Jpeg = Server.CreateObject(Persits.Jpeg)
///' La ubicación de la imagen.
Ruta = Server.MapPath(imágenes) & ////reloj.jpg
///' Abierto
Jpeg.Ruta abierta
///' Establece el tamaño de la miniatura (aquí la proporción se establece en 50%)
Jpeg.Ancho = Jpeg.AnchoOriginal / 2
Jpeg.Altura = Jpeg.AlturaOriginal / 2
///' Guarda la miniatura en la carpeta especificada
Jpeg.Save Server.MapPath(imágenes) & ////clock_small.jpg
///' Cerrar sesión en la instancia
Establecer Jpeg = Nada
%>
<IMG SRC=imagenes/reloj.jpg><P>
<IMG SRC=imagenes/reloj_pequeño.jpg>
2. Agregue la función de marca de agua a las imágenes.
<%
DimJpeg
///' Crear instancia
Establecer Jpeg = Server.CreateObject(Persits.Jpeg)
///' Abre la imagen de destino
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' Agregar marca de agua de texto
Jpeg.Canvas.Font.Color = &HFF0000///' Rojo
Jpeg.Canvas.Font.Family = Dinastía Song
Jpeg.Canvas.Font.Bold = Verdadero
Jpeg.Canvas.Print 10, 10, Copyright (c) Cnmaya.org
///'Guardar archivo
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' Dar de baja el objeto
Establecer Jpeg = Nada
%>
La última vez hice una marca de agua para la imagen, pero el efecto fue muy pobre. No pude hacer que la imagen tuviera un fondo transparente. Si uso un gif de fondo transparente, lo llenará automáticamente de blanco. Cuando se utiliza la función para eliminar un determinado color, el color de la imagen siempre es impuro y el efecto resultante es irregular. Tuve una idea hoy y combiné estos dos, usando un gif con un fondo transparente y extrayendo el color de fondo de la marca de agua, ¡y funcionó!
ogvbox.Canvas.Pen.Color = &H000000 ///'// Color del borde
ogvbox.Canvas.Pen.Width = 1 ///'// El grosor del borde
ogvbox.Canvas.Brush.Solid = False ///'// Si se debe rellenar el borde de la imagen con color
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox, 0.3,&HFFFFFF ///'// Agregue las coordenadas de posición de la imagen (agregue una imagen de marca de agua), resto el tamaño de la marca de agua del tamaño de la imagen, y agregue la marca de agua en la esquina inferior derecha. El orden de los parámetros es: coordenadas horizontales, coordenadas verticales, dirección de imagen de marca de agua, transparencia de mercurio, color de extracción (&H significa hexadecimal)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// Las coordenadas de posición y el tamaño de la línea del borde de la imagen
ogvbox.Save Server.MapPath(nombreimagen) ///'// Generar archivo
/'//------Vista previa y generación de marca de agua del componente Pollener.comAspJpeg------Inicio------
/'Crear imagen de vista previa: llamar a CreateView (ruta al archivo original, nombre del archivo de vista previa y ruta)
Sub CreateView (nombre de imagen, nombre de archivo temporal)
/'Definir variables.
Nombre de carpeta de imagen de vista previa tenue
Dim ogvbox, objFont
Logobox tenue, LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Agregue la ruta y el nombre del archivo de la imagen (el mío es foro //images//shuiyin.gif).
Seleccione Caso upload_ViewType
Caso 0
/'---------------------Crear imagen de vista previa---------------
establecer ogvbox = Server.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Vista previa de la ruta de almacenamiento de la imagen.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Ancho de vista previa.
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'La ruta física del archivo original de imagenname.
/'Crear un archivo de imagen de vista previa.
Si ogvbox.DoImageProcess=false Entonces
Response.write genera un error de imagen de vista previa:&ogvbox.GetErrString
Terminar si
Caso 1
/'---------------------AspJpegV1.2---------------
Establecer Logobox = Server.CreateObject(Persits.Jpeg)
//'//Se recomienda no utilizar marcas de agua de imagen y texto al mismo tiempo. Este código utiliza marcas de agua de imagen.
Logobox.Open LogoPath /'//Lee la imagen agregada.
//'//Restablecer el tamaño de la imagen.
Logobox.Width = 186 /'//El valor del ancho (píxeles) de la imagen utilizada como marca de agua.
Logobox.Height = 52 /'//Valor de altura (píxeles) de la imagen utilizada como marca de agua.
//'//Agregar marca de agua.
Establecer ogvbox = Server.CreateObject(Persits.Jpeg)
/'//Leer el archivo original a procesar.
ogvbox.Open Trim(Server.MapPath(nombre de imagen))
Si ogvbox.OriginalWidth<Cint(ImageWidth) u ogvbox.Originalheight<Cint(ImageHeight) Entonces
F_Viewname=
Establecer ogvbox = Nada
Salir Sub
Demás
IF ImageMode<> y FileExt<>gif Then /'//Si cambia esta línea a IF ImageMode<> Then, también puede agregar marcas de agua a las imágenes GIF cargadas, pero esos GIF animados solo permanecerán después de agregar la marca de agua. es el primer cuadro. Manéjelo según sus necesidades.
/'//Acerca de cambiar la fuente y el color del texto.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//El color del texto de la marca de agua, ingrese el valor del color después de &H.
/'//ogvbox.Canvas.Font.Size = 18 /'//El tamaño del texto de la marca de agua.
/'//ogvbox.Canvas.Font.Family = Arial /'//El nombre de fuente del texto de la marca de agua.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//El color de sombra del texto de la marca de agua.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//El valor de píxel de la sombra del texto de la marca de agua se desplaza hacia la derecha. Si ingresa un valor negativo, se desplazará hacia la izquierda.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//El valor de píxel por el cual la sombra del texto de la marca de agua se desplaza hacia abajo. Si ingresa un valor negativo, se desplazará hacia la derecha.
/'//ogvbox.Canvas.Font.Quality = 3 /'//La claridad del texto de la marca de agua varía de 0 a 4. El cambio no es muy grande. Se recomienda utilizar 2 o 3.
/'//ogvbox.Canvas.Font.Bold = True /'//Si el texto de la marca de agua está en negrita, True=negrita False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Coordenadas iniciales (píxeles) del texto de la marca de agua.
ogvbox.Canvas.Pen.Color = &H000000 /'//Agregue marca de agua al color del borde de la imagen.
ogvbox.Canvas.Pen.Width = 1 /'//Aumentar el ancho del borde de la imagen después de la marca de agua.
ogvbox.Canvas.Brush.Solid = False /'//Si el borde está lleno de color, puedes probarlo para ver el efecto cuando el valor es True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 /'// Las coordenadas iniciales de la imagen de la marca de agua aquí, ogvbox.width-186, ogvbox.height-52 significa que la imagen está en el. esquina inferior derecha, porque El ancho de mi imagen es 186 y el alto es 52, así que si lo escribes así, puedes ajustarlo según tu propia imagen. 0,5 significa transparencia, aquí me refiero a translucidez, 1 significa opacidad, también puedes probar con 0,7 o 0,8 para ver el efecto.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Rango disponible de marca de agua. Lo que quiero decir aquí es que la marca de agua se puede agregar en cualquier lugar desde la esquina superior izquierda hasta la esquina inferior derecha de toda la imagen.
ogvbox.Save Server.MapPath(imagename) /'//Genere el archivo de imagen con la marca de agua agregada según los parámetros anteriores.
Terminar si
ogvbox.Width = Ancho de imagen
ogvbox.height = Altura de la imagen
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Afilar 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Genere una imagen de vista previa de la imagen después de agregar la marca de agua.
Terminar si
Establecer Logobox=Nada
/'//------Vista previa y generación de marca de agua del componente Pollener.comAspJpeg------Fin------