새로운

• 변경 로그 v1.3.2
• 관리 에이전트 연습 (part 1)
• **Pythia-WebView2 **를 사용하여 기능 데모
• ** 관리 API**
• Webhooks - 서명 검증(HMAC, 일정기간) 및 강력한 입력 이벤트 파견

동기식 텍스트 생성의 두 가지 간단한 설명 예제

[!팁] Anthropic API 키를 얻기 위해, https://platform.claude.com/account/keys 참조

• 비streamed 예:

• 스트림 예 (SSE) :

제품정보

• 연혁
• 철학과 범위
• 문서 - 개요
• 더보기
• 기능 데모
• 기능적인 적용
• 사업현황
• 라이센스

소개

Delphi 12 커뮤니티 에디션 (v12.1 패치 1) The 래퍼 자체는 MIT 라이센스입니다. Delphi CE를 무료로 컴파일하고 테스트 할 수 있습니다.

DelphiAnthropic는 Anthropic Claude API**에 대한 기본 **Delphi 래퍼이며, 다음을 포함한 Messages API에 구조화된 액세스를 제공합니다.

• 동기 및 비동기 실행
• SSE 스트리밍
• 도구 및 함수 호출
• 구조 출력 (JSON schema)
• 다중 입력 (이미지, 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)