Capture web data

[GaryK4]

I am experimenting with my first app (stock widget).
Using HttpRequest with http://quote.yahoo.com/d/quote.csv, I can get all the stocks that I need except the DOW index which is not supported by Yahoo any longer.
This commands generate data that I could use. However, I cannot figure out how to capture the results.

http://finance.google.com/finance/info?client=ig&q=indexdjx:.DJI
http://www.google.com/ig/api?stock=GOOG

:sign0104:

 

[Stulish]

Gary,

I have not played with HTTP request before so threw then below example together to show you how i would do it, it is contained in the example ZIP file with the layouts. could probably do this neatening up a little, but i thought i would get it posted.

I hope it is of some use and is what you were looking for,

Regards

Stu

Sub Process_Globals
    Dim hc As HttpClient
End Sub
Sub Globals
   Dim StockSpin As Spinner
   Dim IndexSpin As Spinner
   Dim GetInfo As Button
   Dim Info1 As Label
   Dim Info2 As Label
   Dim Info3 As Label
   Dim Info4 As Label
   Dim Info5 As Label
   Dim Info6 As Label
   Dim Info7 As Label
   Dim Info8 As Label
   Dim Info9 As Label
   Dim Info10 As Label
   Dim Info11 As Label
   Dim req As HttpRequest
   Dim HTTPString As String 
   Dim HTTPStock As String 
   Dim HTTPComp As String
   Dim Stocks As Map 
End Sub
Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
   Activity.LoadLayout("main")
   Activity.Title="Stock Check Example"
        hc.Initialize("hc")
      Stocks.Initialize
      HTTPString = "http://finance.google.com/finance/info?client=ig&q="
         HTTPStock = "NASDAQ:"
      HTTPComp = "FLWS" 'NASDAQ Composite
      Stocks.Put("FLWS","1-800-FLOWERS.COM, Inc.")
      Stocks.Put("FCTY","1st Century Bancshares, Inc.")
      Stocks.Put("FCCY","1st Constitution Bancorp")
      Stocks.Put("SRCE","1st Source Corporation")
      Stocks.Put("FUBC","1st United Bancorp Inc (Florida)")
      Stocks.Put("VNET","21Vianet Group Inc")
      Stocks.Put("SSRX","3SBio Inc. (ADR)")
      Stocks.Put("JOBS","51job, Inc. (ADR)  ")
      Stocks.Put("EGHT","8x8, Inc.")
      For a=0 To Stocks.Size-1
      StockSpin.Add(Stocks.GetValueAt(a))
      Next
      IndexSpin.Add("NASDAQ")
   End If
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    Dim rS As String, list1 As Map 
   Dim strt As Int 
   Dim started As Boolean 
   Dim dataList As List 
   dataList.Initialize 
    rS = Response.GetString("UTF8")
    'Work with the result
   Log(Response.StatusCode)
   Log ("Length:" & rS.Length)
   Log(rS)
   strt = 0: started = False
   For a=0 To rS.Length-1 
      If rS.CharAt(a) = Chr(34) AND started = False Then
         strt = a+1
         started = True
      Else
         If rS.CharAt(a) = Chr(34) AND started = True Then
            started = False
            dataList.Add(rS.SubString2(strt,a))
         End If
      End If
   Next
   Log (dataList)   
   Display(dataList)
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    Log("Error connecting: " & Reason & " " & StatusCode)
    If Response <> Null Then
        Log(Response.GetString("UTF8"))
        Response.Release
    End If
End Sub 
Sub StockSpin_ItemClick (Position As Int, Value As Object)
   HTTPComp = Stocks.GetKeyAt(Position)
End Sub
Sub GetInfo_Click
   req.InitializeGet(HTTPString & HTTPStock & HTTPComp)
      hc.Execute(req, 1)
End Sub
Sub Display(Info As List)
Info1.Text = Info.Get(1)
Info2.Text = Info.Get(3)
Info3.Text = Info.Get(5)
Info4.Text = Info.Get(7)
Info5.Text = Info.Get(9)
Info6.Text = Info.Get(11)
Info7.Text = Info.Get(13)
Info8.Text = Info.Get(15)
Info9.Text = Info.Get(17)
Info10.Text = Info.Get(19)
Info11.Text = Info.Get(21)
End Sub
Sub IndexSpin_ItemClick (Position As Int, Value As Object)
   HTTPStock = Value & ":"
