(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
Token    Handle hoJsonToken
    Boolean iSuccess
    Handle hoHttp
    String sResponseStr
    Integer iStatusCode
    Handle hoJson
    String sSiteUrl
    String sPermissionLevel
    Integer i
    Integer iCount_i
    String sTemp1
    Boolean bTemp1

    // 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..
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/googleSearchConsole.json" To iSuccess
    Get ComHasMember Of hoJsonToken "access_token" To bTemp1
    If (bTemp1 = False) Begin
        Showln "No access token found."
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    Get ComQuickGetStr Of hoHttp "https://www.googleapis.com/webmasters/v3/sites" To sResponseStr
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastStatus Of hoHttp To iStatusCode
    Showln "Response Status Code: " iStatusCode

    // Sample response:

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

    Showln sResponseStr

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    Get ComLoad Of hoJson sResponseStr To iSuccess

    Move 0 To i
    Get ComSizeOfArray Of hoJson "siteEntry" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        Get ComStringOf Of hoJson "siteEntry[i].siteUrl" To sSiteUrl
        Showln "siteUrl: " sSiteUrl
        Get ComStringOf Of hoJson "siteEntry[i].permissionLevel" To sPermissionLevel
        Showln "permissionLevel: " sPermissionLevel
        Move (i + 1) To i
    Loop



End_Procedure