ASPimage Crop via koordinater
jeg har dette script hvor jeg laver thumb af mit upladede billede(denne script kommer efter min upload funktion)
Når jeg submitter min form, så sender jeg nogle koordinater med fra et Javascrip Crop script.
Men hvordan i ASPimage beskærer jeg billedet ud fra de x-y kordinater jeg har..?
Set MyImage = Server.CreateObject("AspImage.Image")
MyImage.PadSize = 0
'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & strPicture & ""
'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & strPicture & ""
'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "profilbilleder\"
'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "profilbilleder\thumb\"
Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
'load original image
MyImage.LoadImage strOriginal
'Resize factor
ResizedX = 100
'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.Resize ResizedX, ResizedY
MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage
'response.write strThumb & "<br>"
'response.write stroriginal
'response.write "<img src=test/thumb/3.jpg>"
set MyImage = nothing