End Sub

 

[GaryK4]

Stu,

I think this will be very helpful.
There is discussions that Google finance may stop as well, but I wiil worry about it when that happens.

Thanks for the fast and helpful response!

Gary...

 

[Stulish]

I updated the code using Yahoo Finance and Yahoo data download site. This site explains it all. Attached is also a copy of the updated code and layout file.

i have used the same string as from the website above:

for example: http://finance.yahoo.com/d/quotes.csv?s=XOM+BBDb.TO+JNJ+MSFT&f=snd1l1yr

items above in bold and italic have been removed so you can select the company from the Spinner

the letters in other colours are defined in the quote below, just ass the letters for the extra information.

Sub Process_Globals
    Dim hc As HttpClient
End Sub
Sub Globals
   Dim StockSpin As Spinner
   Dim GetInfo As Button
   Dim Info1 As Label
   Dim Info2 As Label
   Dim Info3 As Label
   Dim Info4 As Label
   Dim Info5 As Label
   Dim Info6 As Label
   Dim req As HttpRequest
   Dim HTTPString As String 
   Dim HTTPStock As String 
   Dim HTTPComp As String
   Dim Stocks As Map 
End Sub
Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
   Activity.LoadLayout("main")
   Activity.Title="Stock Check Example"
        hc.Initialize("hc")
      Stocks.Initialize
      HTTPString = "http://finance.yahoo.com/d/quotes.csv?s="
      HTTPComp = "FLWS" 
      Stocks.Put("FLWS","1-800-FLOWERS.COM, Inc.")
      Stocks.Put("FCTY","1st Century Bancshares, Inc.")
      Stocks.Put("FCCY","1st Constitution Bancorp")
      Stocks.Put("SRCE","1st Source Corporation")
      Stocks.Put("FUBC","1st United Bancorp Inc (Florida)")
      Stocks.Put("VNET","21Vianet Group Inc")
      Stocks.Put("SSRX","3SBio Inc. (ADR)")
      Stocks.Put("JOBS","51job, Inc. (ADR)  ")
      Stocks.Put("EGHT","8x8, Inc.")
      For a=0 To Stocks.Size-1
      StockSpin.Add(Stocks.GetValueAt(a))
      Next
   End If
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    Dim rS,st As String
   Dim strt As Int 
   Dim dataList As List 
   dataList.Initialize 
    rS = Response.GetString("UTF8")
    'Work with the result
   strt = 0
   For a=0 To rS.Length-1 
      If rS.CharAt(a) = "," Then
         st = rS.SubString2(strt,a)
         st = st.Replace(Chr(34), "")
         dataList.Add(st.Trim)
         strt = a+1
      End If
   Next
   st = rS.SubString(strt)
   st = st.Replace(Chr(34), "")
   dataList.Add(st.Trim)
   Display(dataList)
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    Log("Error connecting: " & Reason & " " & StatusCode)
    If Response <> Null Then
        Log(Response.GetString("UTF8"))
        Response.Release
    End If
End Sub 
Sub StockSpin_ItemClick (Position As Int, Value As Object)
   HTTPComp = Stocks.GetKeyAt(Position)
End Sub
Sub GetInfo_Click
   req.InitializeGet(HTTPString & HTTPComp & "&f=snd1l1yr") ' see table for what data you want to extract
      hc.Execute(req, 1)
End Sub
Sub Display(Info As List)
'See Table for Symbols
Info1.Text = Info.Get(0) ' s = Symbol
Info2.Text = Info.Get(1) ' n = Name
Info3.Text = Info.Get(2) ' d1 = Last Trade Date
Info4.Text = Info.Get(3) ' l1 = Last Trade (Price Only)
Info5.Text = Info.Get(4) ' y = Dividend Yield
Info6.Text = Info.Get(5) ' r = P/E Ratio
End Sub

