one question , why do i get this error ?
i run a step by step debugger everything looks ok
the program is stoped and it desplays in logs the error message below why?
i run a step by step debugger everything looks ok
the program is stoped and it desplays in logs the error message below why?
i amended the code tojava.lang.NullPointerException
at android.webkit.WebViewClassic$PrivateHandler.handleMessage(WebViewClassic.java:12961)
at android.os.Handler.dispatchMessage(Handler.java:99)
at android.os.Looper.loop(Looper.java:176)
at android.app.ActivityThread.main(ActivityThread.java:5319)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1102)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:869)
at dalvik.system.NativeStart.main(Native Method)
B4X:
Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
If Job.JobName = "kdraw" Then
Dim root As Map = parser.NextObject
Dim draw As Map = root.Get("draw")
Dim drawTime As String = draw.Get("drawTime")
Dim drawNo As Int = draw.Get("drawNo")
Dim results As List = draw.Get("results")
'For Each colresults As Int In results
Dim mytime,mydate As String
Label1.Text= "Draw" & draw
mytime= sf.Right(drawTime,8)
mydate=sf.Left(drawTime,10)
Label2.Text="Draw Time" & mytime & "Draw Date" & mydate
Label3.Text="Draw Number" & drawNo
Label4.Text=" Results" & results
'For i = 0 To results.Size - 1
Dim number0,number1,number2,number3,number4,number5,number6,number7,number8,number9,number10,number11,number12,number13,number14,number15,number16,number17,number18,number19 As Int
number0 = results.Get(0)
number1 = results.Get(1)
number2 = results.Get(2)
number3 = results.Get(3)
number4 = results.Get(4)
number5 = results.Get(5)
number6 = results.Get(6)
number7 = results.Get(7)
number8 = results.Get(8)
number9 = results.Get(9)
number10 = results.Get(10)
number11 = results.Get(11)
number12 = results.Get(12)
number13 = results.Get(13)
number14 = results.Get(14)
number15 = results.Get(15)
number16 = results.Get(16)
number17 = results.Get(17)
number18 = results.Get(18)
number19 = results.Get(19)
Else
ToastMessageShow("Error: Invalid Value", True)
End If
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub