Aşağıda sorun verenleri belirttim.
Yardımcı olabilecek arkadaşlar var mıdır?
function urunfotoisle(fotograf_adresi,DOSYAADI)
PATH = server.MapPath(fotograf_adresi)
yukleme_klasoru = server.MapPath(calisan_klasor & "/uploads/products")
'Kare fotoğraf
Set Jkucuk = Server.CreateObject("Persits.Jpeg")
Jkucuk.Open PATH
Jkucuk.quality = 100
kare = int(ayar(70))
Jkucuk.Canvas.Brush.Color = &HFFFFFF ' Red
Jkucuk.Canvas.Pen.Color = &HFFFFFF
If Jkucuk.TransparencyColorExists Then
Jkucuk.ReplaceColor Jkucuk.TransparencyColor, &HFFFFFF
End If
if int(ayar(76)) = 1 then
cw = Jkucuk.OriginalHeight
cy = Jkucuk.OriginalWidth
else
cw = Jkucuk.OriginalWidth
cy = Jkucuk.OriginalHeight
end if
If cy < cw Then
Jkucuk.Width = kare
Jkucuk.Height = Jkucuk.OriginalHeight * Jkucuk.Width / Jkucuk.OriginalWidth
kenarpayi = Round(Int((Jkucuk.Height-kare)/2))
Jkucuk.Crop 0, kenarpayi, kare, kare+kenarpayi
Else
Jkucuk.height = kare
Jkucuk.width = Jkucuk.OriginalWidth * Jkucuk.Height / Jkucuk.OriginalHeight
kenarpayi = Round(Int((Jkucuk.Width-kare)/2))
Jkucuk.Crop kenarpayi, 0, kare+kenarpayi, kare
end if
Jkucuk.Save yukleme_klasoru&"/square/"&DOSYAADI
'küçük boy fotoğraf ----- 300Dpi da sorun veriyor...
set Jpeg = server.CreateObject("Persits.Jpeg")
set jOrjinal = server.CreateObject("Persits.Jpeg")
jOrjinal.open PATH
jOrjinal.Quality = 100
Jpeg.Quality = 100
Jpeg.New int(ayar(1)), int(ayar(11)), &HFFFFFF
if int(ayar(76)) = 1 then
if int(ayar(1)) / int(ayar(11)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Width = int(ayar(1))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
else
jOrjinal.Height = int(ayar(11))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
end if
else
if int(ayar(1)) / int(ayar(11)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Height = int(ayar(11))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
else
jOrjinal.Width = int(ayar(1))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
end if
end if
X = (int(ayar(1)) - jOrjinal.Width) / 2
Y = (int(ayar(11)) - jOrjinal.Height) / 2
Jpeg.Canvas.DrawImage X ,Y, jOrjinal
Jpeg.Save yukleme_klasoru&"/small/"&DOSYAADI
' orta boy fotoğraf ---- 300Dpi da sorun veriyor...
set Jpeg = server.CreateObject("Persits.Jpeg")
set jOrjinal = server.CreateObject("Persits.Jpeg")
jOrjinal.open PATH
jOrjinal.Quality = 100
Jpeg.Quality = 100
Jpeg.New int(ayar(2)), int(ayar(12)), &HFFFFFF
Jpeg.pngoutput = true
if int(ayar(76)) = 1 then
if int(ayar(2)) / int(ayar(12)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Width = int(ayar(2))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
else
jOrjinal.Height = int(ayar(12))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
end if
else
if int(ayar(2)) / int(ayar(12)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Height = int(ayar(12))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
else
jOrjinal.Width = int(ayar(2))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
end if
end if
X = (int(ayar(2)) - jOrjinal.Width) / 2
Y = (int(ayar(12)) - jOrjinal.Height) / 2
Jpeg.Canvas.DrawImage X ,Y, jOrjinal
Jpeg.Save yukleme_klasoru&"/medium/"&DOSYAADI
' büyük boy fotoğraf
set Jpeg = server.CreateObject("Persits.Jpeg")
set jOrjinal = server.CreateObject("Persits.Jpeg")
jOrjinal.open PATH
jOrjinal.Quality = 100
Jpeg.Quality = 100
Jpeg.New int(ayar(3)), int(ayar(4)), &HFFFFFF
Jpeg.pngoutput = true
if int(ayar(76)) = 1 then
if int(ayar(3)) / int(ayar(4)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Width = int(ayar(3))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
else
jOrjinal.Height = int(ayar(4))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
end if
else
if int(ayar(3)) / int(ayar(4)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
jOrjinal.Height = int(ayar(4))
jOrjinal.width = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight
else
jOrjinal.Width = int(ayar(3))
jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth
end if
end if
X = (int(ayar(3)) - jOrjinal.Width) / 2
Y = (int(ayar(4)) - jOrjinal.Height) / 2
jpeg.quality = 100
Jpeg.pngoutput = true
Jpeg.Canvas.DrawImage X ,Y, jOrjinal
Jpeg.Save yukleme_klasoru&"/large/"&DOSYAADI
if int(ayar(24)) = 1 then
set jx = server.CreateObject("Persits.Jpeg")
jx.open PATH
jx.quality = 100
jx.pngoutput = true
jx.Canvas.Font.Color = &HFFFFFFFF ' white
Text = ayar(25)
jx.Canvas.Font.Size = 12
jx.Canvas.Font.Opacity = 0.5
jx.Canvas.PrintTextEx Text, 50, 50, "c:\Windows\Fonts\Arial.ttf"
jx.Save yukleme_klasoru&"/large/"&DOSYAADI
end if
end function