TsgcAIChat ist ein einziger Chat-Client für sieben Anbieter großer Sprachmodelle. Setze Provider, hinterlege einen API-Schlüssel und ein Modell und rufe dann Chat auf. Der Anbieterwechsel ist eine einzige Zuweisung, der Rest deines Codes bleibt gleich.
Eine anbieterneutrale Chat-Komponente. Sie führt den Gesprächsverlauf, baut den anbieterspezifischen JSON-Body, steuert den passenden HTTP-API-Client und gibt dir den Assistententext zurück, entweder in einem Aufruf oder Token für Token.
TsgcAIChat
Anbieterneutraler LLM-Chat
Win32 und Win64
sgcAI ist eigenständig. Diese Komponente wird in sgcAI zusammen mit der sgcWebSockets Core Runtime ausgeliefert, auf der sie aufbaut. Du musst also keine Basislizenz kaufen.
Wähle den Anbieter, setze Schlüssel und Modell, rufe Chat auf. Die Streaming- und Async-Varianten nutzen dieselbe Konfiguration.
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.");Die Member, zu denen du am häufigsten greifst.
Provider wählt den Anbieter: aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok oder aicpMistral. Eine Änderung gibt den zwischengespeicherten Client des vorherigen Anbieters frei.
ApiKey, Model, MaxTokens, Temperature, TopP und BaseUrl. Lässt du Temperature und TopP auf dem Standardwert, werden sie aus der Anfrage weggelassen, sodass die Vorgabe des Anbieters gilt.
SystemMessage legt die Persona für jeden Turn fest. MaxHistoryMessages begrenzt, wie viele frühere Nachrichten erneut gesendet werden, und damit die Token-Kosten. ClearHistory und GetHistory setzen das Transkript zurück und lesen es aus.
Chat blockiert und liefert die Antwort zurück. ChatStream streamt über SSE. ChatWithSystem überschreibt den System-Prompt für einen einzelnen Turn. ChatAsync gibt ab Delphi 2010 ein Future zurück.
OnChatMessage meldet jede fertige Nachricht mit ihrer Rolle. OnChatStream liefert jeden Chunk und führt ein Cancel-Flag mit. OnChatError macht Anbieter- und Transportfehler sichtbar.
Steht Provider auf aicpOllama, richtet ChatOptions.BaseUrl die Komponente auf deinen eigenen Ollama-Host aus, sodass Prompts und Antworten den Rechner nie verlassen.
Maßgebliche Quellen zu den Diensten und Protokollen, die diese Komponente nutzt.
| Online-HilfeVollständige API-Referenz und Anwendungsleitfaden für die sgcAI-Komponenten. | Öffnen | |
| Alle sgcAI-KomponentenDurchstöbere die vollständige Funktionsmatrix aller 15 Komponenten. | Öffnen | |
| Kostenlose Testversion herunterladenProbiere alle sieben Anbieter mit deinen eigenen API-Schlüsseln aus. | Öffnen | |
| PreiseSingle-, Team- und Site-Lizenzen, vollständiger Quellcode, kein Basisprodukt erforderlich. | Öffnen |