ASPJPEG est un shareware produit par Persits. La période d'essai est de 30 jours. Vous pouvez le télécharger ici : http://www.persits.com/aspjpeg.exe. Le dernier numéro de version est 1.3
ASPJPEG est un composant de traitement d'image très puissant. Vous pouvez l'utiliser pour créer facilement des vignettes d'images et ajouter des filigranes aux images. Voici une brève introduction à la façon de l’utiliser :
Vous devez d'abord exécuter le fichier exe téléchargé pour installer le composant
1. Créez des vignettes pour les images
<% ///' Créer une instance
Dim Jpeg,Chemin
Définir Jpeg = Server.CreateObject (Persits.Jpeg)
///' L'emplacement de l'image
Chemin = Server.MapPath(images) & ////clock.jpg
///' Ouvrir
Jpeg.Chemin ouvert
///' Définit la taille de la vignette (le ratio est ici fixé à 50 %)
Jpeg.Largeur = Jpeg.OriginalWidth / 2
Jpeg.Hauteur = Jpeg.OriginalHeight / 2
///' Enregistre la vignette dans le dossier spécifié
Jpeg.Save Server.MapPath(images) & ////clock_small.jpg
///' Déconnexion de l'instance
Définir Jpeg = Rien
%>
<IMG SRC=images/horloge.jpg><P>
<IMG SRC=images/clock_small.jpg>
2. Ajouter une fonction de filigrane aux images
<%
DimJpeg
///' Créer une instance
Définir Jpeg = Server.CreateObject (Persits.Jpeg)
///' Ouvrir l'image cible
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' Ajouter un filigrane de texte
Jpeg.Canvas.Font.Color = &HFF0000///' Rouge
Jpeg.Canvas.Font.Family = Dynastie Song
Jpeg.Canvas.Font.Bold = Vrai
Jpeg.Canvas.Print 10, 10, Copyright (c) Cnmaya.org
///' Enregistrer le fichier
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' Désenregistrer l'objet
Définir Jpeg = Rien
%>
J'ai fait un filigrane d'image la dernière fois, mais l'effet était très médiocre. Je n'ai pas pu faire en sorte que l'image ait un fond transparent. Si j'utilise un gif d'arrière-plan transparent, il le remplira automatiquement de blanc. Lorsque vous utilisez la fonction pour supprimer une certaine couleur, la couleur de l'image est toujours impure et l'effet résultant est inégal. J'ai eu une idée aujourd'hui et j'ai combiné les deux, en utilisant un gif avec un fond transparent et en extrayant la couleur de fond du filigrane, et ça a fonctionné !
ogvbox.Canvas.Pen.Color = &H000000 ///'// Couleur de la bordure
ogvbox.Canvas.Pen.Width = 1 ///'// L'épaisseur de la bordure
ogvbox.Canvas.Brush.Solid = False ///'// S'il faut remplir la bordure de l'image avec de la couleur
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// Ajouter les coordonnées de position de l'image (ajouter une image en filigrane), je soustrais la taille du filigrane de la taille de l'image, et ajoutez le filigrane dans le coin inférieur droit. L'ordre des paramètres est le suivant : coordonnées horizontales, coordonnées verticales, adresse de l'image en filigrane, transparence au mercure, couleur d'extraction (&H signifie hexadécimal)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// Les coordonnées de position et la taille de la ligne de bordure de l'image
ogvbox.Save Server.MapPath(imagename) ///'// Générer un fichier
/'//------Génération d'un aperçu et d'un filigrane du composant Pollener.comAspJpeg------Démarrer------
/'Créer une image d'aperçu : appelez CreateView (chemin d'accès au fichier d'origine, nom et chemin du fichier d'aperçu)
Sous CreateView (nom de l'image, nom du fichier temp)
/'Définir les variables.
Dim AperçuImageFolderName
Dim ogvbox, objFont
Dim Logobox,LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Ajoutez le chemin et le nom de fichier de l'image (le mien est forum //images//shuiyin.gif).
Sélectionnez Cas upload_ViewType
Cas 0
/'---------------------Créer une image d'aperçu--------------
définir ogvbox = Server.CreateObject (CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Chemin de stockage de l'image d'aperçu.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Largeur d'aperçu.
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'Le chemin physique du fichier original de imagename.
/'Créer un fichier image d'aperçu.
Si ogvbox.DoImageProcess=false Alors
Response.write génère une erreur d'image d'aperçu :&ogvbox.GetErrString
Fin si
Cas 1
/'---------------------AspJpegV1.2---------------
Définir Logobox = Server.CreateObject (Persits.Jpeg)
//'//Il est recommandé de ne pas utiliser de filigranes d'image et de texte en même temps. Ce code utilise des filigranes d'image.
Logobox.Open LogoPath /'//Lire l'image ajoutée.
//'//Réinitialise la taille de l'image.
Logobox.Width = 186 /'//La valeur de largeur (pixels) de l'image utilisée comme filigrane.
Logobox.Height = 52 /'//Valeur de la hauteur (pixels) de l'image utilisée en filigrane.
//'//Ajouter un filigrane.
Définir ogvbox = Server.CreateObject (Persits.Jpeg)
/'//Lire le fichier original à traiter.
ogvbox.Open Trim(Server.MapPath(imagename))
Si ogvbox.OriginalWidth<Cint(ImageWidth) ou ogvbox.Originalheight<Cint(ImageHeight) Alors
F_Viewname=
Définir ogvbox = Rien
Quitter le sous-marin
Autre
IF ImageMode<> et FileExt<>gif Then /'//Si vous modifiez cette ligne en IF ImageMode<> Ensuite, vous pouvez également ajouter des filigranes aux images GIF téléchargées, mais ces GIF animés ne resteront qu'après l'ajout du filigrane This. est le premier cadre. Veuillez le gérer en fonction de vos besoins.
/'//À propos de la modification de la police et de la couleur du texte.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//La couleur du texte du filigrane, entrez la valeur de couleur après &H.
/'//ogvbox.Canvas.Font.Size = 18 /'//La taille du texte du filigrane.
/'//ogvbox.Canvas.Font.Family = Arial /'//Le nom de la police du texte du filigrane.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//La couleur de l'ombre du texte du filigrane.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//La valeur en pixels de l'ombre du texte du filigrane décalée vers la droite. Si vous entrez une valeur négative, elle sera décalée vers la gauche.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//La valeur en pixels par laquelle l'ombre du texte du filigrane est décalée vers le bas. Si vous entrez une valeur négative, elle sera décalée vers la droite.
/'//ogvbox.Canvas.Font.Quality = 3 /'//La clarté du texte du filigrane varie de 0 à 4. Le changement n'est pas très important. Il est recommandé d'utiliser 2 ou 3.
/'//ogvbox.Canvas.Font.Bold = True /'//Si le texte du filigrane est en gras, True=gras False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Coordonnées de départ (pixels) du texte du filigrane.
ogvbox.Canvas.Pen.Color = &H000000 /'//Ajoute un filigrane à la couleur de la bordure de l'image.
ogvbox.Canvas.Pen.Width = 1 /'//Augmente la largeur de la bordure de l'image après le filigrane.
ogvbox.Canvas.Brush.Solid = False /'//Que la bordure soit remplie de couleur, vous pouvez l'essayer pour voir l'effet lorsque la valeur est True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 /'//Les coordonnées de départ de l'image en filigrane Ici, ogvbox.width-186, ogvbox.height-52 signifie que l'image est dans le. coin inférieur droit, car La largeur de mon image est de 186 et la hauteur est de 52, donc si vous l'écrivez comme ceci, vous pouvez l'ajuster en fonction de votre propre image. 0,5 signifie transparence, ici je veux dire translucidité, 1 signifie opacité, vous pouvez également essayer 0,7 ou 0,8 pour voir l'effet.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Plage disponible de filigrane. Ce que je veux dire ici, c'est que le filigrane peut être ajouté n'importe où, du coin supérieur gauche au coin inférieur droit de l'image entière.
ogvbox.Save Server.MapPath(imagename) /'//Génère le fichier image avec un filigrane ajouté en fonction des paramètres ci-dessus.
Fin si
ogvbox.Width = ImageLargeur
ogvbox.height = Hauteur de l'image
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Génère une image d'aperçu de l'image après avoir ajouté un filigrane.
Fin si
Définir Logobox=Rien
/'//------Génération d'un aperçu et d'un filigrane du composant Pollener.comAspJpeg------Fin------