WordPress API 経由で記事一覧を得る

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <System.Json.hpp> // JSONパース用
#include <memory>

// ---------------------------------------------------------------------------
void __fastcall TForm1::GetAllPostsIndy(String baseUrl)
{
    // IdHTTPのプロパティ設定（リクエストごとにクリアされないように設定）
    IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64)";
    
    int page = 1;
    int totalPages = 1;

    do {
        // 1回あたり最大100件ずつ取得するURLを生成
        String url = baseUrl + "/wp-json/wp/v2/posts?per_page=100&page=" + IntToStr(page);
        
        try {
            // APIからJSON文字列を取得
            String jsonResponse = IdHTTP1->Get(url);

            // 初回ループ時にレスポンスヘッダーから全ページ数を取得
            if (page == 1) {
                // IndyのRawHeadersからWordPress固有のカスタムヘッダーを検索
                String totalPagesStr = IdHTTP1->Response->RawHeaders->Values["X-WP-TotalPages"];
                if (!totalPagesStr.IsEmpty()) {
                    totalPages = StrToInt(totalPagesStr);
                }
            }

            // JSONのパース処理
            std::unique_ptr<TJSONArray> jsonArray(dynamic_cast<TJSONArray*>(TJSONObject::ParseJSONValue(jsonResponse)));
            if (jsonArray != nullptr) {
                for (int i = 0; i < jsonArray->Count; i++) {
                    TJSONObject* post = dynamic_cast<TJSONObject*>(jsonArray->Items[i]);
                    if (post != nullptr) {
                        // 例: 記事IDの取得
                        int id = post->GetValue("id")->Value().ToInt();
                        
                        // 例: タイトルの取得 (title.rendered)
                        TJSONObject* titleObj = dynamic_cast<TJSONObject*>(post->GetValue("title"));
                        String title = titleObj ? titleObj->GetValue("rendered")->Value() : "";

                        // TODO: ここで取得したデータをリストやデータベースに格納
                    }
                }
            }

            page++; // 次のページへ

        } catch (const Exception &e) {
            // エラーハンドリング（400系、500系エラー、通信タイムアウトなど）
            ShowMessage("エラーが発生しました: " + e.Message);
            break;
        }

    } while (page <= totalPages);
}

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TIdHTTP *IdHTTP1;
	TIdSSLIOHandlerSocketOpenSSL *IdSSLIOHandlerSocketOpenSSL1;
	TMemo *Memo1;
	TLabel *Label1;
private:	// ユーザー宣言
public:		// ユーザー宣言
	void __fastcall GetAllPostsIndy(String baseUrl);
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <System.Json.hpp> // JSONパース用
#include <memory>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

void __fastcall TForm1::GetAllPostsIndy(String baseUrl)
{
	// IdHTTPのプロパティ設定（リクエストごとにクリアされないように設定）
	IdHTTP1->Request->UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64)";

	int page = 1;
	int totalPages = 1;
	int acount = 1;

	do {
		// 1回あたり最大100件ずつ取得するURLを生成
		String url = baseUrl + "/wp-json/wp/v2/posts?per_page=100&page=" + IntToStr(page);

		try {
			// APIからJSON文字列を取得
			String jsonResponse = IdHTTP1->Get(url);

			// 初回ループ時にレスポンスヘッダーから全ページ数を取得
			if (page == 1) {
				// IndyのRawHeadersからWordPress固有のカスタムヘッダーを検索
				String totalPagesStr = IdHTTP1->Response->RawHeaders->Values["X-WP-TotalPages"];
				if (!totalPagesStr.IsEmpty()) {
					totalPages = StrToInt(totalPagesStr);
					//Memo1->Lines->Add("totalPages: " + IntToStr(totalPages) );
				}
			}

			// JSONのパース処理
            std::unique_ptr<TJSONArray> jsonArray(dynamic_cast<TJSONArray*>(TJSONObject::ParseJSONValue(jsonResponse)));
            if (jsonArray != nullptr) {
				for (int i = 0; i < jsonArray->Count; i++) {
					TJSONObject* post = dynamic_cast<TJSONObject*>(jsonArray->Items[i]);
                    if (post != nullptr) {
                        // 例: 記事IDの取得
                        int id = post->GetValue("id")->Value().ToInt();

                        // 例: タイトルの取得 (title.rendered)
                        TJSONObject* titleObj = dynamic_cast<TJSONObject*>(post->GetValue("title"));
                        String title = titleObj ? titleObj->GetValue("rendered")->Value() : "";

						// TODO: ここで取得したデータをリストやデータベースに格納

						Memo1->Lines->Add(title);
						acount++;
                    }
                }
            }

			page++; // 次のページへ

        } catch (const Exception &e) {
			// エラーハンドリング（400系、500系エラー、通信タイムアウトなど）
            ShowMessage("エラーが発生しました: " + e.Message);
			break;
        }

	} while (page <= totalPages);
	Label1->Caption = IntToStr(acount);
}


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	String baseUrl = "https://ghost.mydns.jp/wp";

	Memo1->Lines->Clear();
	GetAllPostsIndy(baseUrl);

}

// ---------------------------------------------------------------------------