###Новый changelog v1.3.2 Прохождение Managed Agents (часть 1)

• Функциональная демонстрация с использованием Pythia-WebView2 Управляемые агенты API Webhooks — проверка подписи (HMAC, постоянное время) и строго типизированная отправка событий

Два простых иллюстративных примера синхронного генерирования текста

[!TIP] Чтобы получить ключ Anthropic API, обратитесь к https://platform.claude.com/account/keys

• Непотоковый пример:

• Потоковый пример (SSE):

Резюме

• Введение
• Философия и область
• Документация - Обзор
• Идти дальше
• Функциональное демо
• функциональное покрытие Статус проекта
• Лицензия

##Введение

Построено совместно с Delphi 12 Community Edition (v12.1 Patch 1) Сама обертка лицензирована MIT. Вы можете бесплатно составить и протестировать его с помощью Delphi CE.

DelphiAnthropic является нативной оберткой Delphi для Anthropic Claude API, обеспечивающей структурированный доступ к API сообщений, включая:

• синхронное и асинхронное исполнение
• SSE потоковая передача Инструменты и функции Calling
• структурированные выходы (схема 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)