Anthropic | 扩展思考

扩展思考使 Claude 能够在提供响应之前逐步思考复杂问题。启用后，Claude 会创建内部推理（思考块），从而提高数学、编码、分析和其他复杂任务的响应质量。

简单示例

使用便捷方法发送启用了扩展思考的消息。温度参数自动设置为 1.0（启用思考时 API 要求如此）。

Anthropic := TsgcHTTP_API_Anthropic.Create(nil);
Anthropic.AnthropicOptions.ApiKey := 'API_KEY';
WriteLn(Anthropic._CreateMessageWithThinking('claude-sonnet-4-20250514',
  'How many r''s are in the word strawberry?', 10000));

高级示例

使用带类型的请求/响应类可实现完全控制。将 ThinkingType 设为 'enabled'，并将 ThinkingBudgetTokens 设为所需的令牌预算（最少 1024）。响应将包含思考内容块和文本内容块。

Anthropic := TsgcHTTP_API_Anthropic.Create(nil);
Anthropic.AnthropicOptions.ApiKey := 'API_KEY';

oRequest := TsgcAnthropicClass_Request_Messages.Create;
Try
  oRequest.Model := 'claude-sonnet-4-20250514';
  oRequest.MaxTokens := 16384;
  oRequest.ThinkingType := 'enabled';
  oRequest.ThinkingBudgetTokens := 10000;

  oMessage := TsgcAnthropicClass_Request_Message.Create;
  oMessage.Role := 'user';
  oMessage.Content := 'Explain the proof that there are infinitely many primes.';
  oMessages := oRequest.Messages;
  SetLength(oMessages, 1);
  oMessages[0] := oMessage;
  oRequest.Messages := oMessages;

  oResponse := Anthropic.CreateMessage(oRequest);
  Try
    for i := 0 to Length(oResponse.Content) - 1 do
    begin
      if oResponse.Content[i].ContentType = 'thinking' then
        WriteLn('Thinking: ' + oResponse.Content[i].Thinking)
      else if oResponse.Content[i].ContentType = 'text' then
        WriteLn('Response: ' + oResponse.Content[i].Text);
    end;
  Finally
    oResponse.Free;
  End;
Finally
  oMessage.Free;
  oRequest.Free;
End;

带思考的多轮对话

在多轮对话中使用扩展思维时，之前响应中的 thinking 和 redacted_thinking 块必须在对话中传回。使用 ContentBlocks 数组包含这些块。

// Pass back thinking blocks from a previous response
oBlock := TsgcAnthropicClass_Request_Content_Block.Create;
oBlock.ContentType := 'thinking';
oBlock.Text := oPrevThinkingBlock.Thinking;   // thinking text
oBlock.Signature := oPrevThinkingBlock.Signature; // signature string

// Pass back redacted thinking blocks
oBlock := TsgcAnthropicClass_Request_Content_Block.Create;
oBlock.ContentType := 'redacted_thinking';
oBlock.Data := oPrevRedactedBlock.Data;

属性

• ThinkingType：设为 'enabled' 可激活扩展思维，设为 'disabled' 可将其关闭。
• ThinkingBudgetTokens：思考过程的最大令牌数（最小 1024）。必须小于 MaxTokens。

注意事项

• 启用 thinking 时，温度必须为 1.0（便捷方法会自动完成此设置）。
• 当启用 thinking 时，不能使用 TopK。
• BudgetTokens 必须至少为 1024 且小于 MaxTokens。
• 响应内容块可能包括：thinking、redacted_thinking 和 text 类型。