Loosing EXIF when saving after rotate

[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.

[xnview]

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