Base de datos vectorial Pinecone

uses
  sgcAI_DB_Vector, sgcAI_DB_Vector_Pinecone, sgcAI_OpenAI_Embeddings;

var
  DBPinecone: TsgcAIDatabaseVectorPinecone;
  Embeddings: TsgcAIOpenAIEmbeddings;
begin
  DBPinecone := TsgcAIDatabaseVectorPinecone.Create(nil);
  DBPinecone.PineconeOptions.ApiKey         := 'pc-...';
  DBPinecone.PineconeOptions.Environment    := 'us-west4-gcp-free';
  DBPinecone.PineconeIndexOptions.IndexName := 'sgc-embeddings';
  DBPinecone.PineconeIndexOptions.ProjectId := 'abcd1234';

  // Combínalo con el componente de embeddings de OpenAI...
  Embeddings := TsgcAIOpenAIEmbeddings.Create(nil);
  Embeddings.OpenAIOptions.ApiKey := 'sk-...';
  Embeddings.Database := DBPinecone;

  // ... e ingiere un corpus en un único upsert por lotes
  Embeddings.CreateEmbeddingsFromFile('docs.txt');

  // Consulta el vecino más cercano para un texto cualquiera
  Memo1.Lines.Text := DBPinecone.QueryData(
    Embeddings.GetEmbedding('what is sgcWebSockets?', ''));
end;