Database vettoriale 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';

  // Combinalo con il componente embeddings OpenAI...
  Embeddings := TsgcAIOpenAIEmbeddings.Create(nil);
  Embeddings.OpenAIOptions.ApiKey := 'sk-...';
  Embeddings.Database := DBPinecone;

  // ... e ingerisci un corpus in un singolo upsert in batch
  Embeddings.CreateEmbeddingsFromFile('docs.txt');

  // Interroga il nearest neighbour per un testo qualsiasi
  Memo1.Lines.Text := DBPinecone.QueryData(
    Embeddings.GetEmbedding('what is sgcWebSockets?', ''));
end;