Otomatik resim boyutlandırma - Sayfa 2

02-05-2008, 19:46:37

#10

Peksoft

reflex sana pm attım bakarmısın.

03-05-2008, 13:20:54

#11

erkutarhan

Bunu asp ile değil javascript ile yaparsın

03-05-2008, 13:46:45

#12

kubilay

erkutarhan nasıl yapabiliriz acaba bunu js ile ???

03-05-2008, 19:08:20

#13

~~Tuncsoft~~

Üyeliği durduruldu

Upload Ettiğin resimleri gönderdikten sonramı 500 den büyükse 500 e düşürecek yoksa başka bişeymi arıyorsun

03-05-2008, 23:10:38

#14

hmakdeniz

ASP Jpeg ile yapman gerekiyor...

intLowerBound = 9999 'seçilecek sayının alt sınırı
intUpperBound = 9999999999 'seçilecek sayının üst sınırı

Randomize()

intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)

Set Upload = Server.CreateObject("Persits.Upload" )
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Yol = Server.MapPath("XXXXX" )&"\" 'XXXXXX Dosyanın yükleneceği yer
Upload.IgnoreNoPost = True
Upload.OverwriteFiles = False
YeniDosya = intRandomInteger
Upload.Save(yol)

For Each File in Upload.Files

If File.ImageType = "UNKNOWN" Then
Response.Write "Sadece Jpg, Gif ve Png Formatlı Dosyalar Yükleyebilirsiniz !!!"
File.Delete
Response.End
End If

File.Move Yol & YeniDosya & File.Ext
Jpeg.Open Yol & YeniDosya & File.Ext
Oran = Jpeg.OriginalWidth / 500
Jpeg.Width = 500
Jpeg.Height = Jpeg.OriginalHeight / oran
Jpeg.Save Yol & YeniDosya & File.Ext

04-05-2008, 14:32:41

#15

Ron

ASPJPEG kullanacak olursan, sitesinde uygulamaları var zaten.

07-05-2008, 17:36:02

#16

kubilay

çok teşekkürler arkadaşlar aspjpeg ile yaptım..

16-05-2008, 12:38:01

#17

erdemerturk

bende bu konu ile alakalı bir başlık açacaktım hazır açılmışı varken bende sorumu burada sorayım.
benim de başımda asp.jpeg bileşeni ile alakalı bir bela var ki şöyle
resim boyutlandırmayı bir şekilde yapıyorum ancak yatay ve dikey ayrımı yapamıyorum malesef bunu nasıl yapabilirim yardımcı olabilirseniz sevinirim.
aklıma şöyle bir şey geldi ancak kendi hostumda asp.jpeg bileşeni yüklü olmadığı için deneyemedim...

<%Jpeg.Open Yol & YeniDosya & File.Ext
if Jpeg.OriginalHeight<=Jpeg.OriginalWidth then
Oran = Jpeg.OriginalWidth / 640
Jpeg.Width = 640
Jpeg.Height = Jpeg.OriginalWidth / oran
Jpeg.Save Yol & YeniDosya & File.Ext
elseif Jpeg.OriginalHeight>=Jpeg.OriginalWidth then
Oran = Jpeg.OriginalHeigth / 640
Jpeg.Heigth = 640
Jpeg.Width = Jpeg.OriginalHeight / oran
Jpeg.Save Yol & YeniDosya & File.Ext
else
Jpeg.Heigth = 480
Jpeg.Width = 480
Jpeg.Save Yol & YeniDosya & File.Ext
end if%>

Bu kod doğru çalışır mı yada hata verirse nerelerde düzeltme yapmam gerekir?

Şimdiden teşekkür ederim..

16-05-2008, 13:30:38

#18

doronty37

Kimlik doğrulama veya yönetimden onay bekliyor.

<head>
<!--[if IE]>
<style type="text/css">
.resim {
	width: expression(this.width > 500 ? 500 : true); }
</style>
<![endif]-->
</head>
<body>
<img src="https://www.r10.net/asp/resim.jpg" class="resim" style="max-width:500px;" alt="" />
</body>

Bileşensiz de böyle yapılabilir. max-width, IE tarafından desteklenmediği için, resim adlı bir class ekleniyor.