bild strolek i Persits.Upload.1?

3 svar · 275 visningar · startad av Bosse168 17 mars 2005

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan17 mars 2005 08:59#1

Hur gör man för att kolla storleken i Persits.Upload.1 och om måttet är större än 1500 så ska bild storleken delas med 5.7.

Jag använde aspimage.Image innan och då funkade denna kod:

' Creating the Image object 
Dim myImage,bredd
Set myImage = Server.CreateObject("aspimage.Image")

If File.ImageWidth > 1700 Then 
bredd = 5.7
ElseIf File.ImageWidth > 1600 Then 
bredd = 4
ElseIf File.ImageWidth > 1500 Then 
bredd = 3
Elseif File.ImageWidth > 1200 then
bredd = 2.6
Elseif File.ImageWidth > 1000 then
bredd = 2.2
Elseif File.ImageWidth > 650 then
bredd = 1.5
End If

'----------------------------------------------------------------------------------

If bredd<>"" Then

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("bilder") &"\"& NewName & Ext

Dim intYSize 
intYSize = ((myImage.MaxX/bredd) / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR (myImage.MaxX/bredd), intYSize

' Save Photo File 
myImage.Filename = Server.MapPath("bilder") &"\"& NewName & Ext
myImage.SaveImage

End If '------- Avslutar om bredden inte är för stor.

@ndersMedlem sedan juni 200032 967 inlägg

17 mars 2005 09:06#2

ASPUpload är bara en filuppladdningskomponent och har ingen funktionalitet för att skala om bilder.

Bosse168Medlem sedan nov. 20031 018 inlägg

17 mars 2005 09:30#3

Skummt för jag fick det att funka med denna kod:

' Creating the Image object 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("bilder") &"\"& NewName & Ext

If File.ImageWidth > 1700 Then 
bredd = 5
ElseIf File.ImageWidth > 1600 Then 
bredd = 4
ElseIf File.ImageWidth > 1500 Then 
bredd = 3
Elseif File.ImageWidth > 1200 then
bredd = 2.6
Elseif File.ImageWidth > 1000 then
bredd = 2.2
Elseif File.ImageWidth > 650 then
bredd = 1.5
End If

'----------------------------------------------------------------------------------

If bredd<>"" Then

   Jpeg.Width = Jpeg.OriginalWidth / bredd
   Jpeg.Height = Jpeg.OriginalHeight / bredd
   Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height

Jpeg.Save Server.MapPath("bilder") &"\"& NewName & Ext

End If '------- Avslutar om bredden inte är för stor.

Manual för att beskära

@ndersMedlem sedan juni 200032 967 inlägg

17 mars 2005 09:31#4

Ja, det är möjligt att det funkar med den koden. Men den använder ju inte ASPUpload-komponenten, utan Persits bildkomponent.