Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho um script pra colocar marca d'agua nas fotos. Está funcionando, mas minha hospedagem nao funciona ("Persits.Jpeg").
Alguém tem outro código??
' Instancia Componente
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
' Caminho das imagens
Path1 = "c:\images\fotos\" & rs("FOTO")
Path2 = "c:\images\logo.png"
' 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 "c:\images\fotos\" & rs("FOTO")
Carregando comentários...