日日是Oracle APEX: OpenAI Responses APIをOracle APEXのアプリケーションから呼び出す

2025年3月25日火曜日

OpenAI Responses APIをOracle APEXのアプリケーションから呼び出す

新たにOpenAIから提供されたResponses APIを、Oracle APEXのアプリケーションから（正確にいうとOracle Databaseから)呼び出してみます。OpenAIからは2025年3月11日のニュース「エージェント開発のための新たなツール」にて、Responses APIについて紹介されています。

簡単なAPEXアプリケーションを作成し、Responses APIの組み込みツールのWeb検索、previous_response_idを指定した会話の継続、およびReasoningモデルの呼び出しを確認してみます。

作成したアプリケーションは以下のように動作します。

上記のAPEXアプリケーションのエクスポートを以下に置きました。

https://github.com/ujnak/apexapps/blob/master/exports/sample-openai-responses-api.zip

機能はすべてホーム・ページに実装しています。

モデルを選択するページ・アイテムとしてP1_MODELを作成しています。タイプは選択リストです。

選択リストの戻り値を、APIリクエストのパラメータmodelに与えています。

会話を継続するためのパラメータprevious_response_idとして与えるIDを保存するページ・アイテムとしてP1_RESPONSE_IDを作成しています。Responses APIを呼び出した後に、レスポンスに含まれるidを取り出しP1_RESPONSE_IDに設定します。

OpenAIのAPI Referenceによると、"Even when using previous_response_id, all previous input tokens for responses in the chain are billed as input tokens in the API.”とのことなので、input配列にメッセージ履歴を含めるのと、費用面では変わらないようです。

パラメータinstructionsとして指定する文字列をページ・アイテムP1_INSTRUCTIONSに指定します。実際にはinstructionsの代わりに、roleをdeveloperとしたcontentとしてinput配列に含めています。

指定がなければAPIリクエストには含めません。

ユーザーによるプロンプトをページ・アイテムP1_INPUTに入力します。タイプはテキスト領域です。roleがuserのcontentになります。

ボタンSUBMITをクリックすると、Responses APIを呼び出します。

ボタンSUBMITをクリックしたときに、以下のPL/SQLプロシージャOPENAI_RESPONSES_APIが実行されるようにします。

識別のタイプとしてAPIの呼出しを選択し、設定のタイプにPL/SQLプロシージャまたはファンクションを選択し、プロシージャまたはファンクションはOPENAI_RESPONSES_APIとします。

ボタンCLEARをクリックすると、タイプがセッション・ステートのクリアであるプロセスを呼び出します。

APIレスポンスからはマークダウンが返されることを想定しています。レスポンスを表示するページ・アイテムP1_OUTPUT_TEXTのタイプはMarkdownエディタ、読取り専用に常時を設定します。

JSON配列として返されるannotationsをクラシック・レポートに表示します。annotations自体は非表示のページ・アイテムP1_ANNOTATIONSに設定します。

ソースのSQL問合せに以下を記述します。

select j.type, j.title, j.url, j.start_index, j.end_index
from json_table(:P1_ANNOTATIONS, '$[*]'
    columns
    (
        type        varchar2(20)  path '$.type',
        title       varchar2(400) path '$.title',
        url         varchar2(200) path '$.url',
        start_index number        path '$.start_index',
        end_index   number        path '$.end_index'
    )
) j

サーバー側の条件を設定し、annotationsが返されているときだけクラシック・レポートを表示するようにします。

declare
    l_array json_array_t;
begin
    if :P1_ANNOTATIONS is not null then
        l_array := json_array_t(:P1_ANNOTATIONS);
        if l_array.get_size() > 0 then
            return true;
        end if;
    end if;
    return false;
end;