Claude는 메시지 내의 콘텐츠 블록으로 전송된 PDF 문서와 텍스트 파일을 처리할 수 있습니다. 문서는 base64로 인코딩된 데이터 또는 URL을 통해 전송되며, Claude는 그 내용을 분석, 요약하고 그에 관한 질문에 답할 수 있습니다.
편의 메서드를 사용하여 질문이 포함된 PDF 문서를 보냅니다.
Anthropic := TsgcHTTP_API_Anthropic.Create(nil);
Anthropic.AnthropicOptions.ApiKey := 'API_KEY';
// Load PDF file and encode to base64
vBase64 := sgcBase64Encode(LoadFileToBytes('document.pdf'));
WriteLn(Anthropic._CreateDocumentMessage('claude-sonnet-4-20250514',
'Summarize this document.', vBase64, 'application/pdf'));
인용이 활성화된 문서를 보내려면 타입이 지정된 클래스를 사용하십시오. 인용이 활성화되면 Claude의 응답에 소스 문서의 특정 부분에 대한 참조가 포함됩니다.
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;
// Create document content block
oDocBlock := TsgcAnthropicClass_Request_Content_Block.Create;
oDocBlock.ContentType := 'document';
oDocBlock.SourceType := 'base64';
oDocBlock.MediaType := 'application/pdf';
oDocBlock.Data := sgcBase64Encode(LoadFileToBytes('report.pdf'));
oDocBlock.Title := 'Annual Report';
oDocBlock.CitationsEnabled := True;
// Create text prompt block
oTextBlock := TsgcAnthropicClass_Request_Content_Block.Create;
oTextBlock.ContentType := 'text';
oTextBlock.Text := 'What are the key findings?';
// Build message with content blocks
oMessage := TsgcAnthropicClass_Request_Message.Create;
oMessage.Role := 'user';
oBlocks := oMessage.ContentBlocks;
SetLength(oBlocks, 2);
oBlocks[0] := oDocBlock;
oBlocks[1] := oTextBlock;
oMessage.ContentBlocks := oBlocks;
oMessages := oRequest.Messages;
SetLength(oMessages, 1);
oMessages[0] := oMessage;
oRequest.Messages := oMessages;
oResponse := Anthropic.CreateMessage(oRequest);
Try
if Length(oResponse.Content) > 0 then
WriteLn(oResponse.Content[0].Text);
Finally
oResponse.Free;
End;
Finally
oDocBlock.Free;
oTextBlock.Free;
oMessage.Free;
oRequest.Free;
End;