iOS Question b4i: Your app crashed on iPhone and iPad running iOS 13.4.1 on WiFi when we: App crashed when we tapped on the voice icon.

fifiddu70

Well-Known Member
Licensed User
Longtime User
Hi everyone, I published an app on the apple connect store, after so many problems I finally await the verification of apple to publish it on the app store, they tell me they have encountered a crash on ios and ipad with versions 13.4.1 during the pressure of the mouth icon with which you can dictate a list by voice, the error that apple tells me is the following: Your app crashed on iPhone and iPad running iOS 13.4.1 on WiFi when we:

App crashed when we tapped on the voice icon.

We have attached detailed crash logs to help troubleshoot this issue.

Next Steps

To resolve this issue, please revise your app and test it on a device to ensure that it runs as expected.

Resources

For information on how to symbolicate and read a crash log, please review Tech Note TN2151 Understanding and Analyzing Application Crash Reports.
i have an iphone 5 on my smartphone i don't have this crash, i report my complete app code hoping for your help.

B4X:
#Region  Project Attributes
    #ApplicationLabel: Ordinaquì
    #Version: 2.0.0
    'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
    #iPhoneOrientations: Portrait
    #iPadOrientations: Portrait
    #Target: iPhone, iPad
    #ATSEnabled: True
    #MinVersion: 10
    #PlistExtra:<key>NSAppTransportSecurity</key><dict><key>NSAllowsArbitraryLoads</key><true/></dict>
    #PlistExtra:<key>NSSpeechRecognitionUsageDescription</key><string>More information here...</string>
    #PlistExtra:<key>NSMicrophoneUsageDescription</key><string>Speech recognition</string>
    #QueriesSchemes: False
    
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
    Private Page2 As Page
    Private Page3 As Page
    Private Page4 As Page
    Dim picker1 As List
    Private pk1 As Picker
    Private web As WebView
    Private imgsplash As ImageView
    Dim timer1 As Timer
    Dim txtordine As TextField
    Private speech As SpeechRecognition
    Private pnlbase As Panel
    Private imgbocca As ImageView
    Private imgvolantino As ImageView
    Private imggomma As ImageView
    Private imgaggiungi As ImageView
    Private imginvio As ImageView
    Private TextView1 As TextView
    Private pnlvolantino As Panel
    Private imgback As ImageView
    Private imgsfondo As ImageView
    Private tableview1 As TableView
    Private pnldati As Panel
    Private imgsfondo2 As ImageView
    Private imgsfondo3 As ImageView
    Private imgbackdati As ImageView
    Private txtdati As TextField
    Private imgconfermadati As ImageView
    Private lblinfodati As Label
