TsgcAIChat, yedi büyük dil modeli sağlayıcısı için tek bir sohbet istemcisidir. Provider özelliğini ayarlayın, bir API anahtarı ve bir model belirleyin, ardından Chat metodunu çağırın. Sağlayıcı değiştirmek tek bir atamadan ibarettir, kodunuzun geri kalanı aynı kalır.
Sağlayıcıdan bağımsız bir sohbet bileşeni. Konuşma geçmişini tutar, sağlayıcıya özgü JSON gövdesini oluşturur, eşleşen HTTP API istemcisini yönetir ve asistan metnini tek bir çağrıda ya da belirteç belirteç size geri verir.
TsgcAIChat
Sağlayıcıdan bağımsız LLM sohbeti
Win32 ve Win64
sgcAI bağımsız bir üründür. Bu bileşen, üzerine kurulduğu sgcWebSockets Core çalışma zamanıyla birlikte sgcAI içinde gelir, bu nedenle satın alınacak bir temel lisans yoktur.
Sağlayıcıyı seçin, anahtarı ve modeli ayarlayın, Chat metodunu çağırın. Akış ve asenkron varyantlar aynı yapılandırmayı kullanır.
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.");En sık başvuracağınız üyeler.
Provider sağlayıcıyı seçer: aicpOpenAI, aicpAnthropic, aicpGemini, aicpDeepSeek, aicpOllama, aicpGrok veya aicpMistral. Bu özelliği değiştirmek, önceki sağlayıcı için önbelleğe alınmış istemciyi serbest bırakır.
ApiKey, Model, MaxTokens, Temperature, TopP ve BaseUrl. Temperature ve TopP değerlerini varsayılanlarında bırakırsanız istekten çıkarılırlar, böylece sağlayıcının varsayılanı geçerli olur.
SystemMessage her tur için karakteri belirler. MaxHistoryMessages kaç geçmiş mesajın yeniden gönderileceğini sınırlar ve böylece belirteç maliyetini sınırlandırır. ClearHistory ve GetHistory döküm kaydını sıfırlar ve okur.
Chat bloklar ve yanıtı döndürür. ChatStream SSE üzerinden akış sağlar. ChatWithSystem tek bir tur için sistem istemini geçersiz kılar. ChatAsync, Delphi 2010 ve sonrasında bir future döndürür.
OnChatMessage tamamlanan her mesajı rolüyle birlikte bildirir. OnChatStream her parçayı iletir ve bir Cancel bayrağı taşır. OnChatError sağlayıcı ve taşıma hatalarını yüzeye çıkarır.
Provider özelliği aicpOllama olarak ayarlandığında ChatOptions.BaseUrl bileşeni kendi Ollama sunucunuza yönlendirir, böylece istemler ve yanıtlar makineden hiç çıkmaz.
Bu bileşenin kullandığı hizmet ve protokoller için yetkili kaynaklar.
| Çevrimiçi yardımsgcAI bileşenleri için tam API referansı ve kullanım kılavuzu. | Aç | |
| Tüm sgcAI Bileşenleri15 bileşenin tamamının özellik matrisine göz atın. | Aç | |
| Ücretsiz Deneme Sürümünü İndirinYedi sağlayıcının tamamını kendi API anahtarlarınızla deneyin. | Aç | |
| FiyatlandırmaSingle, Team ve Site lisansları, tam kaynak kodu, temel ürün gerekmez. | Aç |