Göra om bilder med AspImage

[MML]

Hejsan

 

Håller på med ASP image, laddar upp orginalbilden till map BIG, och däe skall den vara kvar, och vill ha en mindre kopia i mapen SMALL.

HJÄLP någon, jag har missat något enkelt tror jag, men å andra sidan är det inte enkelt när man inte kan det.

 

Set objImageSize = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.MapPath("/bilder/big/1.jpg"))
Image.FileName = Server.MapPath("/bilder/small/2.jpg")
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

 

[Jonas__B]

Har du variablerna för den nya storleken? Det framgår inte av koden.

 

 

NewWidth = 500
NewHeight = 300

 

Sen erkänner jag att jag inte testat koden, men det borde vara något såhär.

 

Annars - vad får du för fel?

 

[MML]

Hejsan

 

Laddar alltså upp bilden till map big, och där skall den förbli, sen vill ha ha en thumb i small, det funkar också nästan, den blir 100*100 men skall bli max 100bred och höjden anpassas därefter.

Här kommer nästan hela coden:

Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("AspImage.Image")


'============== spar orginal
Server.ScriptTimeout = 180
'Set Upload = Server.CreateObject("Persits.Upload")
Upload.CodePage = 65001
 Upload.ProgressID = Request.QueryString("PID")

'overwriting 
Upload.OverwriteFiles = True 

'Save to memory 
Upload.Save 

For Each File in Upload.Files 
  File.SaveAs (server.mappath("/") + "\bilder\"&strLopnr&"\big\"&bildnamnet&".jpg")
Next 
'========================= funkar hit uppladdning ===============================
Dim File
For Each File in Upload.Files
   If File.ImageType <> "JPG" Then
       Response.Redirect "produkter_bilder.asp?txtLopnr="&strLopnr&"&txtFel=Not a jpg file"
       File.Delete
       Response.End
   End If

   Dim strFileName, strFilePath
   Dim strFileNameBig, strFileNameSml
   strFileName = File.FileName
   strFilePath = File.Path
   strFileNameBig = Server.MapPath("/bilder") & "/"&strLopnr&"/small/"&bildnamnet&".jpg"
   strFileNameSml = (server.mappath("/") + "\bilder\"&strLopnr&"\small\"&bildnamnet&".jpg")


   Jpeg.JPEGQuality = 100
   Jpeg.AutoClear = False
   Jpeg.AutoSize = False

Jpeg.LoadImage strFilePath

   If  Jpeg.MaxY > 480 Then
       Dim intXSizeY
       intXSizeY = (480 / Jpeg.MaxY) * Jpeg.MaxX
       Jpeg.ResizeR intXSizeY, 480
   End If

   If  Jpeg.MaxX > 640 Then
       Dim intYSizeX
       intYSizeX = (640 / Jpeg.MaxX) * Jpeg.MaxY
       Jpeg.ResizeR 640, intYSizeX
   End If

   Jpeg.FileName = strFileNameBig

   If Jpeg.SaveImage Then
   Else
       Response.Redirect "produkter_bilder.asp?txtLopnr="&strLopnr&"&txtFel=Error Resizeing"
   End If

Jpeg.LoadImage strFilePath
Jpeg.ResizeR 100, 100

   Jpeg.FileName = strFileNameSml

   If Jpeg.SaveImage Then
   Else
       Response.Redirect "produkter_bilder.asp?txtLopnr="&strLopnr&"&txtFel=Error Resizeing 2"
   End If


Next
Response.Clear
Set Upload = nothing
Set Jpeg = nothing

Response.Redirect "produkter_bilder.asp?txtLopnr="&strLopnr&""