(Delphi ActiveX) WordPress Create Post

See more WordPress Examples

Demonstrates how to create a WordPress post.

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
http: TChilkatHttp;
success: Integer;
json: TChilkatJsonObject;
tagIdx: Integer;
resp: IChilkatHttpResponse;
jResp: TChilkatJsonObject;

begin
// 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;

// Note: For this to work, you'll likely need to update your .htaccess file on your WordPress server.
// Otherwise you'll get this error:
// 
// 401 : Sorry, you are not allowed to create posts as this user
// 
// Your default .htaccess file probably looks like this:
// 
// <IfModule mod_rewrite.c>
// RewriteEngine On
// RewriteBase /
// RewriteRule ^index\.php$ - 
// RewriteCond %{REQUEST_FILENAME} !-f
// RewriteCond %{REQUEST_FILENAME} !-d
// RewriteRule . /index.php 
// </IfModule>
// # END WordPress
// 
// Add the following line immediately after the "RewriteEngine On" line:    RewriteRule .* - [E=REMOTE_USER:%{HTTP:Authorization}]
// Your .htaccess file should look like this after the edit:
// 
// <IfModule mod_rewrite.c>
// RewriteEngine On
// RewriteRule .* - [E=REMOTE_USER:%{HTTP:Authorization}]
// RewriteBase /
// RewriteRule ^index\.php$ - 
// RewriteCond %{REQUEST_FILENAME} !-f
// RewriteCond %{REQUEST_FILENAME} !-d
// RewriteRule . /index.php 
// </IfModule>
// # END WordPress

json := TChilkatJsonObject.Create(Self);
json.UpdateString('title','This is a test post');
json.UpdateString('content','<p>This is the HTML body of my post</p>');
// The status can be "draft" or "publish"
json.UpdateString('status','draft');

// Add tags -- but you need to know the ID of an existing tag.
// See Chilkat's other WordPress example for creating a tag, or getting the ID of an existing tag.
tagIdx := 0;
json.I := tagIdx;
// When Chilkat sees the literal string "[i]" in the JSON path, it replaces the "i" with the value of the "I" property.
json.UpdateInt('tags[i]',56);
tagIdx := tagIdx + 1;
json.I := tagIdx;
json.UpdateInt('tags[i]',75);
// ..

resp := http.PostJson3('https://cknotes.com/wp-json/wp/v2/posts','application/json',json.ControlInterface);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

if (resp.StatusCode <> 201) then
  begin
    Memo1.Lines.Add(resp.BodyStr);
    Memo1.Lines.Add('status code = ' + IntToStr(resp.StatusCode));

    Exit;
  end;

jResp := TChilkatJsonObject.Create(Self);
jResp.Load(resp.BodyStr);
Memo1.Lines.Add('Post ID = ' + IntToStr(jResp.IntOf('id')));
Memo1.Lines.Add('Post URL = ' + jResp.StringOf('link'));
end;