O TsgcAIChat é um único cliente de chat para sete provedores de modelos de linguagem. Defina Provider, informe uma chave de API e um modelo, e então chame Chat. Trocar de fornecedor é uma única atribuição, o resto do seu código continua igual.
Um componente de chat neutro em relação ao provedor. Ele mantém o histórico da conversa, monta o corpo JSON específico de cada provedor, comanda o cliente de API HTTP correspondente e devolve o texto do assistente, seja em uma única chamada ou token a token.
TsgcAIChat
Chat com LLM neutro em relação ao provedor
Win32 e Win64
O sgcAI é autossuficiente. Este componente vem dentro do sgcAI junto com o runtime sgcWebSockets Core sobre o qual foi construído, então não há licença base para comprar.
Escolha o provedor, defina a chave e o modelo, chame Chat. As variantes em streaming e assíncrona usam a mesma configuração.
uses
sgcAI, sgcAI_Chat;
var
oChat: TsgcAIChat;
vAnswer: string;
begin
oChat := TsgcAIChat.Create(nil);
oChat.Provider := aicpAnthropic;
oChat.ChatOptions.ApiKey := 'sk-ant-...';
oChat.ChatOptions.Model := 'claude-sonnet-4-5';
oChat.ChatOptions.MaxTokens := 4096;
oChat.SystemMessage := 'You are a Delphi expert.';
oChat.MaxHistoryMessages := 20;
// Blocking call, returns the assistant text.
vAnswer := oChat.Chat('How do I keep a WebSocket connection alive?');
// Token by token, delivered on OnChatStream.
oChat.OnChatStream := OnChatStreamHandler;
oChat.ChatStream('Now explain it to a beginner.');
end;
procedure TForm1.OnChatStreamHandler(Sender: TObject;
const aChunk: string; var Cancel: Boolean);
begin
Memo1.Text := Memo1.Text + aChunk;
Cancel := StopRequested; // abort a long generation
end;// includes: sgcAI.hpp, sgcAI_Chat.hpp
TsgcAIChat *oChat = new TsgcAIChat(NULL);
oChat->Provider = aicpOpenAI;
oChat->ChatOptions->ApiKey = "sk-...";
oChat->ChatOptions->Model = "gpt-4o";
oChat->SystemMessage = "You are a Delphi expert.";
String vAnswer = oChat->Chat("How do I keep a WebSocket connection alive?");
// Local models: same code, no data leaves the machine.
oChat->Provider = aicpOllama;
oChat->ChatOptions->BaseUrl = "http://127.0.0.1:11434";
oChat->ChatOptions->Model = "llama3";
vAnswer = oChat->Chat("Same question, local model.");Os membros que você usa com mais frequência.
Provider escolhe o fornecedor: aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok ou aicpMistral. Alterá-lo libera o cliente em cache do provedor anterior.
ApiKey, Model, MaxTokens, Temperature, TopP e BaseUrl. Deixe Temperature e TopP no valor padrão e eles são omitidos da requisição, então vale o padrão do provedor.
SystemMessage define a persona em cada turno. MaxHistoryMessages limita quantas mensagens anteriores são reenviadas, o que controla o custo em tokens. ClearHistory e GetHistory reiniciam e leem a transcrição.
Chat bloqueia e retorna a resposta. ChatStream transmite via SSE. ChatWithSystem sobrescreve o prompt de sistema em um único turno. ChatAsync retorna um future no Delphi 2010 e posteriores.
OnChatMessage reporta cada mensagem concluída com o seu papel. OnChatStream entrega cada trecho e carrega um sinalizador Cancel. OnChatError expõe erros do provedor e de transporte.
Com Provider definido como aicpOllama, ChatOptions.BaseUrl aponta o componente para o seu próprio host Ollama, então prompts e respostas nunca saem da máquina.
Fontes oficiais dos serviços e protocolos que este componente usa.
| Ajuda onlineReferência completa da API e guia de uso dos componentes sgcAI. | Abrir | |
| Todos os componentes sgcAIExplore a matriz de recursos completa dos 15 componentes. | Abrir | |
| Baixar avaliação gratuitaTeste os sete provedores com suas próprias chaves de API. | Abrir | |
| PreçosLicenças Single, Team e Site, código-fonte completo, sem necessidade de produto base. | Abrir |