End Sub

Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
    Page1.Initialize("Page1")   
    Page1.Title = "Ordinaquì"
    Page1.RootPanel.Color = Colors.RGB (255,248,220)
    Page2.Initialize("Page2")
    Page2.Title = "Ordinaquì"
    Page2.RootPanel.Color = Colors.RGB (255,248,220)
    Page3.Initialize("Page3")
    Page3.Title = "Ordinaquì"
    Page3.RootPanel.Color = Colors.RGB (255,248,220)
    Page4.Initialize("Page4")
    Page4.Title = "Ordinaquì"
    Page4.RootPanel.Color = Colors.RGB (255,248,220)
    NavControl.ShowPage(Page1)
    pk1.Initialize("pk1")
    web.Initialize("web")
    tableview1.Initialize("TableView1", False)
    Page1.RootPanel.AddView(tableview1, 1%x, 12%y, 98%x, 50%y)
    For i = 1 To 5
        Dim tc As TableCell = tableview1.AddTwoLines("", "")
        tc.IndentationLevel = Rnd(0, 5)
    
    Next
    
    imgsplash.Initialize("imgsplash")
    imgback.Initialize("imgback")
    imgsfondo.Initialize("imgsfondo")
    imgsfondo2.Initialize("imgsfondo2")
    imgsfondo3.Initialize("imgsfondo3")
    txtordine.Initialize("txtordine")
    pnlbase.Initialize("pnlbase")
    imgbocca.Initialize("imgbocca")
    imgvolantino.Initialize("imgvolantino")
    imggomma.Initialize("imggomma")
    imgaggiungi.Initialize("imgaggiungi")
    imginvio.Initialize("imginvio")       
    TextView1.Initialize("textview1")
    pnlvolantino.Initialize("pnlvolantino") 
    pnldati.Initialize("pnldati")
    imgbackdati.Initialize("imgbackdati")
    imgconfermadati.Initialize("imgconfermadati")
    txtdati.Initialize("txtdati")
    lblinfodati.Initialize("lblinfodati")
    
    imgsplash.Bitmap=LoadBitmap(File.DirAssets,"splashscreen.jpg")
    imgbocca.Bitmap=LoadBitmap(File.DirAssets,"bocca.png")
    imgaggiungi.Bitmap = LoadBitmap(File.DirAssets,"aggiungi.png")
    imgvolantino.Bitmap = LoadBitmap(File.DirAssets,"volantino.png")
    imggomma.Bitmap = LoadBitmap(File.DirAssets,"gomma.png")
    imginvio.Bitmap = LoadBitmap(File.DirAssets,"invio.png")
    imgback.Bitmap = LoadBitmap(File.DirAssets,"back.png")
    imgsfondo.Bitmap= LoadBitmap(File.DirAssets,"listview398833.jpg")
    imgsfondo2.Bitmap= LoadBitmap(File.DirAssets,"listview398833.jpg")
    imgsfondo3.Bitmap= LoadBitmap(File.DirAssets,"listview398833.jpg")
    imgconfermadati.Bitmap=LoadBitmap(File.DirAssets,"aggiungi.png")
    imgbackdati.Bitmap=LoadBitmap(File.DirAssets,"back.png")
    
    
    timer1.Initialize("timer1",6000)
    timer1.Enabled=True
    pnlbase.Visible=False
    imgsfondo.Visible=False
    txtordine.Visible=False
    imgaggiungi.Visible=False
    tableview1.Visible=False
    imgvolantino.Visible=False
    imgbocca.Visible=False
    imggomma.Visible=False
    imginvio.Visible=False
    Page1.RootPanel.AddView(imgsplash,0%x, 0%y, 100%x, 85%y)
    Page1.RootPanel.AddView(pnlbase,0%x, 0%y, 100%x, 85%y)
    Page1.RootPanel.AddView(imgsfondo,0%x,0%y,100%x,100%y)
    Page1.RootPanel.AddView(txtordine, 5%x,3%y,72%x,9%y)
    Page1.RootPanel.AddView(imgaggiungi,79%x,3%y,18%x,9%y)
    Page1.RootPanel.AddView(tableview1, 5%x, 14%y, 90%x, 48%y)
    Page1.RootPanel.AddView(imgvolantino, 5%x, 65%y, 25%x, 7%y)
    Page1.RootPanel.AddView(imgbocca, 34%x, 65%y, 18%x, 7%y)
    Page1.RootPanel.AddView(imggomma, 55%x, 65%y, 18%x, 7%y)
    Page1.RootPanel.AddView(imginvio, 77%x, 65%y, 18%x, 7%y)
    
    Page2.RootPanel.AddView(pnlvolantino,0%x, 0%y, 100%x, 85%y)
    Page2.RootPanel.AddView(imgsfondo2,0%x,0%y,100%x,100%y)
    Page2.RootPanel.AddView(web,5%x,3%y,90%x,50%y)
    Page2.RootPanel.AddView(pk1,5%x,54%y,70%x,20%y)
    Page2.RootPanel.AddView(imgback,77%x,54%y,18%x,7%y)
    picker1.Initialize
    pk1.SetItems(0,picker1)
    
    Page3.RootPanel.AddView(pnldati,0%x, 0%y, 100%x, 85%y)
    Page3.RootPanel.AddView(imgsfondo3,0%x,0%y,100%x,100%y)
    Page3.RootPanel.AddView(txtdati,5%x,3%y,70%x,10%y)
    Page3.RootPanel.AddView(imgconfermadati,76%x,5%y,18%x,7%y)
    Page3.RootPanel.AddView(lblinfodati,5%x,15%y,90%x,50%y)   
    Page3.RootPanel.AddView(imgbackdati,76%x,67%y,18%x,7%y)
    
        
    picker1.Add("CONAD")
    picker1.Add("EUROSPIN")
    picker1.Add("DESPAR")
    picker1.Add("SIGMA")
    picker1.Add("IL CENTESIMO")
    picker1.Add("LIDL")
    picker1.Add("PAGHI POCO")
    picker1.Add("FAMILA")
    picker1.Add("PENNY")
    picker1.Add("COOP")
    picker1.Add("ESSELUNGA")
    picker1.Add("AUCHAN")
    picker1.Add("A&O")
    picker1.Add("MD")
    picker1.Add("SIMPLY")
    picker1.Add("CARREFOUR")
    
    speech.Initialize("speech")
    
    
    imgsfondo.SendToBack
    imgsfondo2.SendToBack
    imgsfondo3.SendToBack
    
    If File.Exists(File.DirDocuments, "1.txt") Then
        txtdati.Text =     File.ReadString(File.DirDocuments, "1.txt")
    Else
        NavControl.ShowPage(Page3)
    End If
    lblinfodati.Text = "Chiediamo il tuo cognome ed indirizzo solamente se tu vuoi utilizzare l'app per la consegna a domicilio della spesa se il tuo negozio offre tale servizio e quindi visualizzerà il tuo cognome ed indirizzo per la spedizione dei prodotti da te ordinati direttamente a casa. Se invece lascerai il campo di testo vuoto il tuo negozio di consegna a domicilio riceverà soltanto il numero di telefono con la lista della spesa ma non saprà a quale cognome ed indirizzo inviare i prodotti da te ordinati, almeno che non ti conosca ed abbia memorizzato il tuo numero di telefono con il tuo nome e cognome."
    lblinfodati.Color = Colors.White
    lblinfodati.Multiline = True
    lblinfodati.TextAlignment = lblinfodati.ALIGNMENT_CENTER
    lblinfodati.AdjustFontSizeToFit = True
    
    txtdati.HintText = " Inserisci Cognome ed Indirizzo "
    
    
    
