Fra aspImage til ShotGraph
Jeg har i øjeblikket denne stump kode hvor jeg resizer et billede og laver et thumbnail med ASPImage.:Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intWidth = 400
If (Image.MaxX > intWidth) OR (Image.MaxY > intWidth) Then
If(Image.MaxX > Image.MaxY) Then
intRatio = ((intWidth * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR intWidth, intNewY
Image.ImageFormat = 1
Else
intRatio = ((intWidth * 100) / Image.MaxY)
intNewX = CInt(Image.MaxX * (intRatio / 100))
Image.ResizeR intNewX, intWidth
Image.ImageFormat = 1
End if
End If
Image.FileName = Server.MapPath("/images/Pictures/" & strFilename)
Image.SaveImage
Image.LoadImage Server.MapPath("/images/Pictures/" & strFilename)
intRatio = ((40 * 100) / Image.MaxX)
intNewY = CInt(Image.MaxY * (intRatio / 100))
Image.ResizeR 40, intNewY
Image.ImageFormat = 1
Image.FileName = Server.MapPath("/images/Pictures/thumbnails/" & strFilename)
Image.SaveImage
Set Image = Nothing
Nu vil jeg gerne skifte komponent til ShortGraph, men jeg kan ikke gennemskue hvordan jeg får skrevet godem om så den virker med ShotGrap. Den skal kunne tage følgende filer: jpg, png, bmp, gif, og andre web filformater.
Er der nogen herinde der kan hjælpe mig med en omskrivning.
