Web Search 도구를 통해 Claude는 대화 중에 실시간 정보를 위해 웹을 검색할 수 있습니다. 이것은 Anthropic이 호스팅하고 자동으로 실행하는 내장 서버 측 도구입니다.
편의 메서드를 사용하여 web search가 활성화된 메시지를 생성합니다.
Anthropic := TsgcHTTP_API_Anthropic.Create(nil);
Anthropic.AnthropicOptions.ApiKey := 'API_KEY';
WriteLn(Anthropic._CreateMessageWithWebSearch('claude-sonnet-4-20250514',
'What are the latest news about Delphi programming?'));
MaxUses와 같은 web search 도구 매개변수를 완전히 제어하려면 typed 클래스를 사용하십시오.
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 := 4096;
// Add web search tool
oTool := TsgcAnthropicClass_Request_Tool.Create;
oTool.ToolType := 'web_search_20250305';
oTool.Name := 'web_search';
oTool.MaxUses := 5; // Max 5 searches per request
oTools := oRequest.Tools;
SetLength(oTools, 1);
oTools[0] := oTool;
oRequest.Tools := oTools;
oMessage := TsgcAnthropicClass_Request_Message.Create;
oMessage.Role := 'user';
oMessage.Content := 'Find the current price of Bitcoin.';
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 = 'text' then
WriteLn(oResponse.Content[i].Text);
end;
Finally
oResponse.Free;
End;
Finally
oTool.Free;
oMessage.Free;
oRequest.Free;
End;
내장 도구가 사용될 때, 응답에는 추가 콘텐츠 블록 유형이 포함될 수 있습니다: