Bonjour à tous.
Je suis actuellement sur un projet destiné aux photographes en ASP3, pour la gestion de leurs photos, qui seront publiées ensuite sur un site internet dans une sorte de galerie.
J'utilise le composant Gflax pour retoucher les photos, principalement les tailles. Mais je souhaiterais rajouter un watermark texte au 4 coins de la photo. Pour le moment, je test avec du texte, et peut être qu'après, je verrai pour y mettre des images.
Dans un premier temps, je crée une miniature de cette photo, puis je passe au watermark. Avant le traitement, l'admin du site pourra indiquer si il veut un watermark, si oui dans quels coins il veut les faire apparaître et bien sûr quel texte mettre.
Voici le code que je me suis fait :
Code VBScript :
if activation_watermark <> "non" then
if watermark = "" then
sqlsiteweb = "select * from products where base='conf' and affaire=true and ucase(categorie)='site-domaine' order by refnum1"
set rssiteweb = server.createobject("adodb.recordset")
rssiteweb.open sqlsiteweb,conn ,3,3
if rssiteweb.recordcount > 0 then
watermark = rssiteweb("titre2")
end if
rssiteweb.close
set rssiteweb = nothing
end if
fontcolor_red = 0
fontcolor_green = 0
fontcolor_blue = 0
' calcul de la taille du watermark
len_watermark = len(watermark)
fontsize = 0.5
tabposition_watermark = split(position_watermark,", ")
for each item in tabposition_watermark
pos_left = 0
if item = "haut gauche" then
pos_left = 10
pos_top = 10
.textout ucase(watermark), pos_left, pos_top, rgb(fontcolor_red,fontcolor_green,fontcolor_blue)
end if
if item = "haut droite" then
pos_top = 0
for i=1 to len_watermark
if mid(strreverse(watermark),i,1) = "." or mid(strreverse(watermark),i,1) = " " or mid(strreverse(watermark),i,1) = "_" then
fontsize = 2
fontcolor_red = 255
else
fontsize = 2
fontcolor_red = 0
end if
if pos_left > 0 then
pos_left = pos_left - (fontsize * i)
else
pos_left = maxwidth - (fontsize * i)
end if
.textout ucase(mid(strreverse(watermark),i,1)), pos_left, pos_top, rgb(fontcolor_red,fontcolor_green,fontcolor_blue)
next
end if
if item = "bas gauche" then
pos_left = 0
pos_top = maxheight - 70
.textout ucase(watermark), pos_left, pos_top, rgb(fontcolor_red,fontcolor_green,fontcolor_blue)
end if
if item = "bas droite" then
pos_top = maxheight - 70
for i=1 to len_watermark
if mid(strreverse(watermark),i,1) = "." or mid(strreverse(watermark),i,1) = " " or mid(strreverse(watermark),i,1) = "_" then
fontsize = 0.5
fontcolor_red = 255
else
fontsize = 0.5
fontcolor_red = 0
end if
if pos_left > 0 then
pos_left = pos_left - (fontsize * i)
else
pos_left = maxwidth - (fontsize * i)
end if
.textout ucase(mid(strreverse(watermark),i,1)), pos_left, pos_top, rgb(fontcolor_red,fontcolor_green,fontcolor_blue)
next
end if
next
end ifSi le watermark est activé mais qu'aucun texte est saisi, je prend par défaut le nom de domaine du site. Pour les coins haut gauche et bas gauche, rien de difficile, mais c'est plus pour les 2 autres que çà me pose problème.
Comme peut le montrer ces 2 screens :
En fait, je pars du bord droit de ma photo, et j'insère 1 par 1 les caractères de mon watermark en allant vers la gauche.
Que dois je faire pour que les watermarks de droite soient placés comme il faut ?
Donc quelqu'un aurait la gentillesse de m'aider s'il vous plait ?
Je commence à devenir fou :D
Merci d'avance
Kcin