Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

Marca D'Agua em imagens

Recommended Posts

Ola Galera boa noite!

encontrei um codigo no laboratorio, muito interessante pra mim.

marca d'agua na

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Open source image
Jpeg.Open Server.MapPath("../images/dodge_viper.jpg")

' Resizing is optional. None in this code sample.

' Draw text
Jpeg.Canvas.Font.Color = &HFF0000 ' Red
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Quality = 4 ' Antialiased
Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
Jpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc."

' Draw frame: black, 2-pixel width
Jpeg.Canvas.Pen.Color = &H000000 ' Black
Jpeg.Canvas.Pen.Width = 2
Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
Jpeg.Canvas.DrawBar 1, 1, Jpeg.Width, Jpeg.Height

Jpeg.Save Server.MapPath("dodge_viper_framed.jpg")

oq eu coloco nessas linhas,

Jpeg.Open Server.MapPath("../images/dodge_viper.jpg")
Jpeg.Save Server.MapPath("dodge_viper_framed.jpg")

vejam como esta la no laboratorio

http://forum.imasters.com.br/topic/188223-criar-marca-d-gua-em-fotos/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Jpeg.Open Server.MapPath("../images/dodge_viper.jpg") - esta é para abrir o endereço da img

 

Jpeg.Save Server.MapPath("dodge_viper_framed.jpg") - e este é o caminho onde vai salvar a img

Compartilhar este post


Link para o post
Compartilhar em outros sites

no Jpeg.Canvas.Print 10, 572,"X@nBurzum © Inc."

 

onde 10 e 572 serão as coordenadas x e y

Compartilhar este post


Link para o post
Compartilhar em outros sites

a marca d ´agua neste caso seria - X@nBurzum © Inc nas coordenadas 10 e 572 que é x e y

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.