Oddio, non sei mai chiarissimo nella spiegazione ? , ma forse ho capito cosa intendi.
Ho sprecato una risposta:
No, semplicemente cercavo un aiutino sul codice essendo 2 pulsanti ed una label
Non mi pare che la risposta che hai ottenuto "là" sia stata nettamente migliore della mia, anzi ?
pensavo di più, sei veramente un amico !!
La scorsa notte (!) ho provato, proprio usando il ContentChooser che ti ho suggerito io e adesso Erel (il thread [B4X] TextEditor).
Ok, grazie al suggerimento di @DonManfred, problema risolto.
"Mancano ancora un paio di cosucce" un par de <omissis> ?
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#BridgeLogger: True
#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.
Dim mp1 As MediaPlayer
Private CC As ContentChooser
End Sub
Sub Globals
Private btnchoose As Button
Private btnplayfile As Button
Private lblinfoname As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
CC.Initialize("CC")
mp1.Initialize
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub btnchoose_Click
CC.Show("*/*", "Scegli File da inviare")
End Sub
Private Sub btnplayfile_Click
End Sub
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim normalizedFile As String = GetPathFromContentResult(FileName)
If File.Exists("", normalizedFile) == False Then
ToastMessageShow("File non accessibile.", True)
Return
End If
CallSubDelayed3(FileTranser, "SendFile", "", normalizedFile)
Else
If LastException.IsInitialized Then ToastMessageShow(LastException.Message, True)
End If
End Sub
'this code tries to retrieve the real file from the uri
Sub GetPathFromContentResult(UriString As String) As String
If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
Dim Proj() As String
Proj = Array As String("_data")
Dim Cursor As Cursor
Dim r As Reflector
Dim Uri As Object
Uri = r.RunStaticMethod("android.net.Uri", "parse", _
Array As Object(UriString), _
Array As String("java.lang.String"))
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
Cursor = r.RunMethod4("query", _
Array As Object(Uri, Proj, Null, Null, Null), _
Array As String("android.net.Uri", _
"[Ljava.lang.String;", "java.lang.String", _
"[Ljava.lang.String;", "java.lang.String"))
Cursor.Position = 0
Dim res As String
res = Cursor.GetString("_data")
Cursor.Close
Return res
End Sub
come faccio a far suonare il file audio appena selezionato?ma scusa se ti invito questa estate a partanna a gustare una bella pizza su una piazza con veduta sulle isole egadi al tramonto non e meglio di 1000 euro?"Mancano ancora un paio di cosucce" un par de <omissis> ?
La cosa è più complicata del previsto.
Facendo selezionare il file audio usando la classe di Erel e mandandolo in esecuzione col MediaPlayer, funziona.
Una volta salvata la directory ed il nome del file audio, recuperandole e tentando di eseguire di nuovo il Play del MediaPlayer... crash, manca un permesso.
Ho cercato e trovato solo una domanda molto simile a cui nessuno ha risposto.
Sono costretto ad aprire io stesso un thread per porre la questione.
[Nota: il tutto mi sta impegnando ore, per cui il prezzo sale a 1.000€ - per adesso ?]
Non funziona per qualunque tipo di "indirizzo" ("luogo" da cui venga selezionato il file audio) e non è garantito (il percorso) sulle versioni Android più recenti.
Se dietro il tuo nick name ed avatar in realtà si nasconde Juliana Moreira... sì ?
Perché Google ci vuole bene e ogni anno complica le cose in nome della sicurezza dei nostri dati.
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#BridgeLogger: True
#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.
Dim mp1 As MediaPlayer
Private CC As ContentChooser
End Sub
Sub Globals
Private btnchoose As Button
Private btnplayfile As Button
Private lblinfoname As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
CC.Initialize("CC")
mp1.Initialize
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub btnchoose_Click
CC.Show("*/*", "Scegli File da inviare")
End Sub
Private Sub btnplayfile_Click
End Sub
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Log("filename: "&FileName)
Dim normalizedFile As String = GetPathFromContentResult(FileName)
Log("normalize : "&normalizedFile)
' CallSubDelayed3(FileTranser, "SendFile",Dir,normalizedFile)
mp1.Load(Dir,FileName)
mp1.Play
Else
If LastException.IsInitialized Then ToastMessageShow(LastException.Message, True)
End If
End Sub
Sub GetPathFromContentResult(UriString As String) As String
If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
Dim Proj() As String
Proj = Array As String("_data")
Dim Cursor As Cursor
Dim r As Reflector
Dim Uri As Object
Uri = r.RunStaticMethod("android.net.Uri", "parse", _
Array As Object(UriString), _
Array As String("java.lang.String"))
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
Cursor = r.RunMethod4("query", _
Array As Object(Uri, Proj, Null, Null, Null), _
Array As String("android.net.Uri", _
"[Ljava.lang.String;", "java.lang.String", _
"[Ljava.lang.String;", "java.lang.String"))
Cursor.Position = 0
Dim res As String
res = Cursor.GetString("_data")
Cursor.Close
Return res
End SubSicuramente meglio.
Si hai ragione, solo che sto pensando ad un particolare .... essendo una sound board che dovrà far ascoltare 10 suoni diversi, come dovreì gestirli ? dovrei creare 10 variabili content choiser per 10 file audio o come? ancora non ho avuto tempo di riflettere perchè sto facendo un'altra cosa ma mi e venuto in mente questo dubbio.
Io ho sviluppato tutto il progetto, bellissimo, ovviamente ?, compresa fa faccenda del "titolo" da mettere nelle Label, salvataggio e recupero del tutto.
Avevo anche pensato di creare un percorso da far caricare i file audio li direttamente e chiamarli da quella cartella ma è troppo laboriosa per l'utente, mentre quella di cercali su tutto il telefono il file da suonare e meglio.
