aspjpeg est un composant de traitement d'image très puissant, version purement anglaise. Cependant, il existe déjà des versions gratuites et des versions crackées, mais il n'y a pas beaucoup d'articles qui les présentent en détail et en profondeur. Même s'il y en a, ils ne concernent que des vignettes d'images et des filigranes d'images. C'est peut-être parce que c'est en anglais pur.
En utilisant aspjepg, vous pouvez principalement faire :
Miniature de l'image
Filigrane d’image
technologie des codes de sécurité
Découpe d'image
Fusion d'images
Prise en charge de la base de données
1. Miniatures d’images.
Découvrez les images traitées.
2. Filigrane d’image.
.
3. Code de sécurité
.
Le principe de Ping An Ma est similaire à l’ajout d’un filigrane.
.
Image du code de sécurité généré.
4. Découpe d'image
.
Pendant longtemps, les gens qui ne connaissaient pas aspjpeg pensaient qu'ils ne pouvaient pas l'utiliser pour couper.
En fait, il existe une telle méthode
recadrer x1,y1,x2,y2
Coupez la coordonnée x du coin supérieur gauche du rectangle et la coordonnée y du coin inférieur droit du rectangle.
Je vais faire une démonstration ci-dessous.
DéfinirJpeg =
Serveur.CreateObject (Persits.Jpeg)
jpeg.open server.MapPath(/pic/1.gif)
jpeg.largeur=70
Jpeg.Hauteur = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 Commencer à couper consiste en fait à supprimer la partie inférieure qui dépasse 52 pixels.
jpeg.enregistrer
server.MapPath(/temp_pic/small_1.gif) Enregistrer
5. Fusion d'images
.
Ici, nous allons ajouter l'image du logo à l'image dodge_viper.jpg
Définir la photo =
Serveur.CreateObject (Persits.Jpeg)
PhotoPath = Serveur.MapPath(images)
& /dodge_viper.jpg
Photo.Ouvrir PhotoPath
Définir le logo =
Serveur.CreateObject (Persits.Jpeg)
LogoPath = Serveur.MapPath(images)
& /horloge.jpg
Logo.Ouvrez LogoPath .
Logo.Largeur = 70
Logo.Hauteur = Logo.Largeur * Logo.OriginalHeight / Logo.OriginalWidth
.
Photo.DrawImage 0, 0, Logo .
Photo.SendBinary
La méthode de sortie de sendBinary est utilisée ici. Bien sûr, vous pouvez également enregistrer d'abord le dodge_viper.jpg modifié, puis le saisir. Personnellement, je n'aime pas utiliser la méthode sendBinary car elle est sujette aux erreurs lorsque la vitesse du réseau est lente. Pas grand chose en termes de vitesse non plus.
6. Prise en charge de la base de données
.
Pas grand chose à dire ici. En fait, il s'agit de la méthode binaire. Comme nous le savons tous, les images ne peuvent être stockées sous forme de fichiers binaires que lorsqu'elles sont stockées dans la base de données. Le code a donc été écrit paresseusement. .
7. Introduction à plus de méthodes
.
Canvas.Line (Gauche, Haut, Droite, Bas)
tracer une ligne droite
Canvas.Ellipse (Gauche, Haut, Droite, Bas)
dessiner une ellipse
Toile.Cercle(X, Y,
Rayon)
dessiner un cercle
Canvas.Bar (Gauche, Haut, Droite, Bas)
Dessinez un rectangle avec le code introduit dessus
Canvas.Font.ShadowColor
couleur de l'ombre du texte
Canvas.Font.ShadowXOffset aussi longtemps
Paramétrage des coordonnées Shadow X
Canvas.Font.ShadowYOffset aussi longtemps
Réglage des coordonnées Y
Canvas.Font.BkMode en tant que chaîne
arrière-plan du texte.
'//------Pollener.com Aperçu du composant AspJpeg et génération de filigrane------Démarrer------
'Créer une image d'aperçu : appeler
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.
Faible
AperçuImageFolderName
Dim ogvbox, objFont
Dim Logobox,LogoPath
Chemin du logo
= Server.MapPath(images) & /shuiyin.gif
'//Ajoutez le chemin et le nom de fichier de l'image (le mien est forum/images/shuiyin.gif).
Sélectionner un cas
upload_ViewType
Cas
0
'-----------Créer une image d'aperçu--------------
setogvbox =
Serveur.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)
'Aperçu du chemin de stockage de l'image.
ogvbox.SetPreviewImageSize =SetPreviewImageSize
'Largeur d'aperçu.
ogvbox.SetImageFile = trim(Server.MapPath(imagename))
'Le chemin physique du fichier original de nomimage.
'Créez 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 la boîte à logo =
Serveur.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.Ouvrir
LogoPath '//Lire l'image ajoutée.
'//Réinitialise la taille de l'image.
Logobox.Largeur = 186
'//Valeur de largeur (pixels) de l'image utilisée comme filigrane.
Logobox.Hauteur = 52
'//Valeur de hauteur (pixels) de l'image utilisée comme filigrane.
'//Ajouter un filigrane.
Définir ogvbox =
Serveur.CreateObject (Persits.Jpeg)
'//Lire le fichier original à traiter.
ogvbox.Ouvrir
Trim(Server.MapPath(imagename))
Si ogvbox.OriginalWidth et FileExtgif Then '//Si vous changez cette ligne en IF
ModeImage
Ensuite, vous pouvez également ajouter des filigranes aux images GIF téléchargées, mais ces GIF animés n'auront que la première image après l'ajout du filigrane. Vous pouvez 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 en 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 est décalée vers la droite. Entrez une valeur négative pour la décaler 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.Qualité = 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 = Vrai
'//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 '//La couleur de la bordure de l'image après l'ajout du filigrane.
ogvbox.Canvas.Pen.Width = 1
'//Augmente la largeur de la bordure de l'image après le filigrane.
ogvbox.Canvas.Brush.Solid = Faux
'//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, voici ogvbox.width-186,
ogvbox.height-52 signifie que l'image est dans le coin inférieur droit Parce que 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.Largeur, ogvbox.Hauteur
'//Gamme de filigrane disponible. 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.Enregistrer
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.hauteur =
Hauteur de l'image
'ogvbox.hauteur =
ogvbox.Originalheight*ImageWidth/ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Enregistrer
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
'//------Pollener.com
Génération d'aperçu et de filigrane du composant AspJpeg ------Fin-----