a Ask
a2 Average Daily Volume
a5 Ask Size
b Bid
b2 Ask (Real-time)
b3 Bid (Real-time)
b4 Book Value
b6 Bid Size
c Change & Percent Change
c1 Change
c3 Commission
c6 Change (Real-time)
c8 After Hours Change (Real-time)
d Dividend/Share
d1 Last Trade Date
d2 Trade Date
e Earnings/Share
e1 Error Indication (returned for symbol changed / invalid)
e7 EPS Estimate Current Year
e8 EPS Estimate Next Year
e9 EPS Estimate Next Quarter
f6 Float Shares
g Day's Low
h Day's High
j 52-week Low
k 52-week High
g1 Holdings Gain Percent
g3 Annualized Gain
g4 Holdings Gain
g5 Holdings Gain Percent (Real-time)
g6 Holdings Gain (Real-time)
i More Info
i5 Order Book (Real-time)
j1 Market Capitalization
j3 Market Cap (Real-time)
j4 EBITDA
j5 Change From 52-week Low
j6 Percent Change From 52-week Low
k1 Last Trade (Real-time) With Time
k2 Change Percent (Real-time)
k3 Last Trade Size
k4 Change From 52-week High
k5 Percebt Change From 52-week High
l Last Trade (With Time)
l1 Last Trade (Price Only)
l2 High Limit
l3 Low Limit
m Day's Range
m2 Day's Range (Real-time)
m3 50-day Moving Average
m4 200-day Moving Average
m5 Change From 200-day Moving Average
m6 Percent Change From 200-day Moving Average
m7 Change From 50-day Moving Average
m8 Percent Change From 50-day Moving Average
n Name
n4 Notes
o Open
p Previous Close
p1 Price Paid
p2 Change in Percent
p5 Price/Sales
p6 Price/Book
q Ex-Dividend Date
r P/E Ratio
r1 Dividend Pay Date
r2 P/E Ratio (Real-time)
r5 PEG Ratio
r6 Price/EPS Estimate Current Year
r7 Price/EPS Estimate Next Year
s Symbol
s1 Shares Owned
s7 Short Ratio
t1 Last Trade Time
t6 Trade Links
t7 Ticker Trend
t8 1 yr Target Price
v Volume
v1 Holdings Value
v7 Holdings Value (Real-time)
w 52-week Range
w1 Day's Value Change
w4 Day's Value Change (Real-time)
x Stock Exchange
y Dividend Yield

hopefully someone may be able to use this

Regards

stu

 

[GaryK4]

Stu,

I did have yahoo working. However yahoo had some kind of contract problem with DOW. ^DJI (DOW) is no longer supported. I can get the data from Google finance unless they stop in the future as well. Yahoo works for all securities, just not DOW.

Thanks again for all you help!
Have a happy New Year!

 

[Stulish]

Error Getting Returned Data

Hi guys,

I have been playing with the HTTPRequest and when i sent "http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items" i get the error in the picture, the log can be seen below along with the code.

Sub Process_Globals
    Dim hc As HttpClient
   Dim req As HttpRequest
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)

    hc.Initialize("hc")
   req.InitializeGet("http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items")
      hc.Execute(req, 1)
End Sub
Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    Dim rS As String
    rS = Response.GetString("UTF8")
   Log(rS)
End Sub
Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    Log("Error connecting: " & Reason & " " & StatusCode)
    If Response <> Null Then
        Log(Response.GetString("UTF8"))
        Response.Release
    End If
End Sub

** Activity (main) Create, isFirst = true **


** Activity (main) Resume **


main_hc_responsesuccess (java line: 283)


android.os.NetworkOnMainThreadException


at android.os.StrictMode$AndroidBlockGuardPolicy.onNetwork(StrictMode.java:1117)
at libcore.io.BlockGuardOs.recvfrom(BlockGuardOs.java:163)
at libcore.io.IoBridge.recvfrom(IoBridge.java:513)
at java.net.PlainSocketImpl.read(PlainSocketImpl.java:488)
at java.net.PlainSocketImpl.access$000(PlainSocketImpl.java:46)
at java.net.PlainSocketImpl$PlainSocketInputStream.read(PlainSocketImpl.java:240)
at org.apache.http.impl.io.AbstractSessionInputBuffer.fillBuffer(AbstractSessionInputBuffer.java:103)
at org.apache.http.impl.io.AbstractSessionInputBuffer.read(AbstractSessionInputBuffer.java:134)
at org.apache.http.impl.io.ContentLengthInputStream.read(ContentLengthInputStream.java:174)
at org.apache.http.impl.io.ContentLengthInputStream.read(ContentLengthInputStream.java:188)
at org.apache.http.impl.io.ContentLengthInputStream.close(ContentLengthInputStream.java:121)
at org.apache.http.conn.BasicManagedEntity.streamClosed(BasicManagedEntity.java:179)
at org.apache.http.conn.EofSensorInputStream.checkClose(EofSensorInputStream.java:266)
at org.apache.http.conn.EofSensorInputStream.close(EofSensorInputStream.java:213)
at java.io.InputStreamReader.close(InputStreamReader.java:145)
at org.apache.http.util.EntityUtils.toString(EntityUtils.java:139)
at anywheresoftware.b4a.http.HttpClientWrapper$HttpResponeWrapper.GetString(HttpClientWrapper.java:471)
at android.lishsoft.stockcheck.main._hc_responsesuccess(main.java:283)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:165)
at anywheresoftware.b4a.BA$3.run(BA.java:301)
at android.os.Handler.handleCallback(Handler.java:725)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:5039)
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:793)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:560)
at dalvik.system.NativeStart.main(Native Method)
android.os.NetworkOnMainThreadException

