Xojo Plugin

curl with use of Local Manager Secrets for Credentials

See more CURL Examples

This example demonstrates how to retrieve secrets from the local credential manager instead of embedding them directly in your source code.

On Windows, this refers to the Windows Credential Manager, and on macOS, it refers to the Apple Keychain.

Xojo Plugin

Dim success As Boolean
success = False

// This example will run the following curl command

// curl -X GET "https://graph.microsoft.com/v1.0/sites/{{sharepoint_hostname}}:/sites/{{site_name}}" \
//   -H "Authorization: Bearer ACCESS_TOKEN" \
//   -H "Accept: application/json"

Dim sb As New Chilkat.StringBuilder
success = sb.AppendLn("curl -X GET ""https://graph.microsoft.com/v1.0/sites/{{sharepoint_hostname}}:/sites/{{site_name}}"" \")
success = sb.AppendLn("  -H ""Authorization: Bearer ACCESS_TOKEN"" \")
success = sb.AppendLn("  -H ""Accept: application/json""")

// Build the JSON that provides information for getting the OAuth2 access token using the OAuth2 client credentials flow.
Dim jsonOAuth2 As New Chilkat.JsonObject

// The notation "!!sharepoint|oauth2|client_id" is a secrets specification string 
// that can have up to 4 components: !!appName|service|domain|username
// where appName and domain are optional.
// See Chilkat v11.5.0 — Secrets Integration
// Also see: Chilkat Secrets API

// The following example shows how to store (or update) the secrets used in this example
// Storing Secrets in the Local Manager

// We must enable secrets integration for Chilkat to auto-resolve when the string begins with "!!".
jsonOAuth2.EnableSecrets = True
success = jsonOAuth2.UpdateString("oauth2.client_id","!!sharepoint|oauth2|client_id")
success = jsonOAuth2.UpdateString("oauth2.client_secret","!!sharepoint|oauth2|client_secret")
success = jsonOAuth2.UpdateString("oauth2.scope","https://graph.microsoft.com/.default")
success = jsonOAuth2.UpdateString("oauth2.token_endpoint","!!sharepoint|oauth2|token_endpoint")

Dim httpCurl As New Chilkat.HttpCurl

// Provide the information for getting the OAuth2 access token from the token endpoint
// Note: The Authorization header specified in the curl command will be ignored and replaced using the OAuth2 access token obtained at runtime from the token endpoint.
success = httpCurl.SetAuth(jsonOAuth2)

// The placeholders {{sharepoint_hostname}} and {{site_name}} represent variables that must be defined before execution.
// When DoYourThing runs the curl command, it automatically substitutes these placeholders with their corresponding values.
// Below are the values assigned to these variables:
httpCurl.SetVar "sharepoint_hostname","example.sharepoint.com"
httpCurl.SetVar "site_name","test"

// Run the curl command.
success = httpCurl.DoYourThing(sb.GetAsString())
If (success = False) Then
    System.DebugLog(httpCurl.LastErrorText)
    Return
End If

Dim responseJson As New Chilkat.JsonObject
responseJson.EmitCompact = False

success = httpCurl.GetResponseJson(responseJson)

Dim statusCode As Int32
statusCode = httpCurl.StatusCode
System.DebugLog("response status code: " + Str(statusCode))

System.DebugLog(responseJson.Emit())