Ce script permet, grace au composant aspimage, de fusionner une image avec du texte.
<%@ Page aspcompat=true language="VB"%>
<%
Dim Image as Object
Dim strMessage as Object
Dim color2 as Object
Dim color3 as Object
' Création de l'objet
Image = Server.CreateObject("AspImage.Image")
' Paramètres
Image.FontColor = RGB(&h00, &h00, &h00) ' Couleur Noire
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
color2 = RGB(&hAA, &h11, &h11) ' Couleur Rouge
color3 = RGB(&hE2, &hBB, &hF3) ' Couleur Blanche
Image.GradientOneWay (color2, color3, 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
Image = Nothing
%>
|
| Retour |
|
|
