Apreciado amigo Jesús: Una cosa es que estéis dispuestos a ayudar, y otra es que vuestra disposición sea tan rápida como el Whatsapp, con billete de ida y vuelta... Muchas gracias. Voy a intentarlo.
Apreciado amigo Jesús: Una cosa es que estéis dispuestos a ayudar, y otra es que vuestra disposición sea tan rápida como el Whatsapp, con billete de ida y vuelta... Muchas gracias. Voy a intentarlo.
¿Tú tampoco la veías sin tu modificación Jesús? A mí si me salía la imagen. Es verdad que al girar la pantalla daba el error que indicas de memoria, pero sí se cargaban...
#Region Project Attributes
#ApplicationLabel: rotar
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim gsdirimg As String
Dim imagen As Bitmap
Dim nombreimg As String
Dim bitmapOriginal As Bitmap
Dim bitmapRotated As Bitmap
Dim exifdataInstance As ExifData
Dim booleanNeedToWriteRotatedBitmap,booleanError As Boolean
Private imgAntes As ImageView
Private imgDespues As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
gsdirimg = Starter.rp.GetSafeDirDefaultExternal("")
File.Copy(File.DirAssets, "7.jpg", gsdirimg, "7.jpg")
Log("Archivo Copiado")
Dim bmp As Bitmap
bmp.Initializesample(gsdirimg, "7.jpg",100%x,100%y)
imgAntes.Bitmap=bmp
imgDespues.Bitmap=GetRotatedBitmap
End Sub
Sub GetRotatedBitmap As Bitmap
Dim bitmapOriginal As Bitmap
Dim bitmapRotated As Bitmap
Dim exifdataInstance As ExifData
Try
booleanNeedToWriteRotatedBitmap = False
exifdataInstance.Initialize (gsdirimg, "7.jpg")
bitmapOriginal.InitializeSample (gsdirimg, "7.jpg",100%x,100%y)
Select Case exifdataInstance.getAttribute (exifdataInstance.TAG_ORIENTATION)
Case exifdataInstance.ORIENTATION_ROTATE_90
Log("ORIENTATION_ROTATE_90")
bitmapRotated = bitmapOriginal.rotate (90)
Case exifdataInstance.ORIENTATION_ROTATE_180
Log("ORIENTATION_ROTATE_180")
bitmapRotated = bitmapOriginal.rotate (180)
Case exifdataInstance.ORIENTATION_ROTATE_270
Log("ORIENTATION_ROTATE_270")
bitmapRotated = bitmapOriginal.rotate (270)
Case Else
Return bitmapOriginal
End Select
booleanNeedToWriteRotatedBitmap = True
Return bitmapRotated
Catch
booleanError = True
Return Null
End Try
End Sub
Una pregunta, cuando dices descarga los bitmap que hayas utilizado, que debo hacer?