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.
How can I solve the problem? can anyone test it on your iphone or ipad with version 13.4.1
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 SubHow can I solve the problem? can anyone test it on your iphone or ipad with version 13.4.1
