DataFlex

WordPress Create Post

See more WordPress Examples

Demonstrates how to create a WordPress post. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vJson
    Handle hoJson
    Integer iTagIdx
    Variant vResp
    Handle hoResp
    Handle hoJResp
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Use your WordPress login, such as "admin", not the application name.
    Set ComLogin Of hoHttp To "wp_username"
    // Use the application password, such as "Nths RwVH eDJ4 weNZ orMN jabq"
    // See WordPress Application Passwords Plugin
    Set ComPassword Of hoHttp To "app_password"
    Set ComBasicAuth Of hoHttp To True

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "title" "This is a test post" To iSuccess
    Get ComUpdateString Of hoJson "content" "<p>This is the HTML body of my post</p>" To iSuccess
    // The status can be "draft" or "publish"
    Get ComUpdateString Of hoJson "status" "draft" To iSuccess

    // 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.
    Move 0 To iTagIdx
    Set ComI Of hoJson To iTagIdx
    // When Chilkat sees the literal string "[i]" in the JSON path, it replaces the "i" with the value of the "I" property.
    Get ComUpdateInt Of hoJson "tags[i]" 56 To iSuccess
    Move (iTagIdx + 1) To iTagIdx
    Set ComI Of hoJson To iTagIdx
    Get ComUpdateInt Of hoJson "tags[i]" 75 To iSuccess
    // ..

    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoResp to vResp
    Get ComHttpJson Of hoHttp "POST" "https://cknotes.com/wp-json/wp/v2/posts" vJson "application/json" vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 <> 201) Begin
        Get ComBodyStr Of hoResp To sTemp1
        Showln sTemp1
        Get ComStatusCode Of hoResp To iTemp1
        Showln "status code = " iTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatJsonObject)) To hoJResp
    If (Not(IsComObjectCreated(hoJResp))) Begin
        Send CreateComObject of hoJResp
    End
    Get ComBodyStr Of hoResp To sTemp1
    Get ComLoad Of hoJResp sTemp1 To iSuccess
    Get ComIntOf Of hoJResp "id" To iTemp1
    Showln "Post ID = " iTemp1
    Get ComStringOf Of hoJResp "link" To sTemp1
    Showln "Post URL = " sTemp1


End_Procedure