Dim p As B4XView = Tools.xui.CreatePanel(""), uri As Uri, cr As ContentResolver, c As Cursor
p.SetLayoutAnimated(0,0,0,100%x,60dip)
p.LoadLayout("Ligne")
Dim in As InputStream = File.OpenInput("ContentDir",enr)
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "temp", False)
File.Copy2(in, out)
out.Close
ICN.SetBackgroundImage(LoadBitmapResize(File.DirInternal, "temp",ICN.Width,ICN.Height,False))
cr.Initialize("")
uri.Parse(enr)
c = cr.Query(uri,Null,Null,Null,Null)
c.Position = 0
NOM.Text = c.GetString("_display_name")
DAT.Text = Tools.d2s(c.GetString("last_modified"),"")
SZE.Text = Tools.n2s(c.GetString("_size")," ","")
exf.Initialize(File.DirInternal,"temp")
Log("GPS:"&exf.getAttribute(exf.TAG_GPS_LATITUDE)&","&exf.getAttribute(exf.TAG_GPS_LONGITUDE))
exf2.Initialize("EXF",File.Combine(File.DirInternal,"temp"))
Dim m As Map = exf2.GetAllAttributes