Ajouter une fonction de filigrane aux images et créer des vignettes pour les images 1. Ajouter une fonction de filigrane aux images
Faible Jpeg
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'Créer un objet
Jpeg.Open BlogPath & /upload/ & FileName ' L'emplacement de l'image
Jpeg.Canvas.Font.Color = &H000000 ' Couleur, ici elle est définie sur : noir
Jpeg.Canvas.Font.Family = Le fondateur devient une police simplifiée
Jpeg.Canvas.Font.Bold = False 'S'il faut le mettre en gras
Jpeg.Canvas.Font.Size = 26' Taille de la police
Jpeg.Canvas.Font.Quality = 4 ' Clarté du texte
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'Texte du filigrane
Jpeg.Save BlogPath & /upload/ & FileName ' Enregistrer le fichier
Définir Jpeg = Rien
2. Créez des vignettes pour les images
Faible Jpeg
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'Créer un objet
Jpeg.Open BlogPath & /upload/ & FileName ' L'emplacement de l'image
Jpeg.Largeur = Jpeg.OriginalWidth / 2
Jpeg.Hauteur = Jpeg.OriginalHeight / 2
'Définissez la taille de la vignette (ici le ratio est fixé à 50%), vous pouvez également lui donner une valeur précise, telle que Jpeg.Width=120
Jpeg.Save BlogPath & /upload/ & FileName ' Enregistrer le fichier
Définir Jpeg = Rien