Die sgcAI OpenAI-Komponente ermöglicht Delphi-Teams, intelligente, umsatzstarke Erlebnisse auszuliefern, die natürliches Sprachverständnis, Codegenerierung und Conversation-Flows in bestehende VCL- und FMX-Produkte einbetten. Mit einer einzigen Drop-in-Komponente können SaaS-Anbieter KI-gesteuerte Assistenten, automatisierte Dokumentation oder mehrsprachigen Chat anbieten, ohne ihre Infrastruktur neu aufzubauen.
Warum die OpenAI-Komponente kommerzielle Projekte beschleunigt
- Schnellerer Markteintritt: Fertige REST-, WebSocket- und Streaming-Unterstützung reduziert die Integrationszeit von Wochen auf Stunden.
- Sicherheit auf Unternehmensniveau: TLS 1.3, HTTP/2 und Proxy-Kompatibilität schützen Kundendaten in regulierten Deployments.
- Skalierbare Monetarisierung: Multi-Tenant-Token-Management und Rate-Limiting erlauben ISVs, KI-Funktionen als Premium-Add-ons weiterzuverkaufen.
- Plattformübergreifende Reichweite: Dieselbe Komponente läuft auf Windows-, macOS-, Linux-, iOS- und Android-Zielen, die mit Delphi gebaut wurden.
Die OpenAI-Komponente in Delphi vorbereiten
- Installiere das neueste sgcWebSockets-Paket und stelle sicher, dass die Unit sgcAI_OpenAI in deinem Projekt verfügbar ist.
- Erstelle einen OpenAI API-Schlüssel im OpenAI-Dashboard und bewahre ihn sicher auf (Umgebungsvariable, verschlüsselte INI oder Secrets Vault).
- Füge sgcAI.OpenAI zur uses-Klausel deines Formulars oder Datenmoduls hinzu.
Konfigurationsbeispiel (VCL-Formular)
Das folgende Snippet konfiguriert eine TsgcOpenAI-Komponente zur Laufzeit. Platziere ein TButton, TMemo und eine TListBox auf dem Formular, um den Gesprächsverlauf darzustellen.
uses
System.SysUtils, sgcAI_OpenAI;
procedure TFormMain.FormCreate(Sender: TObject);
begin
OpenAI := TsgcOpenAI.Create(Self);
OpenAI.APIKey := GetEnvironmentVariable('OPENAI_API_KEY');
OpenAI.DefaultModel := 'gpt-4o-mini';
OpenAI.HTTP.Proxy.Host := 'proxy.company.local';
OpenAI.HTTP.Proxy.Port := 8080;
OpenAI.HTTP.Timeout := 15000;
OpenAI.Streaming := True;
end;
procedure TFormMain.ButtonAskClick(Sender: TObject);
var
LRequest: TsgcOpenAIChatRequest;
LResponse: TsgcOpenAIChatResponse;
begin
LRequest := TsgcOpenAIChatRequest.Create;
try
LRequest.Messages.Add('system', 'Answer as a senior support engineer.');
LRequest.Messages.Add('user', MemoPrompt.Lines.Text);
LResponse := OpenAI.Chat.Create(LRequest);
try
ListBoxHistory.Items.Add(LResponse.Choices[0].Message.Content);
finally
LResponse.Free;
end;
finally
LRequest.Free;
end;
end;
Erweitere deine Chancen
Delphi-Anbieter können neue Umsatzquellen erschließen, indem sie KI-Copiloten, Wissenssuche und Audiotranskription als Abonnement-Stufen bündeln. Mit eingebauten Analytics-Events und Token-Abrechnung lässt sich Engagement messen, Upsells begründen und personalisierte Customer-Success-Workflows bauen.