Dim rbmp AsRSImageProcessing
Dim finalBitmap AsBitmap
Try
If Success Then
File.Copy(Dir ,FileName, File.DirRootExternal ,"tempFile.jpg")
'** Initialize exif
exif.Initialize(File.DirRootExternal ,"tempFile.jpg")
Dim temp AsString
temp = exif.getAttribute(exif.TAG_ORIENTATION)
'** Image is rotated
If temp = "6"Then
rbmp.Initialize
finalBitmap = LoadBitmap(Dir, FileName)
finalBitmap = rbmp.rotateBitmap(finalBitmap, 90)
ivBillede.Bitmap = finalBitmap
Else
finalBitmap = LoadBitmap(Dir, FileName)
ivBillede.Bitmap = finalBitmap
EndIf
'** Slet temp billede fil
File.Delete(File.DirRootExternal ,"tempFile.jpg")
EndIf
Catch
Dim errorMessage AsString
errorMessage = LastException.Message
Msgbox(errorMessage, "ERROR!")
EndTry