Sub Globals
'These global variables will be redeclared each time the activity is created.
Private ImageView1 As B4XView
Dim xui As XUI
Dim exif As ExifData
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Dim fname As String
Dim bmp As B4XBitmap
fname = "1105.jpg"
File.Copy(File.DirAssets, fname, File.DirRootExternal, fname)
bmp = xui.LoadBitmap(File.DirAssets,fname)
Activity.LoadLayout("b4xviewtest")
End If
ImageView1.SetBitmap(bmp)
FillImageToView(bmp,ImageView1)
exif.Initialize(File.DirRootExternal, fname)
End Sub