| Kod : |
<%
'© 2007 / Murat Tahtacı
'ASP.JPEG ile resim küçültme ve crop ederek kareye dönüştürmek
'Iyi günlerde kullanın...
'Örneğin : ?path=resimler/snap.jpg&bx=100
Response.Expires = 0
Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Bileşen çağırılıyor
Jpeg.Open( Server.MapPath(Request("path")) ) 'Sayfa adres yerinde resmin adresi
ebat = Request("bx") 'Örn : 80
If Jpeg.OriginalHeight > Jpeg.OriginalWidth Then 'Eğer boyu eninden uzunsa
Jpeg.Width = ebat 'Enini istediğimiz boyuta çekiyoruz
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth 'Yüksekliğini orantılı şekilde ayarlıyoruz
kenarpayi = Round(Int((Jpeg.Height-ebat)/2)) 'Üst ve alttan kesilecek kısmı ayarlıyoruz
Jpeg.Crop 0, kenarpayi, ebat, ebat+kenarpayi 'Üstten kırparak ölçüyü ortalıyoruz
Else ' Boy-en eşit yahut en daha uzunsa...
Jpeg.height = ebat
Jpeg.width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight
kenarpayi = Round(Int((Jpeg.Width-ebat)/2))
Jpeg.Crop kenarpayi, 0, ebat+kenarpayi, ebat
End if
Jpeg.SendBinary ' sunucuya gönder...
%>
Panoya Kopyala |