Någon som kan hjälpa mig att "konfiguera" ett script som gör om storleken på den uppladdade bilden?
Istället för att göra om bilden till den fasta storleken som scriptet använder nu så vill jag att den bara ska dela storleken beroende på bildens storlek.
'This sub is used to resize the photo
Sub ResizeX (intXSize)
Dim intYSize
intYSize = (intXSize / myImage.MaxX) * myImage.MaxY
myImage.ResizeR intXSize, intYSize
End Sub
' Creating the Image object
Dim myImage
Set myImage = Server.CreateObject("aspimage.Image")
' Loading Image object and resize
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext
' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100)
' Save Photo File
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext
myImage.SaveImage
Set myImage=Nothing
Kanske finns någon bättre lösning :stud
Innan använde jag AspJpeg och använde då följande kod.
if Jpeg.OriginalWidth > 1500 then
Jpeg.Width = Jpeg.OriginalWidth / 3
Jpeg.Height = Jpeg.OriginalHeight / 3
' Optional: apply sharpening
Jpeg.Sharpen 1, 200
' Create thumbnail and save it to disk
Jpeg.Save Server.MapPath("bilder") &"\upload\"& NewName & Ext
Elseif Jpeg.OriginalWidth > 1000 then
Jpeg.Width = Jpeg.OriginalWidth / 2.2
Jpeg.Height = Jpeg.OriginalHeight / 2.2
End If
'This sub is used to resize the photo
Sub ResizeX (intXSize)
Dim intYSize
intYSize = ((myImage.MaxX/intXSize) / myImage.MaxX) * myImage.MaxY
myImage.ResizeR (myImage.MaxX/intXSize), intYSize
End Sub
' Creating the Image object
Dim myImage
Set myImage = Server.CreateObject("aspimage.Image")
' Loading Image object and resize
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext
' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100)
' Save Photo File
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext
myImage.SaveImage
Set myImage=Nothing
Oj glömde säga att ligger på en upload sida.
Så sub ligger alltså innan:
For Each File in Upload.Files
Och detta innanför
' Creating the Image object
Dim myImage
Set myImage = Server.CreateObject("aspimage.Image")
' Loading Image object and resize
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext
' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100)
' Save Photo File
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext
myImage.SaveImage
Set myImage=Nothing
