If I use Aspose.Imaging to resize an image and save it to a new file all EXIF data is lost:
Dim license As Aspose.Imaging.License = New Aspose.Imaging.License()
license.SetLicense(“Aspose.Total.lic”)
Using image = Aspose.Imaging.Image.Load(Server.MapPath(“bild.JPG”))
Dim newWidth As Integer = 650
Dim newHeight As Integer = 487
'image.Resize(newWidth, newHeight)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.CenterToCenter)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.LanczosResample)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.LeftBottomToLeftBottom)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.LeftTopToLeftTop)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.NearestNeighbourResample)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.None)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.RightBottomToRightBottom)
'image.Resize(newWidth, newHeight, Aspose.Imaging.ResizeType.RightTopToRightTop)
image.Save(Server.MapPath(“bild_resized.JPG”))
End Using
Is there a workaround?
Also is there an update on “reading/writing EXIF data” feature announced to be on roadmap for 2012 Q3 (https://forum.aspose.com/t/2148)?
/Morten