Anthropic API Delphi

16 Mart 2026 · Bileşenler

Anthropic Claude API'sini Delphi Uygulamalarınıza Entegre Edin

sgcWebSockets, tüm Anthropic Claude API'si için üretime hazır bir Delphi bileşeni sunar — metin üretmeden ve görüden araç kullanımına, genişletilmiş düşünmeye ve ötesine kadar.

Anthropic Claude, olağanüstü akıl yürütmesi, güvenlik öncelikli tasarımı ve metin, kod, görü ve yapılandırılmış veriler arasındaki çok yönlü yetenekleriyle tanınan, bugün mevcut en gelişmiş Yapay Zeka model ailelerinden biridir. Bu yeteneklerden yararlanmak isteyen Delphi geliştiricileri için sgcWebSockets, tüm Anthropic API yüzeyini saran kapsamlı, yerel bir bileşen olan TsgcHTTP_API_Anthropic'i sağlar.

İster akıllı sohbet botları oluşturuyor, ister belge analizini otomatikleştiriyor, ister karmaşık araç hatlarını düzenliyor, ister toplu olarak binlerce isteği işliyor olun, bu bileşen temiz, tür güvenli Delphi kodu aracılığıyla her Claude özelliğine doğrudan erişim sağlar. REST tekrarı yok. JSON ile boğuşma yok. Yalnızca bileşeni bırakın, API anahtarınızı ayarlayın ve oluşturmaya başlayın.

Eksiksiz API Kapsamı

Anthropic Claude API'sinin her başlıca özelliği kutudan çıktığı gibi desteklenir.

Mesajlar ve Akış Sistem komutlarıyla mesaj gönderin, yanıtları senkron olarak veya Server-Sent Events aracılığıyla gerçek zamanlı akışla alın.	Görü JPEG, PNG, GIF ve WebP biçimlerindeki görüntüleri analiz edin. Claude görsel içeriği açıklar, yorumlar ve hakkında akıl yürütür.	Araç Kullanımı JSON Schema ile özel araçlar tanımlayın ve Claude'un bunları çağırmasına izin verin. İşlev çağırma ile aracılı iş akışları oluşturun.
Genişletilmiş Düşünme Karmaşık görevler için adım adım akıl yürütmeyi etkinleştirin. Matematik, analiz ve çok adımlı problem çözme için idealdir.	Belge İşleme Alıntı desteğiyle analiz, özetleme ve soru yanıtlama için PDF belgeleri ve metin dosyaları gönderin.	Yapılandırılmış Çıktılar Claude'u şemanıza uygun geçerli JSON döndürmeye zorlayın. Garantili ayrıştırılabilir, tür güvenli yanıtlar.
Web Araması Yerleşik sunucu tarafı araçları kullanarak Claude'un konuşmalar sırasında gerçek zamanlı bilgi için web'de arama yapmasına izin verin.	Komut Önbelleğe Alma Sistem komutlarını, içerik bloklarını ve araç tanımlarını önbelleğe alın. Tekrarlanan bağlamda maliyetleri %90'a kadar azaltın.	Mesaj Toplu İşleri Binlerce isteği asenkron olarak işleyin. Toplu içerik üretimi ve veri işleme hatları için mükemmel.
Files API Anthropic'in sunucularındaki dosyaları yükleyin, listeleyin, indirin ve yönetin. Bunlara birden fazla konuşma boyunca başvurun.	MCP Konnektörü Claude'u harici Model Context Protocol sunucularına bağlayın. Üçüncü taraf araçlar ve hizmetlerle yetenekleri genişletin.	Token Sayımı İstek göndermeden önce tokenları sayın. Maliyetleri doğru bir şekilde tahmin edin ve bağlam penceresi bütçelerini yönetin.

Başlarken

Claude'u bir dakikadan kısa sürede Delphi projenize entegre edin. Bileşeni bırakın, API anahtarınızı yapılandırın ve ilk mesajınızı gönderin.

