Private Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim ou As OutputStream
ou = File.OpenOutput(File.DirInternal,"temp.jpg",False)
File.Copy2(File.OpenInput(Dir,FileName),ou)
ou.Close
Dim temp As Bitmap
temp = LoadBitmap(File.DirInternal,"temp.jpg")
Dim exif As ExifData
exif.Initialize(File.DirInternal,"temp.jpg")
Select exif.getAttribute(exif.TAG_ORIENTATION)
Case exif.ORIENTATION_ROTATE_180
temp = RotateBitmap(temp,180)
Case exif.ORIENTATION_ROTATE_270
temp = RotateBitmap(temp,270)
Case exif.ORIENTATION_ROTATE_90
temp = RotateBitmap(temp,90)
End Select
CallSub2(modue,evt,temp)
End If
End Sub