Dim bmp As B4XBitmap = xui.LoadBitmap(File.DirAssets,"YourImage.jpg")
Try
Dim Exif As ExifData
Exif.Initialize(Provider.SharedFolder, tempImageFile)
Log("Orientation: " & Exif.getAttribute(Exif.TAG_ORIENTATION))
Select Exif.getAttribute(Exif.TAG_ORIENTATION)
Case Exif.ORIENTATION_ROTATE_180 '3
bmp = bmp.Rotate(180)
Case Exif.ORIENTATION_ROTATE_90 '6
bmp = bmp.Rotate(90)
Case Exif.ORIENTATION_ROTATE_270 '8
bmp = bmp.Rotate(270)
End Select
Catch
Log(LastException)
End Try