Delphi ActiveX

WordPress Create Tag

See more WordPress Examples

Demonstrates how to create a new tag in Wordpress, or to find the ID of an existing tag. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
json: TChilkatJsonObject;
resp: TChilkatHttpResponse;
jResp: TChilkatJsonObject;

begin
success := 0;

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

http := TChilkatHttp.Create(Self);

// 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 := 1;

// Create the tag "ChatGPT" if it does not already exist.
json := TChilkatJsonObject.Create(Self);
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.
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://cknotes.com/wp-json/wp/v2/tags',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.Load(resp.BodyStr);

// Check if the tag already exists..
if (resp.StatusCode = 400) then
  begin
    if (jResp.HasMember('code') = 1) then
      begin
        if (jResp.StringOfEquals('code','term_exists',1) = 1) then
          begin
            // The tag already exists.
            Memo1.Lines.Add('The tag already exists.');
            Memo1.Lines.Add('Tag ID: ' + IntToStr(jResp.IntOf('data.term_id')));
            Exit;
          end;
      end;

    // Fall through to check for errors.
  end;

// Check for errors.
if (resp.StatusCode <> 201) then
  begin
    Memo1.Lines.Add(resp.BodyStr);
    Memo1.Lines.Add('status code = ' + IntToStr(resp.StatusCode));
    Exit;
  end;

// We get here if the tag was created..
Memo1.Lines.Add('The tag was created.');
Memo1.Lines.Add('Tag ID = ' + IntToStr(jResp.IntOf('id')));
end;