aspjpeg ist eine sehr leistungsstarke Bildverarbeitungskomponente, rein englische Version. Allerdings gibt es bereits kostenlose Versionen und gecrackte Versionen, aber es gibt nicht viele Artikel, die sie ausführlich und ausführlich vorstellen. Selbst wenn es welche gibt, handelt es sich dabei nur um Bildminiaturen und Bildwasserzeichen. Vielleicht liegt es daran, dass es in reinem Englisch ist.
Mit aspjepg können Sie hauptsächlich Folgendes tun:
Miniaturansicht des Bildes
Bildwasserzeichen
Sicherheitscode-Technologie
Bildausschnitt
Bildzusammenführung
Datenbankunterstützung
1. Miniaturansichten der Bilder.
Schauen Sie sich die bearbeiteten Bilder an.
2. Bildwasserzeichen.
.
3. Sicherheitscode
.
Das Prinzip von Ping An Ma ähnelt dem Hinzufügen eines Wasserzeichens.
.
Bild des generierten Sicherheitscodes.
4. Bildausschnitt
.
Lange Zeit dachten Leute, die aspjpeg nicht kennen, dass sie es nicht zum Schneiden verwenden könnten.
Tatsächlich gibt es eine solche Methode
x1,y1,x2,y2 zuschneiden
Schneiden Sie die x-Koordinate der oberen linken Ecke des Rechtecks und die y-Koordinate der unteren rechten Ecke des Rechtecks.
Ich werde unten eine Demonstration geben.
SetJpeg =
Server.CreateObject(Persits.Jpeg)
jpeg.open server.MapPath(/pic/1.gif)
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 Mit dem Schneiden beginnt eigentlich das Entfernen des unteren Teils, der 52 Pixel überschreitet.
jpeg.speichern
server.MapPath(/temp_pic/small_1.gif) Speichern
5. Bildzusammenführung
.
Hier fügen wir das Logobild zum Bild dodge_viper.jpg hinzu
Foto einstellen =
Server.CreateObject(Persits.Jpeg)
PhotoPath = Server.MapPath(images)
& /dodge_viper.jpg
Foto. Öffnen Sie PhotoPath
Logo = festlegen
Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(images)
& /clock.jpg
Logo.LogoPath öffnen.
Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
.
Photo.DrawImage 0, 0, Logo .
Photo.SendBinary
Hier wird die Ausgabemethode von sendBinary verwendet. Natürlich können Sie die geänderte dodge_viper.jpg auch zunächst speichern und dann eingeben. Ich persönlich verwende die sendBinary-Methode nicht gern, da sie bei langsamer Netzwerkgeschwindigkeit fehleranfällig ist. Auch von der Geschwindigkeit her nicht viel.
6. Datenbankunterstützung
.
Hier gibt es nicht viel zu sagen. Tatsächlich handelt es sich um die Binärmethode. Wie wir alle wissen, können Bilder nur dann als Binärdateien gespeichert werden, wenn sie in der Datenbank gespeichert sind. Der Code wurde also träge geschrieben. .
7. Einführung in weitere Methoden
.
Canvas.Line(Links, Oben, Rechts, Unten)
Zeichne eine gerade Linie
Canvas.Ellipse(Links, Oben, Rechts, Unten)
Zeichne eine Ellipse
Canvas.Circle(X, Y,
Radius)
Zeichne einen Kreis
Canvas.Bar (Links, Oben, Rechts, Unten)
Zeichnen Sie ein Rechteck mit dem eingegebenen Code
Canvas.Font.ShadowColor
Textschattenfarbe
Canvas.Font.ShadowXOffset As Long
Einstellung der Schatten-X-Koordinaten
Canvas.Font.ShadowYOffset As Long
Y-Koordinateneinstellung
Canvas.Font.BkMode als String
Texthintergrund.
'//------Pollener.com AspJpeg-Komponentenvorschau und Wasserzeichengenerierung------Start------
'Vorschaubild erstellen: Aufruf
CreateView (Pfad zur Originaldatei, Name und Pfad der Vorschaudatei)
Sub
CreateView(Bildname,TempFilename)
'Variablen definieren.
Schwach
PreviewImageFolderName
Dim ogvbox,objFont
Dimmen Sie Logobox, LogoPath
LogoPath
= Server.MapPath(images) & /shuiyin.gif
'//Füge den Pfad und Dateinamen des Bildes hinzu (meins ist forum/images/shuiyin.gif).
Wählen Sie Fall aus
upload_ViewType
Fall
0
'---------------------CreatePreviewImage---------------
setogvbox=
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 Bildname.
'Erstellen Sie eine Vorschaubilddatei.
Wenn
ogvbox.DoImageProcess=false Dann
Response.write generiert einen Vorschaubildfehler:&
ogvbox.GetErrString
Ende wenn
Fall
1
'------AspJpegV1.2--------------
Logobox = setzen
Server.CreateObject(Persits.Jpeg)
'//Es wird empfohlen, Bild- und Textwasserzeichen nicht gleichzeitig zu verwenden. Dieser Code verwendet Bildwasserzeichen.
Logobox.Öffnen
LogoPath '//Das hinzugefügte Bild lesen.
'//Größe des Bildes zurücksetzen.
Logobox.Width = 186
'//Breitenwert (Pixel) des als Wasserzeichen verwendeten Bildes.
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.Öffnen
Trim(Server.MapPath(Bildname))
Wenn ogvbox.OriginalWidth und FileExtgif Then '//Wenn Sie diese Zeile in IF ändern
Bildmodus
Anschließend können Sie den hochgeladenen GIF-Bildern auch Wasserzeichen hinzufügen. Diese animierten GIFs haben jedoch nur den ersten Frame, nachdem Sie das Wasserzeichen hinzugefügt haben. Sie können damit entsprechend Ihren Anforderungen umgehen.
'//Über das Ä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 nach rechts verschobenen Wasserzeichentextschattens. Geben Sie einen negativen Wert ein, um ihn nach links zu verschieben.
'//ogvbox.Canvas.Font.ShadowYoffset = 1
'//Der Pixelwert, um den der Textschatten des Wasserzeichens nach unten verschoben wird. Wenn Sie einen negativen Wert eingeben, wird er nach rechts verschoben.
'//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 '//Die Randfarbe des Bildes nach dem Hinzufügen des Wasserzeichens.
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, hier ist ogvbox.width-186,
ogvbox.height-52 bedeutet, dass sich das Bild in der unteren rechten Ecke befindet. Da die Breite meines Bildes 186 und die Höhe 52 beträgt, können Sie es entsprechend Ihrem eigenen Bild anpassen, wenn Sie es so schreiben. 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 Wasserzeichenbereich. 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.Speichern
Server.MapPath(imagename) '//Generieren Sie die Bilddatei mit hinzugefügtem Wasserzeichen basierend auf den oben genannten Parametern.
Ende
Wenn
ogvbox.Width = ImageWidth
ogvbox.height =
Bildhöhe
'ogvbox.height =
ogvbox.Originalheight*ImageWidth/ogvbox.OriginalWidth
ogvbox.Sharpen 1, 120
ogvbox.Speichern
Server.MapPath(tempFilename) '//Generieren Sie ein Vorschaubild des Bildes nach dem Hinzufügen eines Wasserzeichens.
Ende
Wenn
Setzen Sie Logobox=Nichts
'//------Pollener.com
Vorschau und Wasserzeichengenerierung der AspJpeg-Komponente ------Ende-----