[Resolvido] Marca D'agua

[SuCa 0]

criei um código para inserir marca d'agua nas imagens de um site que estou fazendo, a logo é em gif sem fundo, mas só que quando apresentada no site ela fica com o fundo branco, alguém sabe como fica com o fundo transparente sem que use efeitos em ps?

 

o código é esse

 

 

<%
' Directory with images
Path1 = Server.MapPath("/site/foto2.jpg")
Path2 = Server.MapPath("/site/logoteste.gif")

Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")

Jpeg1.Open Path1
Jpeg2.Open Path2

Jpeg1.Canvas.DrawImage 0, 409, Jpeg2 ' optional arguments omitted
'Jpeg1.DrawImage Jpeg1.Width-630, Jpeg1.Height-120, Jpeg2, , &H000000
Jpeg1.Save Server.MapPath("/site/Xxx_fotos.gif")

%>
<img src="/site/Xxx_fotos.gif">

[Luiz Lahr 0]

Usa imagem png para fundo transparente...

com certeza funciona

[Ted k' 126]

vide manual

http://www.aspjpeg.com/manual_06.html

[xanburzum 169]

olhe este código

 

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

' abre imagem
Jpeg.Open Server.MapPath("../images/image.jpg")

' Redimensionar é opcional.

' Draw texto
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" ' faz antialiasing 
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 ' ou uma barra sólida para drawn
Jpeg.Canvas.DrawBar 1, 1, Jpeg.Width, Jpeg.Height

Jpeg.Save Server.MapPath("image_framed.jpg")
%>

[SuCa 0]

ai pessoal esse é o código para marca d'agua

 

<%
' Caminho das imagens
Path1 = Server.MapPath("/site/piscina.jpg")
Path2 = Server.MapPath("/site/logo.gif")

' Instancia Componente
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")

' Caminho das imagens
Jpeg1.Open Path1
Jpeg2.Open Path2


' Executa as funcoes para inserir a marca com transparencia de fundo branco FFFFFF
Jpeg1.Canvas.DrawImage 0, (Jpeg1.Height/1)-(Jpeg2.Height), Jpeg2, 2, &HFFFFFF, 10


' Salva a Imagem com Marca
Jpeg1.Save Server.MapPath("/site/foto5.jpg")


' Mostra a versao do componente
'Response.Write "Component Version: " & Jpeg1.Version & "<hr>"
%>

<img border="0" src="/site/foto5.jpg">