Olá pessoal! Vamos curtir a 2° Parte do nosso artigo! Bom estudo!

function.asp

Enfim chegamos as nossas funções, chaves mestras deste nosso projeto.

Função para renomear imagem.

Vamos inicialmente a função para renomear nossa imagem. Bom, na linha 20 do arquivo upload_foto.asp, utilizamos a seguinte sintese:

20 renomeiafoto "fotos/" &objFile.Filename, "fotos/"&nome
Temos ai 2 parâmetros passados: o 1° "fotos/"&objFile.Filename, que é o local e nome da imagem inicial, e o 2° "fotos/"&nome, que é o local e o novo nome criado.(linha 19)

Legal, agora vamos implementar nossa função.

function renomeiafoto(file,newfile)[[br]] Set fso = CreateObject("Scripting.FileSystemObject")[[br]] if fso.FileExists(server.MapPath(file)) Then[[br]] fso.CopyFile server.MapPath(file), server.MapPath(newfile)[[br]] fso.DeleteFile(server.MapPath(file))[[br]] end if[[br]] Set fso = nothing[[br]] end function[[br]]

Na linha 1 criamos nossa função.
Na linha 2 cria um objeto do tipo FileSystemObject.
Na linha 3 o método FileExists retorna True caso o parâmetro passado ( server.MapPath(file) ) exista.
Na linha 4 o método CopyFile faz uma cópia da nossa imagem, trocando o nome dela.
Na linha 5 deletamos a imagem que foi copiada, restando somente a cópia, já com o novo nome passado no parâmetro.
Na linha 6, 7 e 8, finalizamos nosso if, destruímos o objeto e encerramos nossa função, respectivamente.

É chegada a melhor parte do nosso projeto. Até agora nós: Fizemos upload da imagem e trocamos o nome dela, agora iremos personalizá-la.

Função para personalização da imagem

Na linha 21 do arquivo upload_foto.asp, logo após renomearmos o arquivo, utilizamos a seguinte síntese:

AspJpeg "fotos/", "fotos/",nome,2,640,480,100,130
Temos agora 8 parâmetros passados. São eles: Caminho da origem da imagem, Destino da Imagem Personalizada, o nome da imagem, identificação que permite nossa função saber se a imagem vai ser redimensionada de forma proporcional ou manual, a largura final, a altura final, o valor da qualidade de compactação, e o nível de nitidez.

dim JpegLogo, JpegImage, JpegLogoPath[[br]] [[br]] Function AspJpeg(Path_ori,Path_dest,img,prop,larg,alt,quali,sharp)[[br]] JpegImage = server.MapPath(Path_ori&img)[[br]] Set AspJpeg = Server.CreateObject("Persits.Jpeg")[[br]] AspJpeg.Open(JpegImage)
Vamos a função.

Na linha 1 declaramos as variáveis que iremos utilizar. Na linha 2 criamos nossa função e seus parâmetros. Na linha 3 detectamos onde esta localizado a imagem no servidor (é necessário ter o caminho físico) e preenchemos a variável JpegImage. Na linha 4 criamos nosso objeto AspJpeg, de acordo com nosso componente. Na linha 5 abrimos a imagem de acordo com a variável JpegImage.

Iremos analizar o valor da variável prop, especificada com o numero 2 no nosso código. Saberemos com ela se a imagem vai ser redimensionada de forma proporcional ou manual.

If prop = 0 then[[br]] AspJpeg.Width = AspJpeg.OriginalWidth[[br]] AspJpeg.Height = AspJpeg.OriginalHeight
Caso prop = 0 a função não altera a imagem. Caso prop = 1 a função redimensiona a imagem de forma proporcional. O sistema analiza a dimensão determinada e altera de forma proporcional. Caso prop = 2 ( nosso caso em questão ). O programador determinará o tamanho, tanto largura, quanto altura. Só programei essa funcionalidade pois você poderá usa-la usar este projeto em outros meios.

Nas linhas 6,7 e 8 caso estivéssemos utilizando prop=0, apenas deixaríamos a imagem como ela esta.

