ASPJPEG adalah shareware yang diproduksi oleh Persits. Masa percobaannya adalah 30 hari. Nomor versi terbaru adalah 1.3
ASPJPEG adalah komponen pemrosesan gambar yang sangat kuat. Anda dapat menggunakannya untuk membuat thumbnail gambar dengan mudah dan menambahkan tanda air ke gambar. Berikut adalah pengenalan singkat tentang cara menggunakannya:
Anda harus terlebih dahulu menjalankan file exe yang diunduh untuk menginstal komponen
1. Buat thumbnail untuk gambar
<% ///' Buat instance
Redupkan Jpeg, Jalur
Setel Jpeg = Server.CreateObject(Persits.Jpeg)
///' Lokasi gambar
Jalur = Server.MapPath(gambar) & ////jam.jpg
///' Membuka
Jpeg.Jalur Terbuka
///' Atur ukuran thumbnail (rasionya diatur ke 50% di sini)
Jpeg.Lebar = Jpeg.Lebar Asli / 2
Jpeg.Tinggi = Jpeg.Tinggi Asli / 2
///' Simpan thumbnail ke folder yang ditentukan
Jpeg.Simpan Server.MapPath(gambar) & ////clock_small.jpg
///' Contoh logout
Tetapkan Jpeg = Tidak Ada
%>
<IMG SRC=gambar/jam.jpg><P>
<IMG SRC=gambar/clock_small.jpg>
2. Tambahkan fungsi tanda air ke gambar
<%
Redupkan JPEG
///' Buat instance
Setel Jpeg = Server.CreateObject(Persits.Jpeg)
///' Buka gambar target
Jpeg.Buka Server.MapPath(gambar/dodge_viper.jpg)
///' Tambahkan tanda air teks
Jpeg.Canvas.Font.Color = &HFF0000///' Merah
Jpeg.Canvas.Font.Family = Dinasti Song
Jpeg.Canvas.Font.Bold = Benar
Jpeg.Canvas.Print 10, 10, Hak Cipta (c) Cnmaya.org
///' Simpan berkas
Jpeg.Simpan Server.MapPath(images/dodge_viper_framed.jpg)
///' Batalkan pendaftaran objek
Tetapkan Jpeg = Tidak Ada
%>
Saya membuat tanda air gambar terakhir kali, tetapi efeknya sangat buruk. Saya tidak bisa membuat gambar memiliki latar belakang transparan. Jika saya menggunakan gif latar belakang transparan, maka secara otomatis akan terisi dengan warna putih. Saat menggunakan fungsi untuk menghilangkan warna tertentu, warna gambar selalu tidak murni dan efek yang dihasilkan jerawatan. Saya punya ide hari ini dan menggabungkan keduanya, menggunakan gif dengan latar belakang transparan dan mengekstrak warna latar belakang tanda air, dan berhasil!
ogvbox.Canvas.Pen.Color = &H000000 ///'// Warna tepi
ogvbox.Canvas.Pen.Width = 1 ///'// Ketebalan pembatas
ogvbox.Canvas.Brush.Solid = False ///'// Apakah akan mengisi batas gambar dengan warna
ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox ,0.3,&HFFFFFF ///'// Tambahkan koordinat posisi gambar (tambahkan gambar watermark), saya kurangi ukuran watermark dari ukuran gambar, dan tambahkan tanda air ke pojok kanan bawah. Urutan parameternya adalah: koordinat horizontal, koordinat vertikal, alamat gambar watermark, transparansi merkuri, warna ekstraksi (&H berarti heksadesimal)
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height ///'// Koordinat posisi dan ukuran garis batas gambar
ogvbox.Simpan Server.MapPath(nama gambar) ///'// Hasilkan file
/'//------Pratinjau dan pembuatan tanda air komponen Pollener.comAspJpeg------Mulai------
/'Buat gambar pratinjau: panggil CreateView (jalur ke file asli, nama dan jalur file pratinjau)
Sub CreateView (nama gambar, nama file temp)
/'Tentukan variabel.
Redupkan NamaFolder GambarPreview
Redupkan ogvbox,objFont
Redupkan Kotak Logo, LogoPath
LogoPath = Server.MapPath(images) & //shuiyin.gif /'//Tambahkan path dan nama file gambar (milik saya adalah forum //images//shuiyin.gif).
Pilih Unggah kasus_Jenis Tampilan
Kasus 0
/'---------------------BuatPratinjauGambar---------------
setel ogvbox = Server.CreateObject(CreatePreviewImage.cGvbox)
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename) /'Pratinjau jalur penyimpanan gambar.
ogvbox.SetPreviewImageSize =SetPreviewImageSize /'Lebar pratinjau.
ogvbox.SetImageFile = trim(Server.MapPath(imagename)) /'Jalur fisik dari file asli nama gambar.
/'Buat file gambar pratinjau.
Jika ogvbox.DoImageProcess=false Lalu
Response.write menghasilkan kesalahan gambar pratinjau:&ogvbox.GetErrString
Akhiri Jika
Kasus 1
/'---------------------AspJpegV1.2----------------
Setel Logobox = Server.CreateObject(Persits.Jpeg)
//'//Disarankan untuk tidak menggunakan tanda air gambar dan teks secara bersamaan.
Logobox.Open LogoPath /'//Baca gambar yang ditambahkan.
//'//Reset ukuran gambar.
Logobox.Width = 186 /'//Nilai lebar (piksel) gambar yang dijadikan watermark.
Logobox.Height = 52 /'//Nilai tinggi (piksel) dari gambar yang digunakan sebagai watermark.
//'//Tambahkan tanda air.
Setel ogvbox = Server.CreateObject(Persits.Jpeg)
/'//Baca file asli yang akan diproses.
ogvbox.Open Trim(Server.MapPath(nama gambar))
Jika ogvbox.OriginalWidth<Cint(ImageWidth) atau ogvbox.Originalheight<Cint(ImageHeight) Lalu
F_Nama Tampilan=
Setel ogvbox = Tidak ada
Keluar dari Sub
Kalau tidak
IF ImageMode<> dan FileExt<>gif Then /'//Jika Anda mengubah baris ini menjadi IF ImageMode<> Kemudian, Anda juga dapat menambahkan tanda air ke gambar GIF yang diunggah, tetapi GIF animasi tersebut hanya akan tersisa setelah menambahkan tanda air ini adalah bingkai pertama. Silakan tangani sesuai kebutuhan Anda.
/'//Tentang mengubah font dan warna teks.
/'//ogvbox.Canvas.Font.Color = &H0000FF /'//Warna teks watermark, masukkan nilai warna setelah &H.
/'//ogvbox.Canvas.Font.Size = 18 /'//Ukuran teks tanda air.
/'//ogvbox.Canvas.Font.Family = Arial /'//Nama font teks tanda air.
/'//ogvbox.Canvas.Font.ShadowColor = &H000000 /'//Warna bayangan teks tanda air.
/'//ogvbox.Canvas.Font.ShadowXoffset = 1 /'//Nilai piksel bayangan teks watermark diimbangi ke kanan. Jika Anda memasukkan nilai negatif, maka akan diimbangi ke kiri.
/'//ogvbox.Canvas.Font.ShadowYoffset = 1 /'//Nilai piksel yang membuat bayangan teks watermark diimbangi ke bawah. Jika Anda memasukkan nilai negatif, maka akan diimbangi ke kanan.
/'//ogvbox.Canvas.Font.Quality = 3 /'//Kejelasan teks watermark berkisar antara 0 hingga 4. Perubahannya tidak terlalu besar.
/'//ogvbox.Canvas.Font.Bold = Benar /'//Apakah teks tanda air tebal, True=tebal False=normal.
/'ogvbox.Canvas.Print 10, 10, ImageMode /'//Koordinat awal (piksel) teks tanda air.
ogvbox.Canvas.Pen.Color = &H000000 /'//Tambahkan tanda air pada warna tepi gambar.
ogvbox.Canvas.Pen.Width = 1 /'//Menambah lebar tepi gambar setelah diberi watermark.
ogvbox.Canvas.Brush.Solid = False /'//Apakah bordernya diisi dengan warna, Anda dapat mencobanya untuk melihat efeknya ketika nilainya True^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5 /'//Koordinat awal gambar watermark. Di sini, ogvbox.width-186, ogvbox.height-52 berarti gambar tersebut ada di dalam. pojok kanan bawah, karena lebar gambar saya 186 dan tinggi 52, jadi kalau ditulis seperti ini bisa sesuaikan dengan gambar anda sendiri. 0,5 berarti transparansi, di sini maksud saya tembus cahaya, 1 berarti opacity, Anda juga dapat mencoba 0,7 atau 0,8 untuk melihat efeknya.
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height /'//Rentang tanda air yang tersedia. Yang saya maksud disini adalah watermark bisa ditambahkan dimana saja mulai dari pojok kiri atas hingga pojok kanan bawah pada keseluruhan gambar.
ogvbox.Save Server.MapPath(imagename) /'//Buat file gambar dengan tanda air tambahan berdasarkan parameter di atas.
Akhiri Jika
ogvbox.Width = Lebar Gambar
ogvbox.height = Tinggi Gambar
/'ogvbox.height = ogvbox.Originalheight*ImageWidth//ogvbox.OriginalWidth
ogvbox.Pertajam 1, 120
ogvbox.Save Server.MapPath(tempFilename) /'//Buat gambar pratinjau gambar setelah menambahkan tanda air.
Akhiri Jika
Setel Kotak Logo=Tidak Ada
/'//------Pratinjau dan pembuatan tanda air komponen Pollener.comAspJpeg------Akhir------