Calling JSON REST Services with FoxPro and wwJsonServiceClient
url: https://west-wind.com/wconnect/weblog/ShowEntry.blog?id=920
////
do wwhttp
do wwJsonSerializer
loProxy = CREATEOBJECT("wwJsonServiceClient")
*** Make the service call
loAlbums = loProxy.CallService("http://albumviewerswf.west-wind.com/api/albums",
"","GET")
? loProxy.cErrorMsg
lnCount = loAlbums.Count
* ? loAlbums.Item(1).Titl
FOR EACH loAlbum in loAlbums
? loAlbum.Title + ;
" by " + loAlbum.Artist.ArtistName + ;
" (" + TRANSFORM(loAlbum.Tracks.Count) + " tracks)"
FOR EACH loTrack IN loAlbum.Tracks
? " " + loTrack.SongName
ENDFOR
ENDFOR