Yang saya katakan hari ini adalah pengetahuan tentang ASP untuk menambahkan tanda air ke gambar .. ASP saya belajar dengan sangat buruk ..
ASP untuk menambahkan tanda air ke gambar membutuhkan komponen ... Aspjpeg yang biasa digunakan dan orang Cina mengembangkan wsimage ... yang pertama gratis selama 30 hari ... yang terakhir benar -benar gratis ... tentu saja kita harus menggunakan produk dari Orang Cina.
Komponen dapat mengunduh http://aknife.ys168.com (unduh versi 3.0) di http://aknife.ys168.com
Metode komponen pendaftaran:
Masukkan "Regsvr32 [DLL Path]" di bawah prompt perintah
Menambahkan tanda air pada gambar tidak lebih dari mendapatkan ukuran gambar, dan kemudian tuliskan kode air ..PSP hanya memainkan peran komponen kontrol.
Satu: Dapatkan ukuran gambar (di sini diwakili oleh nilai piksel. Teman yang belajar Photoshop harus mengerti)
| Berikut ini adalah fragmen kode: <% Set Obj = Server.CreateObject ("wsimage.ressize") '' -call Component Obj.LoadSoexic Server.Mappath ("25.jpg") '' '' "Buka gambar, nama gambarnya 25.jpg obj.getsourceeinfo iwidth, iheight response.write "Lebar gambar:" & iwidth & "<br>" "" Dapatkan lebar gambar response.write "Tinggi gambar:" & ipight & "<br>" "" dapatkan tinggi gambar strerror = obj.errorinfo Jika strerror <> "" lalu Response.write obj.Errorinfo akhiri jika obj.free atur obj = tidak ada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Dua: Tambahkan Teks Watermark <% Set Obj = Server.CreateObject ("Wsimage.ressize") Obj.LoadSoexic server.mappath ("25.jpg") '' OBJ.Quality = 75 obj.txtmarkfont = "cloud warna Cina" '' mengatur font teks watermark obj.txtmarkbond = false '' atur ketebalan teks tanda air obj.markrotate = 0 '' 'sudut berputar teks tanda air obj.txtmarkheigh = 25 '' 'tinggi teks hidal obj.addtxtmark server.mappath ("txtmark.jpg"), "Membawa Anda menjauh dari negara", & h00ff00 &, 10, 70 Strerror = obj.errorinfo '' untuk menghasilkan nama gambar, warna teks adalah tanda air di lokasi gambar Jika strerror <> "" lalu Response.write obj.Errorinfo akhiri jika obj.free atur obj = tidak ada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Tiga: Tambahkan gambar bekas air <% Set Obj = Server.CreateObject ("Wsimage.ressize") Obj.LoadSoexic server.mappath ("25.jpg") '' obj.loadimgmarkpic server.mappath ("blend.bmp") '' OBJ.Quality = 75 obj.addimgmark server.mappath ("imgmark.jpg"), 315, 220, & hffffffff, 70 Strerror = obj.errorinfo '' untuk menghasilkan nama gambar, warna teks adalah tanda air di lokasi gambar Jika strerror <> "" lalu Response.write obj.Errorinfo akhiri jika obj.free atur obj = tidak ada %> '' ------------------------------------------------ --------------------------------------------- ----- ------------ Bahkan, menambahkan tanda air pada gambar itu sesederhana itu. Potong gambar dan hasilkan thumbnail gambar. Saya masih harus terbiasa, menggunakan kode untuk menambahkan suntikan untuk menjelaskan: Potong gambar: <% Set Obj = Server.CreateObject ("Wsimage.ressize") Obj.LoadSocePic server.mappath ("25.jpg") OBJ.Quality = 75 Obj.cropimage server.mappath ("" 25_crop.jpg "), 100.10.200.200 '' 'Tentukan pemotongan dan menghasilkan nama gambar strerror = obj.errorinfo Jika strerror <> "" lalu Response.write obj.Errorinfo akhiri jika obj.free atur obj = tidak ada %> Catatan terperinci: Metode cutimage WSIMAGE digunakan untuk mengurangi gambar. gambar, dan 10 piksel teratas di bagian atas. '' ------------------------------------------------ --------------------------------------------- ----- ------------ Hasilkan gambar gambar: <% Set Obj = Server.CreateObject ("Wsimage.ressize") Obj.LoadSoexic server.mappath ("25.jpg") '' OBJ.Quality = 75 obj.outputspic server.mappath ("" 25_s.jpg "), 0,5,0,5,3 '' '' nama diagram definisi adalah ukuran ukurannya strerror = obj.errorinfo Jika strerror <> "" lalu Response.write obj.Errorinfo akhiri jika obj.free atur obj = tidak ada %> |
Ada empat metode ekspor:
(1) Obj.outputspic server.mappath ("25_s.jpg"), 200.150,0
200 adalah lebar output, 150 adalah output tinggi.
(2) Obj.outputapic server.mappath ("25_s.jpg"), 200,0,1
Dengan lebar 200 output, output tinggi akan diskalakan dengan kolom.