アーカイブ

新規

• 変更ログ v1.3.2
• マネージド・エージェント・ウォークスルー(パート1)
• Pythia-WebView2を使用した機能デモ*
• 管理された代理店API -Webhooks — 署名検証(HMAC、定常時間)および強力な型イベントディスパッチ

アーカイブ

同期テキスト生成の2つの簡単なイラスト例

[!TIP] Anthropic APIキーを取得するには、[https://platform.claude.com/account/keys]を参照してください。

• 非流された例:

• ストリーム例(SSE):

インフォメーション

• はじめに
• 哲学とスコープ
• ドキュメント - 概要
• 更に行くこと
• 機能デモ
• 機能性カバレッジ
• プロジェクトの状態
• ライセンス

紹介

Delphi 12コミュニティエディション(v12.1パッチ1)でBuilt ラッパー自体はMITライセンスです。 Delphi CEで無料でコンパイル・テストができます。

DelphiAnthropic は、Anthropic Claude API** 用のネイティブ **Delphi wrapper で、次のようなメッセージ API へのアクセスを構造化しました。

• 同期と非同期の実行
• SSEストリーミング
• ツールと関数呼び出し
• 構造化された出力(JSON スキーマ)
• 複数項目入力(画像、PDF)
• 高度な推論モード(適応/拡張思考)

DelphiAnthropic – Claude API Wrapper for Delphi

---

New

• changelog v1.3.2
• Managed Agents walkthrough (part 1)
• Functional demo using Pythia-WebView2
• Managed Agents API
• Webhooks — signature verification (HMAC, constant-time) and strongly typed event dispatch

---

Two simple illustrative examples of synchronous text generation

[!TIP] To obtain an Anthropic API key, refer to https://platform.claude.com/account/keys

• Non-streamed example:

  // uses Anthropic, Anthropic.Types, Anthropic.Helpers;
  // Client: IAnthropic;
  
  var Client := TAnthropicFactory.CreateInstance('ANTHROPIC_API_KEY');
  
  //JSON payload
  var Payload: TChatParamProc :=
    procedure (Params: TChatParams)
    begin
      Params
        .Model('claude-opus-4-7')
        .Messages( Generation.MessageParts
            .User('From which version of Delphi were multi-line strings introduced?')
        )
        .MaxTokens(1024);
    end;
  
  //Synchronous example
  var Chat := Client.Chat.Create(Payload);
  
  try
    for var Block in Chat.Content do
      if Block.&Type = TContentBlockType.text then
        Memo1.Lines.Text := Memo1.Text + Block.Text;
  finally
    Chat.Free;
  end;
  
  

• Streamed example (SSE):

  // uses Anthropic, Anthropic.Types, Anthropic.Helpers;
  // Client: IAnthropic;
  
  //JSON payload
  var Payload: TChatParamProc :=
    procedure (Params: TChatParams)
    begin
      with Generation do
        Params
          .Model('claude-opus-4-7')
          .Messages( MessageParts
              .User('Explain the discrete topology')
          )
          .Thinking( CreateThinkingConfig('adaptive') )
          .Stream;
    end;
  
  // Streaming callback
  var StreamEvent: TChatEvent :=
    procedure (var Event: TChatStream; IsDone: Boolean; var Cancel: Boolean)
    begin
      if not IsDone then
        if Event.Block.&Type = TContentBlockType.text then
          Memo1.Text := Memo1.Text + Event.Block.Text;
      Application.ProcessMessages;
    end;
  
  //Synchronous example
  Client.Chat.CreateStream(Payload, StreamEvent);
  

Summary

• Introduction
• Philosophy and Scope
• Documentation – Overview
• Going Further
• Functional Demo
• Functional Coverage
• Project Status
• License

Introduction

Built with Delphi 12 Community Edition (v12.1 Patch 1)