Ce script permet, grace au composant aspimage, de fusionner une image avec du texte.
<%
Dim Image, strMessage
' Création de l'objet
Set Image = Server.CreateObject("AspImage.Image")
' Paramètres
Image.FontColor = vbBlack
Image.Italic = True
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
' Calcule la taille du texte d'information et définit l'image à cette taille
strMessage = "Bienvenue sur Platine.com"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
' Création d'un vecteur
Image.GradientOneWay vbRed, vbWhite, 0
' Ajoute le texte à l'image
Image.TextOut strMessage, Image.X, Image.Y, false
' Définition du chemin et du nom de l'image
Image.FileName = "D:\clients\upload\msg1.jpg"
' Sauvegarde de l'image contenant le texte
If Image.SaveImage Then
' L'image est sauvegardée, on l'affiche
' (Attention de bien doubler les "guillemets")
Response.Write "<img src=""/upload/msg1.jpg"">"
Else
' Erreur : affichage du type d'erreur
Response.Write "<h2>Erreur : " & Image.Error & "</h2>"
End If
' Destruction de l'objet
Set Image = Nothing
%>
|
| Retour |
|
|
