Base de données vectorielle 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';

  // Combine with the OpenAI embeddings component...
  Embeddings := TsgcAIOpenAIEmbeddings.Create(nil);
  Embeddings.OpenAIOptions.ApiKey := 'sk-...';
  Embeddings.Database := DBPinecone;

  // ... and ingest a corpus in a single batch upsert
  Embeddings.CreateEmbeddingsFromFile('docs.txt');

  // Query the nearest neighbour for an arbitrary text
  Memo1.Lines.Text := DBPinecone.QueryData(
    Embeddings.GetEmbedding('what is sgcWebSockets?', ''));
end;