Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

Marca D'Agua em imagens

$
0
0

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/


Viewing all articles
Browse latest Browse all 1214

Trending Articles