if i type the above url into a web browser i get:

{"lastModified":1357427830000,"name":"Sturinde","realm":"Aszune","battlegroup":"Blackout","class":11,"race":4,"gender":0,"level":90,"achievementPoints":6935,"thumbnail":"aszune/153/57667737-avatar.jpg","calcClass":"U","items":{"averageItemLevel":477,"averageItemLevelEquipped":476,"head":{"id":77535,"name":"Camouflage Retinal Armor","icon":"inv_helmet_goggles_pandariatradeskill_d_01","quality":4,"itemLevel":476,"tooltipParams":{"gem0":76879,"gem1":77546,"gem2":77547,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":5,"amount":855},{"stat":7,"amount":1522}],"armor":2206},"neck":{"id":81184,"name":"Necklace of Disorientation","icon":"inv_jewelry_necklace_85","quality":3,"itemLevel":471,"tooltipParams":{"reforge":167,"upgrade":{"current":1,"total":1,"itemLevelIncrement":8}},"stats":[{"stat":49,"amount":238,"reforgedAmount":-158},{"stat":5,"amount":540},{"stat":6,"amount":299},{"stat":7,"amount":810},{"stat":36,"amount":158,"reforged":true}],"armor":0},"shoulder":{"id":86768,"name":"Spaulders of the Divided Mind","icon":"inv_shoulder_leather_reputation_c_01","quality":4,"itemLevel":476,"tooltipParams":{"gem0":76694,"enchant":4806,"reforge":167,"transmogItem":81690,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":270,"reforgedAmount":-180},{"stat":5,"amount":674},{"stat":6,"amount":470},{"stat":7,"amount":1131},{"stat":36,"amount":180,"reforged":true}],"armor":2036},"back":{"id":86874,"name":"Cloak of Overwhelming Corruption","icon":"inv_cape_pandaria_d_03","quality":4,"itemLevel":483,"tooltipParams":{"enchant":4423,"reforge":162,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":249,"reforgedAmount":-165},{"stat":5,"amount":604},{"stat":36,"amount":383},{"stat":7,"amount":906},{"stat":6,"amount":165,"reforged":true}],"armor":1092},"chest":{"id":85850,"name":"Wildblood Vest","icon":"inv_chest_leather_reputation_c_01","quality":4,"itemLevel":476,"tooltipParams":{"gem0":76694,"gem1":76638,"enchant":4419,"reforge":167,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":382,"reforgedAmount":-254},{"stat":5,"amount":855},{"stat":6,"amount":530},{"stat":7,"amount":1523},{"stat":36,"amount":254,"reforged":true}],"armor":2715},"tabard":{"id":64882,"name":"Gilneas Tabard","icon":"inv_misc_tabard_gilneas","quality":1,"itemLevel":1,"tooltipParams":{},"stats":[],"armor":0},"wrist":{"id":81179,"name":"Star Summoner Bracers","icon":"inv_bracer_leather_dungeonleather_c_06","quality":3,"itemLevel":471,"tooltipParams":{"enchant":4411,"reforge":167,"upgrade":{"current":1,"total":1,"itemLevelIncrement":8}},"stats":[{"stat":49,"amount":195,"reforgedAmount":-130},{"stat":5,"amount":540},{"stat":6,"amount":381},{"stat":7,"amount":810},{"stat":36,"amount":130,"reforged":true}],"armor":1167},"hands":{"id":86817,"name":"Gauntlets of Undesired Gifts","icon":"inv_glove_leather_raidmonk_l_01","quality":4,"itemLevel":483,"tooltipParams":{"gem0":76686,"enchant":4430,"reforge":145,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":32,"amount":344,"reforgedAmount":-228},{"stat":5,"amount":725},{"stat":6,"amount":368},{"stat":7,"amount":1208},{"stat":36,"amount":228,"reforged":true}],"armor":1738},"waist":{"id":89061,"name":"Klaxxi Lash of the Harbinger","icon":"inv_belt_leather_reputation_c_01","quality":4,"itemLevel":489,"tooltipParams":{"gem0":76651,"gem1":76699,"extraSocket":true,"reforge":145,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":32,"amount":300,"reforgedAmount":-199},{"stat":5,"amount":771},{"stat":6,"amount":544},{"stat":7,"amount":1277},{"stat":36,"amount":199,"reforged":true}],"armor":1596},"legs":{"id":89089,"name":"Wind-Reaver Greaves","icon":"inv_pant_leather_reputation_c_01","quality":4,"itemLevel":489,"tooltipParams":{"gem0":76694,"enchant":4826,"reforge":167,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":423,"reforgedAmount":-282},{"stat":5,"amount":1066},{"stat":6,"amount":736},{"stat":7,"amount":1719},{"stat":36,"amount":282,"reforged":true}],"armor":2483},"feet":{"id":81072,"name":"Treads of Corrupted Water","icon":"inv_boots_leather_dungeonleather_c_06","quality":3,"itemLevel":463,"tooltipParams":{"gem0":76686,"enchant":4429,"reforge":167,"upgrade":{"current":0,"total":1,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":237,"reforgedAmount":-157},{"stat":5,"amount":588},{"stat":6,"amount":412},{"stat":7,"amount":1002},{"stat":36,"amount":157,"reforged":true}],"armor":1782},"finger1":{"id":89073,"name":"Leven's Circle of Hope","icon":"inv_jewelry_ring_143","quality":4,"itemLevel":489,"tooltipParams":{"reforge":145,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":32,"amount":291,"reforgedAmount":-194},{"stat":5,"amount":638},{"stat":6,"amount":323},{"stat":7,"amount":958},{"stat":36,"amount":194,"reforged":true}],"armor":0},"finger2":{"id":89968,"name":"Feng's Ring of Dreams","icon":"inv_jewelry_ring_148","quality":4,"itemLevel":476,"tooltipParams":{"reforge":167,"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":49,"amount":243,"reforgedAmount":-162},{"stat":5,"amount":566},{"stat":6,"amount":331},{"stat":7,"amount":849},{"stat":36,"amount":162,"reforged":true}],"armor":0},"trinket1":{"id":86885,"name":"Spirits of the Sun","icon":"inv_drink_29_sunkissedwine","quality":4,"itemLevel":483,"tooltipParams":{"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":5,"amount":1021}],"armor":0},"trinket2":{"id":87573,"name":"Thousand-Year Pickled Egg","icon":"inv_egg_02","quality":4,"itemLevel":470,"tooltipParams":{"upgrade":{"current":0,"total":2,"itemLevelIncrement":0}},"stats":[{"stat":5,"amount":904}],"armor":0},"mainHand":{"id":81288,"name":"Gustwalker Staff","icon":"inv_staff_2h_pandung_c_02","quality":3,"itemLevel":471,"tooltipParams":{"enchant":4441,"reforge":167,"upgrade":{"current":1,"total":1,"itemLevelIncrement":8}},"stats":[{"stat":49,"amount":341,"reforgedAmount":-226},{"stat":5,"amount":969},{"stat":6,"amount":693},{"stat":45,"amount":5551},{"stat":7,"amount":1454},{"stat":36,"amount":226,"reforged":true}],"armor":0,"weaponInfo":{"damage":{"min":4813,"max":7222,"exactMin":4813.983,"exactMax":7221.0},"weaponSpeed":3.4,"dps":1769.8503}}}}

This is all the data for one of my World of Warcraft Characters, i was wondering why this causes an error and is there a way to get the data into a string or even better a map, the site does say its output is JSON (API info at found HERE).

regards

Stu

 

[mc73]

Not sure, but I think that if you move your code to a service module, this error will disappear. Seems like a security thing to me.

 

[Beja]

Stulish,
I see the dumped text when using http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items.
It looks like you just need to write a simple parser routine to filter it out
and come up with clean data in the format you want.

 

[Erel]

HttpResponse.GetString is deprecated and should not be used (on Android 4+ devices). You should instead use HttpUtils2.

 

[Stulish]

Guys,

I have had some joy with getting information from the blizzard server, basically if i just ask for basic char info i get a map of the data in accordance with their website information. if i then ask for all the items the character has i get an error and looking at the returned string, it isn't the same as what is on their site.

being new to the JSON data structure i was wondering what i am doing wrong.

i have attached the sample i am using it just sends the information to log so nothing is displayed on the screen.

'Activity module
Sub Process_Globals

End Sub

Sub Globals
Dim CharData As Map 
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim job1 As HttpJob
   CharData.Initialize 
   job1.Initialize("Job1", Me)
   job1.download("http://eu.battle.net/api/wow/character/aszune/sturinde")            'this job works
   'job1.download("http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items") 'this job doesnt
End Sub
Sub JobDone (Job As HttpJob)
Dim retInf As String
Dim s1, s2,s3,s4 As Int 
CharData.Clear 
   Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
   If Job.Success = True Then
      Select Job.JobName
         Case "Job1"
         retInf = Job.GetString
         Log(retInf)
         get_data(retInf)
      End Select
   Else
      Log("Error: " & Job.ErrorMessage)
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
   End If
   Job.Release
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub get_data(data As String)
Dim JSON As JSONParser
Dim Map1 As Map
JSON.Initialize(data)
Map1 = JSON.NextObject
Log(Map1)
End Sub

any ideas greatly appreciated.

Thanks

Stu

 

[lagore]

Hi I just tried that 'Get' request using the full request to get the items and it worked fine, not sure why your code is not working.

 

[Stulish]

did you comment out the first get statement and un-comment the second.

job1.download("http://eu.battle.net/api/wow/character/aszune/sturinde")                'this job works
'job1.download("http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items") 'this job doesnt

The first one works fine but the second one doesn't (the second statement has the useable data)

Thanks

Stu

 

[lagore]

Ya it was the second longer one with the data that I used, I did not use your code but a simple test app using the same URL and it worked fine, will down your code and try it out.

edit. just ran your code and it worked perfectly it loaded the Map with the returned data.

(MyMap) {thumbnail=aszune/153/57667737-avatar.jpg, level=90, achievementPoints=6935, battlegroup=Blackout, lastModified=1357690230000, items={neck={id=81184, icon=inv_jewelry_necklace_85, stats=[{amount=238, reforgedAmount=-158, stat=49}, {amount=540, stat=5}, {amount=299, stat=6}, {amount=810, stat=7}, {amount=158, reforged=true, stat=36}], name=Necklace of Disorientation, armor=0, quality=3, itemLevel=471, tooltipParams={upgrade={total=1, current=1, itemLevelIncrement=8}, reforge=167}}, mainHand={id=81288, icon=inv_staff_2h_pandung_c_02, stats=[{amount=341, reforgedAmount=-226, stat=49}, {amount=969, stat=5}, {amount=693, stat=6}, {amount=5551, stat=45}, {amount=1454, stat=7}, {amount=226, reforged=true, stat=36}], name=Gustwalker Staff, armor=0, quality=3, weaponInfo={damage={exactMax=7221.0, min=4813, exactMin=4813.983, max=7222}, dps=1769.8503, weaponSpeed=3.4}, itemLevel=471, tooltipParams={upgrade={total=1, current=1, itemLevelIncrement=8}, reforge=167, enchant=4441}}, feet={id=81072, icon=inv_boots_leather_dungeonleather_c_06, stats=[{amount=237, reforgedAmount=-157, stat=49}, {amount=588, stat=5}, {amount=412, stat=6}, {amount=1002, stat=7}, {amount=157, reforged=true, stat=36}], name=Treads of Corrupted Water, armor=1782, quality=3, itemLevel=463, tooltipParams={upgrade={total=1, current=0, itemLevelIncrement=0}, gem0=76686, reforge=167, enchant=4429}}, wrist={id=81179, icon=inv_bracer_leather_dungeonleather_c_06, stats=[{amount=195, reforgedAmount=-130, stat=49}, {amount=540, stat=5}, {amount=381, stat=6}, {amount=810, stat=7}, {amount=130, reforged=true, stat=36}], name=Star Summoner Bracers, armor=1167, quality=3, itemLevel=471, tooltipParams={upgrade={total=1, current=1, itemLevelIncrement=8}, reforge=167, enchant=4411}}, chest={id=85850, icon=inv_chest_leather_reputation_c_01, stats=[{amount=382, reforgedAmount=-254, stat=49}, {amount=855, stat=5}, {amount=530, stat=6}, {amount=1523, stat=7}, {amount=254, reforged=true, stat=36}], name=Wildblood Vest, armor=2715, quality=4, itemLevel=476, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, gem0=76694, gem1=76638, reforge=167, enchant=4419}}, back={id=86874, icon=inv_cape_pandaria_d_03, stats=[{amount=249, reforgedAmount=-165, stat=49}, {amount=604, stat=5}, {amount=383, stat=36}, {amount=906, stat=7}, {amount=165, reforged=true, stat=6}], name=Cloak of Overwhelming Corruption, armor=1092, quality=4, itemLevel=483, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, reforge=162, enchant=4423}}, waist={id=89061, icon=inv_belt_leather_reputation_c_01, stats=[{amount=300, reforgedAmount=-199, stat=32}, {amount=771, stat=5}, {amount=544, stat=6}, {amount=1277, stat=7}, {amount=199, reforged=true, stat=36}], name=Klaxxi Lash of the Harbinger, armor=1596, quality=4, itemLevel=489, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, gem0=76651, extraSocket=true, gem1=76699, reforge=145}}, finger2={id=89968, icon=inv_jewelry_ring_148, stats=[{amount=243, reforgedAmount=-162, stat=49}, {amount=566, stat=5}, {amount=331, stat=6}, {amount=849, stat=7}, {amount=162, reforged=true, stat=36}], name=Feng's Ring of Dreams, armor=0, quality=4, itemLevel=476, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, reforge=167}}, finger1={id=89073, icon=inv_jewelry_ring_143, stats=[{amount=291, reforgedAmount=-194, stat=32}, {amount=638, stat=5}, {amount=323, stat=6}, {amount=958, stat=7}, {amount=194, reforged=true, stat=36}], name=Leven's Circle of Hope, armor=0, quality=4, itemLevel=489, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, reforge=145}}, averageItemLevel=477, hands={id=86817, icon=inv_glove_leather_raidmonk_l_01, stats=[{amount=344, reforgedAmount=-228, stat=32}, {amount=725, stat=5}, {amount=368, stat=6}, {amount=1208, stat=7}, {amount=228, reforged=true, stat=36}], name=Gauntlets of Undesired Gifts, armor=1738, quality=4, itemLevel=483, tooltipParams={upgrade={total=2, current=0, itemLevelIncrement=0}, gem0=76686, reforge=145, enchant=4430}}, tabard={id=64882,

 

[Stulish]

Thanks guys,

I am not sure why it didn't work before, but i just ran it on my Galaxy S3 and nexus 7 and the results were correct ???


not sure why it displayed an error before considering i haven't changed the code

Regards

Stu

 

[Stulish]

Hi again guys (i think i am going mad with this), everything was working great and i managed to get each item into a different map, i have now changed the app to let the user select the realm and character, but i get the error i had earlier again on both of my android devices.

i have attached the code, and am now pulling my hair out :BangHead:

Not sure what is going on the log is below for the error:

** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
http://eu.battle.net/api/wow/character/aszune/sturinde?fields=items
** Service (httputils2service) Create **
** Service (httputils2service) Start **
main_get_data (java line: 352)
org.json.JSONException: End of input at character 0 of
at org.json.JSONTokener.syntaxError(JSONTokener.java:450)
at org.json.JSONTokener.nextValue(JSONTokener.java:97)
at anywheresoftware.b4a.objects.collections.JSONParser.NextObject(JSONParser.java:45)
at lishsoft.android.wowcheck.main._get_data(main.java:352)
at lishsoft.android.wowcheck.main._jobdone(main.java:473)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:165)
at anywheresoftware.b4a.keywords.Common$4.run(Common.java:884)
at android.os.Handler.handleCallback(Handler.java:725)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:5039)
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:793)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:560)
at dalvik.system.NativeStart.main(Native Method)
org.json.JSONException: End of input at character 0 of

thanks

Stu

 

[Stulish]

you can even click on the link in the log quote above that was created with the app and it opens a webpage with the information??

its as if i am asking for the data before it has been returned from the server

any thoughts????