(Xojo Plugin) WordPress Create Tag

See more WordPress Examples

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://wordpress.org/plugins/application-passwords/

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

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

Dim http As New Chilkat.Http

// Use your WordPress login, such as "admin", not the application name.
http.Login = "wp_username"
// Use the application password, such as "Nths RwVH eDJ4 weNZ orMN jabq"
// See WordPress Application Passwords Plugin
http.Password = "app_password"
http.BasicAuth = True

// Create the tag "ChatGPT" if it does not already exist.
Dim json As New Chilkat.JsonObject
success = json.UpdateString("name","ChatGPT")

// This will create the tag if it does not yet exist.
// If the tag already exists, then a 400 status code is returned.
// If the tag deoes not yet exist, then a 201 status code is returned.
Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://cknotes.com/wp-json/wp/v2/tags",json,"application/json",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim jResp As New Chilkat.JsonObject
success = jResp.Load(resp.BodyStr)

// Check if the tag already exists..
If (resp.StatusCode = 400) Then
    If (jResp.HasMember("code") = True) Then
        If (jResp.StringOfEquals("code","term_exists",True) = True) Then
            // The tag already exists.
            System.DebugLog("The tag already exists.")
            System.DebugLog("Tag ID: " + Str(jResp.IntOf("data.term_id")))
            Return
        End If

    End If

    // Fall through to check for errors.
End If

// Check for errors.
If (resp.StatusCode <> 201) Then
    System.DebugLog(resp.BodyStr)
    System.DebugLog("status code = " + Str(resp.StatusCode))
    Return
End If

// We get here if the tag was created..
System.DebugLog("The tag was created.")
System.DebugLog("Tag ID = " + Str(jResp.IntOf("id")))