Wasserzeichenfunktion zu Bildern hinzufügen und Miniaturansichten für Bilder erstellen 1. Wasserzeichenfunktion zu Bildern hinzufügen
Dunkles JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) ' Objekt erstellen
Jpeg.Open BlogPath & /upload/ & FileName ' Der Speicherort des Bildes
Jpeg.Canvas.Font.Color = &H000000 ' Farbe, hier ist sie eingestellt auf: Schwarz
Jpeg.Canvas.Font.Family = „Founder wird vereinfacht“ Schriftart festlegen
Jpeg.Canvas.Font.Bold = False 'Ob es auf Fett gesetzt werden soll
Jpeg.Canvas.Font.Size = 26 'Schriftgröße
Jpeg.Canvas.Font.Quality = 4 ' Textklarheit
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'Wasserzeichentext
Jpeg.Save BlogPath & /upload/ & FileName ' Datei speichern
Stellen Sie Jpeg = Nichts ein
2. Erstellen Sie Miniaturansichten für Bilder
Dunkles JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) ' Objekt erstellen
Jpeg.Open BlogPath & /upload/ & FileName ' Der Speicherort des Bildes
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'Stellen Sie die Miniaturbildgröße ein (hier ist das Verhältnis auf 50 % eingestellt). Sie können ihr auch einen genauen Wert geben, z. B. Jpeg.Width=120
Jpeg.Save BlogPath & /upload/ & FileName ' Datei speichern
Stellen Sie Jpeg = Nichts ein