Italian [B4A] eseguire una telefonata [RISOLTO]

[LucaMs]

ed usare questo metodo indicato nel post di @LucaMs per richiamare una funzione contenuta in una certa pagina.

Non ho idea di cosa sia; dopo 8 mesi, non ricordo nemmeno il mio (vero) nome ?


P.S. Ok, visto

 

[LucaMs]

Come promesso ho creato un progettino semplice (e senza tanti controlli) che è funzionante... nel senso che effettua la chiamata telefonica al numero selezionato.

Se è migliorabile la procedura di avvio della telefonata... meglio.
Grazie a tutti

Con 7zip non me lo fa decomprimere.

 

[LucaMs]

Con 7zip non me lo fa decomprimere.

Per forza, 8KB !

 

[Xfood]

Lo allego io in zip, sul cell utilizzo totalcmd

 

[LucaMs]

Private Sub Button1_Click
    If EditText1.Text = "" Then
        xui.MsgboxAsync("Numero di telefono non inserito!","Attenzione")
    Else
        Tel=EditText1.text
    End If
    Dim ro As Object = Msgbox2Async("Vuoi telefonare al numero " & Tel & "?","Telefona al contatto","SI","","NO",Null,False)
    Wait For (ro) Msgbox_Result (res As Int)
    If res=DialogResponse.POSITIVE Then
        rp.CheckAndRequest(rp.PERMISSION_CALL_PHONE)
        Wait For Activity_Permissionresult(Permission As String, Result As Boolean)
    End If
End Sub

Private Sub B4XPage_Permissionresult(Permission As String,Result As Boolean)
    If Result=True Then
        Dim ph As PhoneCalls
        StartActivity(ph.Call(Tel))
    End If
End Sub

Private Sub Button1_Click
    If EditText1.Text = "" Then
        xui.MsgboxAsync("Numero di telefono non inserito!","Attenzione")
    Else
        Tel=EditText1.text
    End If
    Dim ro As Object = Msgbox2Async("Vuoi telefonare al numero " & Tel & "?","Telefona al contatto","SI","","NO",Null,False)
    Wait For (ro) Msgbox_Result (res As Int)
    If res=DialogResponse.POSITIVE Then
        rp.CheckAndRequest(rp.PERMISSION_CALL_PHONE)
        Wait For B4XPage_Permissionresult(Permission As String, Result As Boolean)
        If Result=True Then
            Dim ph As PhoneCalls
            StartActivity(ph.Call(Tel))
        End If
    End If
End Sub

Non ho ancora provato se funzioni; mi pare manchi qualcosa nel Manifest.

 

[Xfood]

Avevo aperto il sorgente, con il cell
e stavo per scrivere la stessa cosa
Sul mio cell, non trovo il manifest ?

 

[LucaMs]

Non ho ancora provato se funzioni

Funziona

 

[LucaMs]

Funziona

Ma sul mio Android 8, però; sui successivi non so.

 

[Xfood]

Adesso si che e' risolto questo post.

 

[Aldo's]

Ma sul mio Android 8, però; sui successivi non so.

Domani provo sul mio Android 11