elseif prop=1 then[[br]] if alt <> "0" then[[br]] AspJpeg.Height = alt[[br]] AspJpeg.Width = AspJpeg.OriginalWidth * AspJpeg.Height / AspJpeg.OriginalHeight[[br]] elseif larg <>"0" then[[br]] AspJpeg.Width = larg[[br]] AspJpeg.Height = AspJpeg.OriginalHeight * AspJpeg.Width / AspJpeg.OriginalWidth[[br]] end if
Nas linhas de 9 a 16 caso estivéssemos utilizando prop=1, apenas recebemos o valor da altura(linha 11) e da largura(linha14), caso ambos diferentes de vazio e fazendo um calculo simples para achar uma melhor proporção para a imagem.

Agora vamos ao nosso caso prop = 2.

else[[br]] AspJpeg.Width = larg[[br]] AspJpeg.Height = alt[[br]] end if <br>
Nas linhas 18 e 19 recebemos a largura e altura.

if sharp <> "0" or sharp > "100" then[[br]] AspJpeg.Sharpen 1, sharp[[br]] end if
Nas linhas de 21 a 23 determinamos o nível de nitidez. O valor passado no parâmetro deve ser maior que 100.

AspJpeg.Interpolation = 1[[br]] 25 AspJpeg.Quality = quali
Na linha 25 determinamos o nível de compactação da imagem. O valor passado deve estar entre 0 e 100.                

                                  
Desenhando um Quadrado na Imagem

AspJpeg.Canvas.Pen.Color = &H990000[[br]] AspJpeg.Canvas.Pen.Width = 40[[br]] AspJpeg.Canvas.Line 0, AspJpeg.Height, AspJpeg.Width, AspJpeg.Height
Na Linha 26 escolhemos a cor da caneta. Na linha 27 a largura da caneta, e na linha 28 o tipo da linha e dimensões do quadrado, sendo: AspJpeg.Canvas.Line(posição esquerda, topo, direita, inferior).

Desenhando uma Borda na Imagem
                                  
29 AspJpeg.Canvas.Pen.Color = &H990000
30 AspJpeg.Canvas.Pen.Width = 2
31 AspJpeg.Canvas.Brush.Solid = false
32 AspJpeg.Canvas.Bar 1, 1, AspJpeg.Width, AspJpeg.Height

O procedimento é igual ao da criação do quadrado, só que no caso da borda, usaremos o preenchimento do quadrado transparente e o tamanho, o mesmo da imagem!
           
Na linha 29 escolhemos a cor da caneta. Na linha 30 a altura da ponta. Na linha 31 determinamos se o peenchimento é solido ou tranparente. Neste caso, false = transparent. Na linha 32 efetuamos o desenho dentro das especificações. Canvas.Bar(posição esquerda, topo, direita, inferior).

Colocando texto sobre imagem
                                  
33 AspJpeg.Canvas.Font.Color = &HFFFFFF' branco
34 AspJpeg.Canvas.Font.Family = "Tahoma"
35 AspJpeg.Canvas.Font.Bold = True
36 AspJpeg.Canvas.Font.Size = 14
37 AspJpeg.Canvas.Print AspJpeg.Width-340, AspJpeg.Height-18, "w w w . j o h n a t a n . n e t –Matéria http://www.com.br/"

Na linha 33 escolhemos a cor da fonte. Na linha 34 o tipo de fonte a ser usada. Na linha 35 especificamos se vamos ou não usar negrito. Na linha 36 o tamanho da fonte. Na linha 37 imprimimos o texto especificado, seguindo a posição. Canvas.Print(posição x, y, texto).

Colocando Marca D Água na Imagem
                                  
38 Set JpegLogo = Server.CreateObject("Persits.Jpeg")
39 JpegLogoPath = Server.MapPath("img/marca.gif")
40 JpegLogo.Open JpegLogoPath
41 AspJpeg.DrawImage AspJpeg.Width-630, AspJpeg.Height-120, JpegLogo, , &H000000

Na linha 38 criamos um novo objeto junto ao componente. Na linha 39 determinamos o caminho físico da imagem a ser colocada por cima da nossa. Na linha 40 abrimos a imagem especificada e na Linha 41 fundimos as imagens.
DrawImage posicaox,posicaoy,imagem,opacidade(1 total, 0.5 - 50%),e cor a ser ignorada
                                  
42 AspJpeg.Save server.MapPath(Path_dest&img)                           
43 set AspJpeg = nothing                   
44 end function
%>

Na linha 42 salvamos a imagem e nas linhas 43 e 44 destruímos o objeto e finalizamos a função.

Resultado Final

Original

Bom, obrigado pela atenção. Bom estudo.