Page 1 of 1
Loosing EXIF when saving after rotate
Posted: Fri Apr 08, 2005 10:51 pm
by Guest
I hope I'm posting in the right forum, I'm trying to do some ASP VB-Script. I did not get any response from my previous post about EXIF retrieval. Anyhow, here is what I'm doing:
Code: Select all
const AX_JPEG = 3
Set oGflAx = server.createobject("GflAx.GflAx")
cFile = "image.jpg"
oGflAx.LoadBitmap cFile
oGflAx.SaveJPEGQuality = 100
oGflAx.Rotate 270
oGflAx.SaveFormat = AX_JPEG 'Save in JPEG format
oGflAx.SaveJPEGProgressive = True 'Progressive
oGflAx.SaveBitmap cFile
set oGlfAx = nothing
It rotates the picture fine and saves it but I loose the EXIF info. Is there a workaround or perhaps I'm doing something wrong? Thanks much.
Re: Loosing EXIF when saving after rotate
Posted: Sun Apr 10, 2005 1:29 pm
by xnview
Anonymous wrote:I hope I'm posting in the right forum, I'm trying to do some ASP VB-Script. I did not get any response from my previous post about EXIF retrieval. Anyhow, here is what I'm doing:
Code: Select all
const AX_JPEG = 3
Set oGflAx = server.createobject("GflAx.GflAx")
cFile = "image.jpg"
oGflAx.LoadBitmap cFile
oGflAx.SaveJPEGQuality = 100
oGflAx.Rotate 270
oGflAx.SaveFormat = AX_JPEG 'Save in JPEG format
oGflAx.SaveJPEGProgressive = True 'Progressive
oGflAx.SaveBitmap cFile
set oGlfAx = nothing
It rotates the picture fine and saves it but I loose the EXIF info. Is there a workaround or perhaps I'm doing something wrong? Thanks much.
Right, a
