ASPJPEG ist Shareware von Persits. Der Testzeitraum beträgt 30 Tage. Sie können es hier herunterladen: http://www.persits.com/aspjpeg.exe. Die neueste Versionsnummer ist 1.3
ASPJPEG ist eine sehr leistungsstarke Bildverarbeitungskomponente, mit der Sie ganz einfach Miniaturansichten von Bildern erstellen und Bildern Wasserzeichen hinzufügen können. Hier ist eine kurze Einführung in die Verwendung:
Um die Komponente zu installieren, müssen Sie zunächst die heruntergeladene exe-Datei ausführen
1. Erstellen Sie Miniaturansichten für Bilder
<% ///' Instanz erstellen
Jpeg,Pfad dimmen
Setze Jpeg = Server.CreateObject(Persits.Jpeg)
///' Der Speicherort des Bildes
Pfad = Server.MapPath(images) & ////clock.jpg
///' Offen
Jpeg.Pfad öffnen
///' Miniaturbildgröße einstellen (das Verhältnis ist hier auf 50 % eingestellt)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
///' Miniaturansicht im angegebenen Ordner speichern
Jpeg.Save Server.MapPath(images) & ////clock_small.jpg
///' Instanz abmelden
Stellen Sie Jpeg = Nichts ein
%>
<IMG SRC=images/clock.jpg><P>
<IMG SRC=images/clock_small.jpg>
2. Fügen Sie den Bildern eine Wasserzeichenfunktion hinzu
<%
DimJpeg
///' Instanz erstellen
Setze Jpeg = Server.CreateObject(Persits.Jpeg)
///' Öffnen Sie das Zielbild
Jpeg.Open Server.MapPath(images/dodge_viper.jpg)
///' Textwasserzeichen hinzufügen
Jpeg.Canvas.Font.Color = &HFF0000///' Rot
Jpeg.Canvas.Font.Family = Song-Dynastie
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, Copyright (c) Cnmaya.org
///' Datei speichern
Jpeg.Save Server.MapPath(images/dodge_viper_framed.jpg)
///' Registrierung des Objekts aufheben
Stellen Sie Jpeg = Nichts ein
%>
Ich habe das letzte Mal ein Bildwasserzeichen erstellt, aber der Effekt war sehr schlecht. Wenn ich ein transparentes Hintergrund-GIF verwende, wird es automatisch mit Weiß gefüllt. Wenn Sie die Funktion zum Entfernen einer bestimmten Farbe verwenden, ist die Farbe des Bildes immer unrein und der resultierende Effekt ist fleckig. Ich hatte heute eine Idee und habe diese beiden kombiniert, indem ich ein GIF mit transparentem Hintergrund verwendet und die Hintergrundfarbe des Wasserzeichens extrahiert habe, und es hat funktioniert!
ogvbox.Canvas.Pen.Color = &H000000 ///'// Farbe des Rahmens
ogvbox.Canvas.Pen.Width = 1 ///'// Die Dicke des Rahmens
ogvbox.Canvas.Brush.Solid = False ///'// Ob der Bildrand mit Farbe gefüllt werden soll
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// Addiere die Positionskoordinaten des Bildes (füge ein Wasserzeichenbild hinzu), ich subtrahiere die Wasserzeichengröße von der Bildgröße, und fügen Sie das Wasserzeichen in die untere rechte Ecke ein. Die Reihenfolge der Parameter ist: horizontale Koordinaten, vertikale Koordinaten, Wasserzeichen-Bildadresse, Quecksilbertransparenz, Extraktionsfarbe (&H bedeutet hexadezimal).
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// Die Positionskoordinaten und die Größe der Bildrandlinie
ogvbox.Save Server.MapPath(imagename) ///'// Datei generieren
/'//------Vorschau und Wasserzeichengenerierung der Pollener.comAspJpeg-Komponente------Start------
/'Vorschaubild erstellen: CreateView aufrufen (Pfad zur Originaldatei, Name und Pfad der Vorschaudatei)
Sub CreateView(Bildname,TempFilename)
/'Variablen definieren.
PreviewImageFolderName dimmen
Dim ogvbox,objFont
Dimmen Sie Logobox, LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Fügen Sie den Pfad und den Dateinamen des Bildes hinzu (meiner ist forum //images//shuiyin.gif).
Wählen Sie Fall-Upload_ViewType aus
Fall 0
/'-------CreatePreviewImage---------------
set ogvbox = Server.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Vorschaubild-Speicherpfad.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Vorschaubreite.
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'Der physische Pfad der Originaldatei von imagename.
/'Eine Vorschaubilddatei erstellen.
Wenn ogvbox.DoImageProcess=false, dann
Response.write generiert einen Vorschaubildfehler:&ogvbox.GetErrString
Ende wenn
Fall 1
/'------AspJpegV1.2---------------
Setze Logobox = Server.CreateObject(Persits.Jpeg)
//'//Es wird empfohlen, Bild- und Textwasserzeichen nicht gleichzeitig zu verwenden. Dieser Code verwendet Bildwasserzeichen.
Logobox.Open LogoPath /'//Das hinzugefügte Bild lesen.
//'//Setzen Sie die Größe des Bildes zurück.
Logobox.Width = 186 /'//Der Breitenwert (Pixel) des Bildes, das als Wasserzeichen verwendet wird.
Logobox.Height = 52 /'//Höhenwert (Pixel) des als Wasserzeichen verwendeten Bildes.
//'//Wasserzeichen hinzufügen.
Setze ogvbox = Server.CreateObject(Persits.Jpeg)
/'//Lesen Sie die zu verarbeitende Originaldatei.
ogvbox.Open Trim(Server.MapPath(imagename))
Wenn ogvbox.OriginalWidth<Cint(ImageWidth) oder ogvbox.Originalheight<Cint(ImageHeight) Dann
F_Viewname=
Setze ogvbox = Nichts
Unter verlassen
Anders
IF ImageMode<> und FileExt<>gif Then /'//Wenn Sie diese Zeile in IF ImageMode<> Then ändern, können Sie den hochgeladenen GIF-Bildern auch Wasserzeichen hinzufügen, diese animierten GIFs bleiben jedoch erst nach dem Hinzufügen des Wasserzeichens erhalten ist der erste Frame. Bitte behandeln Sie ihn entsprechend Ihren Anforderungen.
/'//Informationen zum Ändern der Schriftart und Textfarbe.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//Die Farbe des Wasserzeichentextes, geben Sie den Farbwert nach &H ein.
/'//ogvbox.Canvas.Font.Size = 18 /'//Die Größe des Wasserzeichentextes.
/'//ogvbox.Canvas.Font.Family = Arial /'//Der Schriftartname des Wasserzeichentextes.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//Die Schattenfarbe des Wasserzeichentextes.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//Der Pixelwert des Wasserzeichentextschattens wird nach rechts versetzt. Wenn Sie einen negativen Wert eingeben, wird er nach links versetzt.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//Der Pixelwert, um den der Wasserzeichentextschatten nach unten versetzt wird. Wenn Sie einen negativen Wert eingeben, wird er nach rechts versetzt.
/'//ogvbox.Canvas.Font.Quality = 3 /'//Die Klarheit des Wasserzeichentextes liegt zwischen 0 und 4. Die Änderung ist nicht sehr groß. Es wird empfohlen, 2 oder 3 zu verwenden.
/'//ogvbox.Canvas.Font.Bold = True /'//Ob der Wasserzeichentext fett ist, True=bold False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Startkoordinaten (Pixel) des Wasserzeichentextes.
ogvbox.Canvas.Pen.Color = &H000000 /'//Wasserzeichen zur Randfarbe des Bildes hinzufügen.
ogvbox.Canvas.Pen.Width = 1 /'//Erhöhen Sie die Randbreite des Bildes nach dem Wasserzeichen.
ogvbox.Canvas.Brush.Solid = False /'//Ob der Rand mit Farbe gefüllt ist, können Sie ausprobieren, um den Effekt zu sehen, wenn der Wert True^o^ ist
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0,5 /'//Die Startkoordinaten des Wasserzeichenbildes bedeuten hier, dass sich das Bild in der befindet untere rechte Ecke, weil Die Breite meines Bildes beträgt 186 und die Höhe 52. Wenn Sie es also so schreiben, können Sie es entsprechend Ihrem eigenen Bild anpassen. 0,5 bedeutet Transparenz, hier meine ich Transluzenz, 1 bedeutet Opazität, Sie können auch 0,7 oder 0,8 ausprobieren, um den Effekt zu sehen.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Verfügbarer Bereich des Wasserzeichens. Damit meine ich, dass das Wasserzeichen an einer beliebigen Stelle von der oberen linken Ecke bis zur unteren rechten Ecke des gesamten Bildes hinzugefügt werden kann.
ogvbox.Save Server.MapPath(imagename) /'//Generieren Sie die Bilddatei mit hinzugefügtem Wasserzeichen basierend auf den oben genannten Parametern.
Ende wenn
ogvbox.Width = ImageWidth
ogvbox.height = ImageHeight
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Erzeugen Sie ein Vorschaubild des Bildes nach dem Hinzufügen eines Wasserzeichens.
Ende wenn
Setzen Sie Logobox=Nichts
/'//------Vorschau und Wasserzeichengenerierung der Pollener.comAspJpeg-Komponente------Ende------