Le composant sgcAI OpenAI permet aux équipes Delphi de livrer des expériences intelligentes et prêtes à monétiser, mêlant compréhension du langage naturel, génération de code et flux de conversation dans des produits VCL et FMX existants. Avec un seul composant clé en main, les éditeurs de SaaS peuvent offrir des assistants pilotés par IA, de la documentation automatisée ou du chat multilingue sans reconstruire leur infrastructure.
Pourquoi le composant OpenAI accélère les projets commerciaux
- Time-to-market plus court : la prise en charge prête à l'emploi de REST, WebSocket et streaming réduit le temps d'intégration de semaines à heures.
- Sécurité de niveau entreprise : TLS 1.3, HTTP/2 et compatibilité proxy protègent les données clients dans les déploiements réglementés.
- Monétisation scalable : la gestion multi-tenant des jetons et le rate limiting permettent aux ISVs de revendre les fonctionnalités IA comme add-ons premium.
- Portée multiplateforme : le même composant fonctionne sur les cibles Windows, macOS, Linux, iOS et Android construites avec Delphi.
Préparer le composant OpenAI dans Delphi
- Installe le dernier package sgcWebSockets et assure-toi que l'unité sgcAI_OpenAI est disponible dans ton projet.
- Crée une clé API OpenAI dans le tableau de bord OpenAI et stocke-la de manière sécurisée (variable d'environnement, INI chiffré ou coffre-fort de secrets).
- Ajoute sgcAI.OpenAI à la clause uses de ta fiche ou de ton data module.
Exemple de configuration (fiche VCL)
L'extrait ci-dessous configure un composant TsgcOpenAI à l'exécution. Pose un TButton, un TMemo et un TListBox sur la fiche pour visualiser la conversation.
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;
Augmente tes opportunités
Les éditeurs Delphi peuvent débloquer de nouveaux flux de revenus en packageant des copilotes IA, de la recherche de connaissances et de la transcription audio en niveaux d'abonnement. Avec les événements analytiques intégrés et la comptabilisation des jetons, c'est simple de mesurer l'engagement, de justifier des upsells et de construire des workflows de customer success personnalisés.