Öncelikler herkese merhaba eski nesil bir soru olucak ama ufak bir sorun var ve sorunu bulamadım.
Clasik asp de yazdığım bir yazılımda içeriğe resim eklediğimiz bir bölüm var bu bölümde kullanıcı birden fazla resim yükleyebiliyor bu kısımlarda sorun yok lakin misal dikey bir resim eklediğinde benim belirlediğim bi max yükseklik maxgenişlik olduğundan resmi buna eviriyor ama adam gökdelen gibi resmi yüklemeye çalışınca yazılım aciz kalıyor 🙂 buda detay sayfalarında ve kategori sayfalarında sorun oluşturuyor.
Bende istiyorumki maxheight maxwidth
Bunlar sabitlerim bunları baz alarak yüksekliği fazla ise bir resmin bana bir beyaz arkaplan dikdörtgen çizsin sonrasında resmi maxheight
olarak oranlasın bu dikdörtgenin ortasına konumlandırsın. buna benzer çalışmalar var denedim lakin nedense kodlar hata verdi gözden kaçırdığım birşeymi var anlayamadım değerlendirmesi yada önerisi olan varsa sevinirim. hayırlı günler.
'Orjinal resim sanal dizinden açılıp yeniden boyutlandırılıp hologram eklenerek kaydediliyor.
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open File.Path
if Jpeg.OriginalHeight>Jpeg.OriginalWidth then
Jpeg.Height = maxheight
Jpeg.Width = (Jpeg.OriginalWidth \* maxheight) / Jpeg.OriginalHeight
Jpeg.Canvas.DrawPNG 0, 0, Server.MapPath("../img/hologram.png") ' Resim üzerine hologram basmak için kullanılabilir.
Jpeg.Save Server.Mappath(savefolder) & "\\" & newname
else
Jpeg.Width = maxwidth
Jpeg.Height = (Jpeg.OriginalHeight \* maxwidth) / Jpeg.OriginalWidth
Jpeg.Canvas.DrawPNG 0, 0, Server.MapPath("../img/hologram.png")
Jpeg.Save Server.Mappath(savefolder) & "\\" & newname
end if
Bu orjinal kodum
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open File.Path
if Jpeg.OriginalHeight > Jpeg.OriginalWidth then
Jpeg.Height = maxheight
Jpeg.Width = (Jpeg.OriginalWidth * maxheight) / Jpeg.OriginalHeight
padding = (maxwidth - Jpeg.Width) / 2
Jpeg.Canvas.DrawRect padding, 0, maxwidth - padding, maxheight, 16777215
Jpeg.Canvas.DrawPNG 0, 0, Server.MapPath("../yonet/img/hologram.png")
Jpeg.Save Server.Mappath(savefolder) & "\" & newname
else
Jpeg.Width = maxwidth
Jpeg.Height = (Jpeg.OriginalHeight * maxwidth) / Jpeg.OriginalWidth
padding = (maxheight - Jpeg.Height) / 2
Jpeg.Canvas.DrawRect 0, padding, maxwidth, maxheight - padding, 16777215
Jpeg.Canvas.DrawPNG 0, 0, Server.MapPath("../yonet/img/hologram.png")
Jpeg.Save Server.Mappath(savefolder) & "\" & newname
end if
buda persist in kendi sitesinde bu koyla alakalı paylaştığı içeriğe göre düzenlenmiş hali ama malesef çalıştıramadım.