chown
Member
hey guys
I'm really tierd for this problem.
app is for english stories that get data from web with okHttpUtiles2 and parse with jsonparse
I have two avtivitis : main & oneStory
in main it is list of stories :
by clicking on customList item next avtitvity showing selected story:
and this my code in storyShow Sub in oneStory Activity that sending id of a story to storyShow :
when I rurn this code, I can see Log(map1.Get("str_title")) in Log but not in storyTex that is a EditeText view in a Layout. WHY?
and when I run I see this Error:
you can check website that return json file from database:
all stories:
one story:
I'm really tierd for this problem.
app is for english stories that get data from web with okHttpUtiles2 and parse with jsonparse
I have two avtivitis : main & oneStory
in main it is list of stories :
B4X:
Sub Globals
Private xCustList As CustomListView
Private lblText As B4XView
End Sub
B4X:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Dim j As HttpJob
j.Initialize("",Me)
j.Download("http://skiarsi.sportsontheweb.net")
ProgressDialogShow2("Downloading... ",False)
Wait For (j) JobDone (j As HttpJob)
If j.success Then
Dim jparser As JSONParser
jparser.Initialize(j.GetString)
Dim root As List = jparser.NextArray
Dim xui As XUI
ProgressDialogHide
For Each colroot As Map In root
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(100,0,0,100%x,25dip)
p.LoadLayout("oneForMain")
lblText.Text = colroot.Get("str_title")
Dim dataOrder= colroot.Get("str_order")
xCustList.Add(p,dataOrder)
Next
End If
End Subby clicking on customList item next avtitvity showing selected story:
B4X:
Sub xCustList_ItemClick (Index As Int, Value As Object)
CallSubDelayed2("oneStory", "storyShow", Value )
End Suband this my code in storyShow Sub in oneStory Activity that sending id of a story to storyShow :
B4X:
Sub storyShow(value As String )
Dim j As HttpJob
j.Initialize("",Me)
j.Download("http://skiarsi.sportsontheweb.net/index.php/onesstory/retstory/"& value)
ProgressDialogShow2("waiting...", False)
Wait For (j) JobDone (j As HttpJob)
If j.Success Then
Dim jsparser As JSONParser
jsparser.Initialize(j.GetString)
Dim root As List = jsparser.NextArray
Dim xui As XUI
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(100, 0,0,100%x,100%y)
p.LoadLayout("layOneStory")
ProgressDialogHide
Dim text As String
Dim map1 As Map
map1 = root.Get(0)
Log(map1.Get("str_title"))
Dim fullText=map1.Get("str_title")
storyText.Text=fullText
End If
End Subwhen I rurn this code, I can see Log(map1.Get("str_title")) in Log but not in storyTex that is a EditeText view in a Layout. WHY?
and when I run I see this Error:
please help me.
you can check website that return json file from database:
all stories:
B4X:
http://skiarsi.sportsontheweb.net
B4X:
http://skiarsi.sportsontheweb.net/index.php/onesstory/retstory/20201115204513