// Create the component and configure the API key
var
  Anthropic: TsgcHTTP_API_Anthropic;
  vResponse: string;
begin
  Anthropic := TsgcHTTP_API_Anthropic.Create(nil);
  Try
    Anthropic.AnthropicOptions.ApiKey := 'YOUR_API_KEY';
    // Send a simple message to Claude
    vResponse := Anthropic._CreateMessage(
      'claude-sonnet-4-20250514', 'Hello, Claude!');
    ShowMessage(vResponse);
  Finally
    Anthropic.Free;
  End;
end;

Mesajlar ve Akış

Messages API, her Claude etkileşiminin temelidir. İsteğe bağlı sistem komutlarıyla metin gönderin ve yanıtları senkron olarak veya gerçek zamanlı akışla alın.

Sistem Komutları

Konuşma için bağlamı, kişiliği veya kısıtlamaları belirleyen bir sistem komutu sağlayarak Claude'un davranışını kontrol edin.

vResponse := Anthropic._CreateMessageWithSystem(
  'claude-sonnet-4-20250514',
  'You are a helpful assistant that responds in Spanish.',
  'What is the capital of France?');
// Returns: "La capital de Francia es París."

Gerçek Zamanlı Akış

Duyarlı kullanıcı arayüzleri için Claude'un yanıtını Server-Sent Events kullanarak token token akıtın. OnHTTPAPISSE olay işleyicisini atayın ve _CreateMessageStream'i çağırın.

// Enable streaming via SSE
Anthropic.OnHTTPAPISSE := OnSSEEvent;
Anthropic._CreateMessageStream('claude-sonnet-4-20250514',
  'Tell me a story about a brave explorer.');
procedure TForm1.OnSSEEvent(Sender: TObject;
  const aEvent, aData: string; var Cancel: Boolean);
begin
  // aEvent: event type (e.g., content_block_delta)
  // aData: JSON payload for this event
  Memo1.Lines.Add(aData);
end;

Gelişmiş Tür Belirtilmiş API

İstek parametreleri üzerinde tam kontrol için — temperature, top-p, durdurma dizileri, meta veriler — tür belirtilmiş istek ve yanıt sınıflarını kullanın.

var
  oRequest: TsgcAnthropicClass_Request_Messages;
  oMessage: TsgcAnthropicClass_Request_Message;
  oResponse: TsgcAnthropicClass_Response_Messages;
begin
  oRequest := TsgcAnthropicClass_Request_Messages.Create;
  Try
    oRequest.Model := 'claude-sonnet-4-20250514';
    oRequest.MaxTokens := 1024;
    oRequest.System := 'You are a helpful assistant.';
    oRequest.Temperature := 0.7;
    oMessage := TsgcAnthropicClass_Request_Message.Create;
    oMessage.Role := 'user';
    oMessage.Content := 'Explain quantum computing in simple terms.';
    // ... add message to request, send, and process response
    oResponse := Anthropic.CreateMessage(oRequest);
    Try
      if Length(oResponse.Content) > 0 then
        ShowMessage(oResponse.Content[0].Text);
    Finally
      oResponse.Free;
    End;
  Finally
    oMessage.Free;
    oRequest.Free;
  End;
end;

Görü — Görüntü Anlama

Claude, görüntüleri analiz edebilir ve hakkında akıl yürütebilir. Fotoğraflar, ekran görüntüleri, diyagramlar veya grafikler gönderin ve ayrıntılı açıklamalar, veri çıkarımı veya görsel Soru-Cevap alın.

Desteklenen biçimler arasında JPEG, PNG, GIF ve WebP bulunur. Görüntüler base64 ile kodlanmış içerik blokları olarak gönderilir.

// Load an image and ask Claude to describe it
var
  vBase64: string;
begin
  vBase64 := sgcBase64Encode(LoadFileToBytes('product-photo.png'));
  ShowMessage(Anthropic._CreateVisionMessage(
    'claude-sonnet-4-20250514',
    'Describe this product image for an e-commerce listing.',
    vBase64, 'image/png'));
end;

Araç Kullanımı — İşlev Çağırma

JSON Schema ile özel araçlar tanımlayın, Claude bunları ne zaman ve nasıl çağıracağına karar verecektir. Bu, aracılı, çok adımlı iş akışları oluşturmanın temelidir.

Araç kullanım akışı net bir kalıbı izler: araçları tanımlayın, bir istek gönderin, yanıttaki tool_use'u algılayın, işlevi yerel olarak çalıştırın ve nihai yanıt için sonucu Claude'a döndürün.

// Define a weather tool with JSON Schema input
oTool := TsgcAnthropicClass_Request_Tool.Create;
oTool.Name := 'get_weather';
oTool.Description := 'Get the current weather in a given location';
oTool.InputSchema :=
  '{"type":"object","properties":{"location":{"type":"string",' +
  '"description":"The city and state"}},"required":["location"]}';
// Send request with tools defined
oResponse := Anthropic.CreateMessage(oRequest);
// Check if Claude wants to call a tool
if oResponse.StopReason = 'tool_use' then
begin
  for i := 0 to Length(oResponse.Content) - 1 do
  begin
    if oResponse.Content[i].ContentType = 'tool_use' then
    begin
      vToolUseId := oResponse.Content[i].Id;
      vToolName  := oResponse.Content[i].Name;
      vToolInput := oResponse.Content[i].Input;
      // Execute the tool and return the result to Claude
    end;
  end;
end;

Belge İşleme ve Alıntılar

Analiz, özetleme ve soru yanıtlama için Claude'a PDF belgeleri ve metin dosyaları gönderin. Kaynak materyale doğrulanabilir referanslar almak için alıntıları etkinleştirin.

// Send a PDF and ask Claude to summarize it
vBase64 := sgcBase64Encode(LoadFileToBytes('annual-report.pdf'));
vResponse := Anthropic._CreateDocumentMessage(
  'claude-sonnet-4-20250514',
  'Summarize the key findings of this report.',
  vBase64, 'application/pdf');

Alıntılar

Claude'un yanıtında kaynak referansları — sayfa numaraları, karakter aralıkları ve alıntılanan metin dahil — almak için belge içerik bloklarında alıntıları etkinleştirin.

oDocBlock := TsgcAnthropicClass_Request_Content_Block.Create;
oDocBlock.ContentType := 'document';
oDocBlock.SourceType := 'base64';
oDocBlock.MediaType := 'application/pdf';
oDocBlock.Data := vBase64;
oDocBlock.Title := 'Annual Report';
oDocBlock.CitationsEnabled := True;

MCP Konnektörü

Yeteneklerini üçüncü taraf araçlar ve hizmetlerle — veritabanları, CRM'ler, dahili API'ler ve daha fazlası — genişletmek için Claude'u harici Model Context Protocol (MCP) sunucularına bağlayın.

Anthropic.AnthropicOptions.BetaHeaders := 'mcp-client-2025-11-20';
// Connect to an MCP server with one method call
vResponse := Anthropic._CreateMessageWithMCP(
  'claude-sonnet-4-20250514',
  'What tools are available?',
  'https://my-mcp-server.example.com/sse',
  'my-mcp-server');

Kimliği Doğrulanmış MCP Sunucuları

Kimlik doğrulaması gerektiren sunucular için tür belirtilmiş API, OAuth Bearer tokenlarını destekler.

oServer := TsgcAnthropicClass_Request_MCPServer.Create;
oServer.ServerType := 'url';
oServer.Url := 'https://my-mcp-server.example.com/sse';
oServer.Name := 'my-server';
oServer.AuthorizationToken := 'OAUTH_TOKEN';
oTool := TsgcAnthropicClass_Request_Tool.Create;
oTool.ToolType := 'mcp_toolset';
oTool.MCPServerName := 'my-server';