ASPJPEG é um shareware produzido pela Persits. O período de teste é de 30 dias. Você pode baixá-lo aqui: http://www.persits.com/aspjpeg.exe. O número da versão mais recente é 1.3
ASPJPEG é um componente de processamento de imagens muito poderoso. Você pode usá-lo para criar facilmente miniaturas de imagens e adicionar marcas d’água às imagens. Aqui está uma breve introdução sobre como usá-lo:
Primeiro você precisa executar o arquivo exe baixado para instalar o componente
1. Crie miniaturas para imagens
<% ///' Criar instância
Dim Jpeg, Caminho
Definir Jpeg = Server.CreateObject(Persits.Jpeg)
///' A localização da imagem
Caminho = Server.MapPath(imagens) & ////clock.jpg
///' Abrir
Jpeg.Caminho aberto
///' Defina o tamanho da miniatura (a proporção é definida como 50% aqui)
Jpeg.Largura = Jpeg.OriginalLargura / 2
Jpeg.Altura = Jpeg.OriginalAltura / 2
///' Salva a miniatura na pasta especificada
Jpeg.Save Server.MapPath(imagens) & ////clock_small.jpg
///' Sair da instância
Definir JPEG = Nada
%>
<IMG SRC=images/clock.jpg><P>
<IMG SRC=images/clock_small.jpg>
2. Adicione função de marca d'água às fotos
<%
DimJpeg
///' Cria instância
Definir Jpeg = Server.CreateObject(Persits.Jpeg)
///' Abre a imagem alvo
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' Adicionar marca d'água de texto
Jpeg.Canvas.Font.Color = &HFF0000///' Vermelho
Jpeg.Canvas.Font.Family = Dinastia Song
Jpeg.Canvas.Font.Bold = Verdadeiro
Jpeg.Canvas.Print 10, 10, Copyright (c) Cnmaya.org
///' Salvar arquivo
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' Cancelar registro do objeto
Definir JPEG = Nada
%>
Fiz uma marca d’água na imagem da última vez, mas o efeito ficou muito ruim. Não consegui fazer com que a imagem tivesse um fundo transparente. Se eu usar um gif de fundo transparente, ele irá preenchê-lo automaticamente com branco. Ao usar a função de remoção de uma determinada cor, a cor da imagem fica sempre impura e o efeito resultante é irregular. Tive uma ideia hoje e combinei esses dois, usando um gif com fundo transparente e extraindo a cor de fundo da marca d'água, e deu certo!
ogvbox.Canvas.Pen.Color = &H000000 ///'// Cor da borda
ogvbox.Canvas.Pen.Width = 1 ///'// A espessura da borda
ogvbox.Canvas.Brush.Solid = False ///'// Se a borda da imagem deve ser preenchida com cor
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// Adicione as coordenadas de posição da imagem (adicione uma imagem de marca d'água), subtraio o tamanho da marca d'água do tamanho da imagem, e adicione a marca d'água no canto inferior direito. A ordem dos parâmetros é: coordenadas horizontais, coordenadas verticais, endereço da imagem da marca d’água, transparência de mercúrio, cor de extração (&H significa hexadecimal)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// As coordenadas de posição e tamanho da linha da borda da imagem
ogvbox.Save Server.MapPath(imagename) ///'// Gerar arquivo
/'//------Visualização e geração de marca d'água do componente Pollener.comAspJpeg------Iniciar------
/'Criar imagem de visualização: chame CreateView (caminho para o arquivo original, nome e caminho do arquivo de visualização)
Sub CreateView (nome da imagem, nome do arquivo temp)
/'Definir variáveis.
Escurecer PreviewImageFolderName
Dim ogvbox,objFont
Escurecer Logobox, LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Adicione o caminho e o nome do arquivo da imagem (o meu é forum //images//shuiyin.gif).
Selecione Caso upload_ViewType
Caso 0
/'---------------------CreatePreviewImage---------------
definir ogvbox = Server.CreateObject (CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Visualizar caminho de armazenamento da imagem.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Largura da visualização.
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'O caminho físico do arquivo original de imagename.
/'Crie um arquivo de imagem de visualização.
Se ogvbox.DoImageProcess = false Então
Response.write gera erro de imagem de visualização:&ogvbox.GetErrString
Terminar se
Caso 1
/'---------------------AspJpegV1.2---------------
Definir Logobox = Server.CreateObject(Persits.Jpeg)
//'//É recomendado não usar marcas d'água de imagem e texto ao mesmo tempo. Este código usa marcas d'água de imagem.
Logobox.Open LogoPath /'//Lê a imagem adicionada.
//'//Redefinir o tamanho da imagem.
Logobox.Width = 186 /'//O valor da largura (pixels) da imagem usada como marca d'água.
Logobox.Height = 52 /'//Valor da altura (pixels) da imagem usada como marca d'água.
//'//Adicionar marca d'água.
Definir ogvbox = Server.CreateObject(Persits.Jpeg)
////Lê o arquivo original a ser processado.
ogvbox.Open Trim(Server.MapPath(nome da imagem))
Se ogvbox.OriginalWidth<Cint(ImageWidth) ou ogvbox.Originalheight<Cint(ImageHeight) Então
F_NomeVisualização=
Definir ogvbox = Nada
Sair do sub
Outro
IF ImageMode<> e FileExt<>gif Then /'//Se você alterar esta linha para IF ImageMode<> Então, você também pode adicionar marcas d'água às imagens GIF enviadas, mas esses GIFs animados só permanecerão após adicionar a marca d'água. é o primeiro quadro. Por favor, manuseie-o de acordo com suas necessidades.
/'//Sobre alterar a fonte e a cor do texto.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//A cor do texto da marca d'água, insira o valor da cor após &H.
/'//ogvbox.Canvas.Font.Size = 18 /'//O tamanho do texto da marca d'água.
/'//ogvbox.Canvas.Font.Family = Arial /'//O nome da fonte do texto da marca d'água.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//A cor da sombra do texto da marca d'água.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//O valor do pixel do deslocamento da sombra do texto da marca d'água para a direita. Se você inserir um valor negativo, ele será deslocado para a esquerda.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//O valor do pixel pelo qual a sombra do texto da marca d'água é deslocada para baixo. Se você inserir um valor negativo, ele será deslocado para a direita.
/'//ogvbox.Canvas.Font.Quality = 3 /'//A clareza do texto da marca d'água varia de 0 a 4. A alteração não é muito grande. Recomenda-se usar 2 ou 3.
/'//ogvbox.Canvas.Font.Bold = True /'//Se o texto da marca d'água está em negrito, True=bold False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Coordenadas iniciais (pixels) do texto da marca d'água.
ogvbox.Canvas.Pen.Color = &H000000 /'//Adiciona marca d'água à cor da borda da imagem.
ogvbox.Canvas.Pen.Width = 1 /'//Aumenta a largura da borda da imagem após a marca d'água.
ogvbox.Canvas.Brush.Solid = False /'//Se a borda estiver preenchida com cor, você pode tentar ver o efeito quando o valor for True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 /'//As coordenadas iniciais da imagem da marca d'água Aqui, ogvbox.width-186, ogvbox.height-52 significa que a imagem está no. canto inferior direito, porque A largura da minha imagem é 186 e a altura é 52, então se você escrever assim, poderá ajustá-la de acordo com sua própria imagem. 0,5 significa transparência, aqui quero dizer translucidez, 1 significa opacidade, você também pode tentar 0,7 ou 0,8 para ver o efeito.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Intervalo disponível de marca d'água. O que quero dizer aqui é que a marca d'água pode ser adicionada em qualquer lugar, do canto superior esquerdo ao canto inferior direito de toda a imagem.
ogvbox.Save Server.MapPath(imagename) /'//Gere o arquivo de imagem com marca d'água adicionada com base nos parâmetros acima.
Terminar se
ogvbox.Width = Largura da imagem
ogvbox.height = Altura da imagem
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Nitidez 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Gera uma imagem de visualização da imagem após adicionar marca d'água.
Terminar se
Definir Logobox=Nada
/'//------Visualização e geração de marca d'água do componente Pollener.comAspJpeg------Fim------