(Visual FoxPro) Google Search Console API - List

Lists the user's Search Console sites.

For more information, see https://developers.google.com/webmaster-tools/search-console-api-original/v3/sites/list

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcResponseStr
LOCAL lnStatusCode
LOCAL loJson
LOCAL lcSiteUrl
LOCAL lcPermissionLevel
LOCAL i
LOCAL lnCount_i

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* This example uses a previously obtained access token having permission for the 
* Google Search Console scope.

* In this example, Get a Google Search Console OAuth2 Access Token, the access
* token was saved to a JSON file.  This example fetches the access token from the file..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleSearchConsole.json")
IF (loJsonToken.HasMember("access_token") = 0) THEN
    ? "No access token found."
    RELEASE loJsonToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loHttp.AuthToken = loJsonToken.StringOf("access_token")

lcResponseStr = loHttp.QuickGetStr("https://www.googleapis.com/webmasters/v3/sites")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    CANCEL
ENDIF

lnStatusCode = loHttp.LastStatus
? "Response Status Code: " + STR(lnStatusCode)

* Sample response:

* {
*  "siteEntry": [
*   {
*    "siteUrl": "https://www.example.com/",
*    "permissionLevel": "siteUnverifiedUser"
*   },
*   {
*    "siteUrl": "http://www.chilkatsoft.com/",
*    "permissionLevel": "siteOwner"
*   }
*  ]
* }

? lcResponseStr

* Use this online tool to generate parsing code from sample JSON: 
* Generate Parsing Code from JSON

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

lnSuccess = loJson.Load(lcResponseStr)

i = 0
lnCount_i = loJson.SizeOfArray("siteEntry")
DO WHILE i < lnCount_i
    loJson.I = i
    lcSiteUrl = loJson.StringOf("siteEntry[i].siteUrl")
    ? "siteUrl: " + lcSiteUrl
    lcPermissionLevel = loJson.StringOf("siteEntry[i].permissionLevel")
    ? "permissionLevel: " + lcPermissionLevel
    i = i + 1
ENDDO

RELEASE loJsonToken
RELEASE loHttp
RELEASE loJson