Visual FoxPro

Google Search Console API - List

See more Google Search Console Examples

Lists the user's Search Console sites. Visual FoxPro

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

lnSuccess = 0

* 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..
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

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

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