O que eu digo hoje é o conhecimento do ASP para adicionar marcas d'água à foto .. meu ASP aprende muito mal ..
ASP para adicionar marcas d'água à imagem requer componentes ... comumente usados aspjpeg e os chineses desenvolveram WSIMAGE ... O primeiro é gratuito por 30 dias ... o último é totalmente gratuito ... é claro que temos que usar os produtos de Povo chinês.
O componente pode baixar http://aknife.ys168.com (faça o download da versão 3.0) em http://aknife.ys168.com
Método de componentes de registro:
Digite "Regsvr32 [Path DLL]" sob o prompt de comando
Adicionar marcas d'água à imagem nada mais é do que obter o tamanho da imagem e, em seguida, escreva a marca d'água. O código apenas desempenha o papel de um componente de controle.
Um: obtenha o tamanho da imagem (aqui é representado por valores de pixels. Amigos que aprendem o Photoshop devem entender)
| A seguir, o fragmento de código: <% set obj = server.createObject ("wsimage.resize") '' -Call componente componente obj.loadsouppic server.mappath ("25.jpg") '' '' Abra a imagem, o nome da imagem é 25.jpg obj.getsourceinfo iwidth, iHeight Response.Write "Largura da imagem:" & Iwidth & "<br>" "" Obtenha a largura da foto Response.Write "Picture Hight:" & Ipight & "<br>" "" Obtenha a altura da imagem strerror = obj.errorinfo Se Strerror <> "" então Response.Write obj.errorinfo final se obj.free Definir obj = nada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Dois: adicione uma marca d'água de texto <% set obj = server.createObject ("wsimage.resize") obj.loadsouppic server.mappath ("25.jpg") '' obj.quality = 75 obj.txtmarkfont = "Cloud de cores chinês" '' Defina a fonte de texto da marca d'água obj.txtmarkbond = false '' Defina a espessura do texto da marca d'água obj.markrotate = 0 '' 'ângulo rotativo do texto da marca d'água obj.txtmarkheigh = 25 '' 'Altura do texto hidalino obj.addtxtmark server.mappath ("txtmark.jpg"), "Tire você do país", & h00FF00 &, 10, 70 Strerror = obj.errorinfo '' para gerar nome de figuras, a cor do texto é uma marca d'água na localização da imagem Se Strerror <> "" então Response.Write obj.errorinfo final se obj.free Definir obj = nada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Três: Adicione fotos de marcas de água <% set obj = server.createObject ("wsimage.resize") obj.loadsouppic server.mappath ("25.jpg") '' obj.loadimgmarkpic Server.mappath ("Blend.bmp") '' obj.quality = 75 obj.addimgmark server.mappath ("imgmark.jpg"), 315, 220 e hffffffff, 70 Strerror = obj.errorinfo '' para gerar nome de figuras, a cor do texto é uma marca d'água na localização da imagem Se Strerror <> "" então Response.Write obj.errorinfo final se obj.free Definir obj = nada %> '' -------------------------------------------------- --------------------------------------------- ----- ------------ De fato, adicionar marcas d'água à imagem é tão simples quanto eu disse que os outros dois principais usos do componente WSIMAGE.DLL. Corte a imagem e gere a miniatura da imagem. Eu ainda tenho que me acostumar, use código para adicionar injetos para explicar: Corte a imagem: <% set obj = server.createObject ("wsimage.resize") obj.loadsouppic server.mappath ("25.jpg") obj.quality = 75 Obj.cropimage server.mappath ("" 25_crop.jpg "), 100.10.200.200 '' 'Definir nomes de corte e geração de imagens strerror = obj.errorinfo Se Strerror <> "" então Response.Write obj.errorinfo final se obj.free Definir obj = nada %> Nota detalhada: O método de cutimage do WSIMage é usado para reduzir a figura. A imagem e os 10 pixels superiores no topo. '' ------------------------------------------------ --------------------------------------------- ----- ------------ Gerar fotos de fotos: <% set obj = server.createObject ("wsimage.resize") obj.loadsouppic server.mappath ("25.jpg") '' obj.quality = 75 obj.outputppic server.mappath ("" 25_s.jpg "), 0,5,0,5,3 '' '' O nome do diagrama de definição é o tamanho do tamanho strerror = obj.errorinfo Se Strerror <> "" então Response.Write obj.errorinfo final se obj.free Definir obj = nada %> |
Existem quatro métodos de exportação:
(1) obj.outputspic server.mappath ("25_s.jpg"), 200,150,0
200 é a largura de saída, 150 é a alta de saída.
(2) obj.outputapic server.mappath ("25_s.jpg"), 200,0,1
Com 200 largura de saída, a saída alta será escalada com a coluna.