OpenAI Assistants 文件搜索

从 sgcWebSockets 2024.10.0 起，您可以使用 OpenAI Assistants 搜索自己的文件，而无需使用通用模型。

文件搜索通过模型之外的知识（如专有产品信息或用户提供的文档）来增强助手能力。OpenAI 会自动解析和分块您的文档，创建并存储嵌入向量，并使用向量搜索和关键词搜索来检索相关内容以回答用户查询。

支持的文件格式

支持的文件

对于 text/ MIME 类型，编码必须为 utf-8、utf-16 或 ascii 之一。

步骤 1：创建启用文件搜索的新助手

在助手的工具参数中启用 file_search 来创建新助手。

启用 file_search 工具后，模型将根据用户消息决定何时检索内容。

Assistant := TsgcAIOpenAIAssistant.Create(nil);
Assistant.OpenAIOptions.ApiKey := 'sk-askdjfalskdjfl23kjkjasdefasdfj';
Assistant.AssistantOptions.Name := 'sgcWebSockets HelpDesk';
Assistant.AssistantOptions.Instructions.Text := 'You are a sgcWebSockets HelpDesk Agent. ' +
'Answer questions briefly, in a sentence or less. When asked a question,use the manual to answer the question.'
Assistant.AssistantOptions.Model := 'gpt-4o-mini';
Assistant.AssistantOptions.Tools.FileSearch.Enabled := True;
Assistant.AssistantOptions.Tools.CodeInterpreter.Enabled := False;

步骤 2：上传文件并添加到向量存储

为访问您的文件，file_search 工具使用向量存储（Vector Store）对象。上传您的文件并创建向量存储来包含它们。

procedure UploadFile();
var
  oDialog: TOpenDialog;
begin
  oDialog := TOpenDialog.Create(nil);
  Try
    if oDialog.Execute then
    begin
      Screen.Cursor := crHourGlass;
      Try
        Assistant.UploadVectorStoreFile('sgcVectorStore', oDialog.FileName);
      Finally
        Screen.Cursor := crDefault;
      End;
    end;
  Finally
    oDialog.Free;
  End;
end; 

步骤 3：创建运行并检查输出

现在，创建一个运行并观察模型如何使用文件搜索工具为用户问题提供响应。

procedure SendMessage()
var
  i: Integer;
  oMessage: TsgcOpenAIClass_Message;
  oMessages: TsgcOpenAIClass_Response_List_Messages;
  oRun: TsgcOpenAIClass_Run;
begin
  DoLog('[user]: ' + memoMessage.Lines.Text);
  Screen.Cursor := crHourGlass;
  Try
    oMessage := Assistant.CreateMessageText('thread_id', 'Create a WebSocket Client that connects to eSeGeCe WebSocket Server');
    if Assigned(oMessage) then
    begin
      oRun := Assistant.CreateRunAndWait('thread_id');
      if Assigned(oRun) then
      begin
        oMessages := Assistant.GetMessages('thread_id', oRun.Id);
        if Assigned(oMessages) and (Length(oMessages.Messages) > 0) then
        begin
          memoMessage.Lines.Text := '';
          for i := 0 to Length(oMessages.Messages) - 1 do
            DoLog('[assistant]: ' + DoFormatResponse(oMessages.Messages[i]
              .ContentText + #13#10));
        end;
      end;
    end;
  Finally
    Screen.Cursor := crDefault;
  End;
end;