End Sub

Sub Speech_AuthorizationStatusChanged (Status As Int)
    If speech.IsAuthorized Then
        Dim lang As String
        If speech.SupportedLanguages.IndexOf(speech.DefaultLanguage) > -1 Then
            lang = speech.DefaultLanguage
        Else
            lang = "it"
        End If
        If speech.SetLanguage(lang) = False Then
            txtordine.HintText = "vocale non disponibile"
        Else
            txtordine.HintText = "Inserisci un prodotto e premi aggiungi"
            
        End If
    Else
        txtordine.HintText = "Non Autorizzato"
    End If
End Sub

Sub Speech_Result (Success As Boolean, IsFinal As Boolean, Texts As List)
    If Success Then
        txtordine.Text = Texts.Get(0)
        
    Else
        txtordine.HintText = "Errore: " & LastException
    End If
    
End Sub
Sub pk1_ItemSelected (Column As Int, Row As Int)
    If Row = 0 Then
        web.Visible=True
        web.LoadUrl ("https://www.conad.it")
    Else If Row = 1 Then
        web.Visible=True
        web.LoadUrl("https://www.eurospin.it")
    Else If Row = 2 Then
        web.Visible=True
        web.LoadUrl ("https://www.desparitalia.it/")
    Else If Row = 3 Then
        web.Visible=True
        web.LoadUrl("https://www.supersigma.com")
    Else If Row = 4 Then
        web.Visible=True
        web.LoadUrl("https://www.ilcentesimo.com/")
    Else If Row = 5 Then
        web.Visible=True
        web.LoadUrl("https://www.lidl.it")
    Else If Row = 6 Then
        web.Visible=True
        web.LoadUrl("https://www.paghipoco.com/")
    Else If Row = 7 Then
        web.Visible=True
        web.LoadUrl ("https://www.famila.it")
    Else If Row = 8 Then
        web.Visible=True
        web.LoadUrl("https://www.pennymarket.it")
    Else If Row = 9 Then
        web.Visible=True
        web.LoadUrl("https://www.e-coop.it/r/home")
    Else If Row = 10 Then
        web.Visible=True
        web.LoadUrl("https://www.esselunga.it")
    Else If Row = 11 Then
        web.Visible=True
        web.LoadUrl("https://www.auchan.it")
    Else If Row = 12 Then
        web.Visible=True
        web.LoadUrl("https://www.aeo.it")
    Else If Row = 13 Then
        web.Visible=True
        web.LoadUrl("https://www.mdwebstore.it")
    Else If Row = 14 Then
        web.Visible=True
        web.LoadUrl ("https://www.simplymarket.it")
    Else If Row = 15 Then
        web.Visible=True
        web.LoadUrl("https://www.carrefour.it")
    
        
    End If
End Sub
Sub timer1_Tick
    pnlbase.Visible=True
    imgsfondo.Visible=True
    txtordine.Visible=True
    imgaggiungi.Visible=True
    tableview1.Visible=True
    imgvolantino.Visible=True
    imgbocca.Visible=True
    imggomma.Visible=True
    imginvio.Visible=True
    imgsplash.Visible=False
    timer1.Enabled=False
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
    
End Sub

Private Sub Application_Background
    
End Sub

Sub avc_Complete (Success As Boolean, ActivityType As String)
    Log($"Success: ${Success}, ActivityType: ${ActivityType}"$)
End Sub

Sub imgbocca_Click ' when press voice icon in iphone and ipad version 13.4.1. go in crash.
    speech.StartRecording(True) 'report partial results
    txtordine.Text = "Sta registrando...."
End Sub

Sub imgvolantino_Click
    NavControl.ShowPage(Page2)
    pnlvolantino.Visible=True
    pnlbase.Visible=False
    web.Visible=True
    web.LoadUrl ("https://www.conad.it/ricerca-negozi.html")
End Sub

Sub imggomma_Click
    txtordine.Text=""
End Sub

Sub imgaggiungi_Click
    speech.StopRecording
    Dim items As List = tableview1.GetItems(0)
    Dim tc As TableCell 'create a new item
    tc.InitializeSingleLine(txtordine.Text)
    items.InsertAt(0, tc)
    tableview1.ReloadSection(0)
    txtordine.Text=""
End Sub

Sub TableView1_SelectedChanged (SectionIndex As Int, Cell As TableCell)
    tableview1.ReloadSection(0)
    tableview1.RemoveCells(SectionIndex, tableview1.GetItems(SectionIndex).IndexOf(Cell), 1)
End Sub

Sub imginvio_Click
    
    
    Dim testo As String
    testo = txtdati.Text
    Dim sb As StringBuilder
    sb.Initialize
    For Each tc As TableCell In tableview1.GetItems(0)
    sb.Append(tc.Text.ToString).Append(CRLF)
    Next
    Dim avc As ActivityViewController
    avc.Initialize("avc", Array("ORDINAQUI' I, Lista della spesa di: "& CRLF & testo & CRLF & "-----------------" & CRLF & sb.ToString , ""))
    avc.Show(Page1, Page1.RootPanel)
    tableview1.Clear
    
    
End Sub

Sub imgback_Click
    NavControl.ShowPage(Page1)
    pnlvolantino.Visible=False
    pnlbase.Visible=True
    
End Sub

Sub imgconfermadati_Click
    File.WriteString(File.DirDocuments, "1.txt", txtdati.Text)
    Msgbox("Dati memorizzati","ESEGUITO")   
    NavControl.ShowPage(Page1)
End Sub

Sub imgbackdati_Click
    NavControl.ShowPage(Page1)
End Sub

How can I solve the problem? can anyone test it on your iphone or ipad with version 13.4.1
 

fifiddu70

Well-Known Member
Licensed User
Longtime User
Posting 400 lines of code doesn't help.


Post the relevant code.
sorry ....
when press the imgclick have a error crash on ipad or iphone with version 13.4.1
B4X:
Sub imgbocca_Click ' when press voice icon in iphone and ipad version 13.4.1. go in crash.
    speech.StartRecording(True) 'report partial results
    txtordine.Text = "Sta registrando...."
End Sub
 
Upvote 0
Cookies are required to use this site. You must accept them to continue using the site. Learn more…