AI-aangedreven Delphi-apps bouwen met OpenAI

De sgcAI OpenAI-component stelt Delphi-teams in staat om slimme, omzetklare ervaringen te leveren die natuurlijke-taalbegrip, codegeneratie en gespreksflows combineren in bestaande VCL- en FMX-producten. Met één drop-in-component kunnen SaaS-leveranciers AI-gestuurde assistenten, geautomatiseerde documentatie of meertalige chat aanbieden zonder hun infrastructuur opnieuw op te bouwen.

Waarom de OpenAI-component commerciële projecten versnelt

• Sneller naar de markt: kant-en-klare REST-, WebSocket- en streaming-ondersteuning verkort de integratietijd van weken naar uren.
• Beveiliging van enterpriseniveau: TLS 1.3, HTTP/2 en proxy-compatibiliteit beschermen klantgegevens in gereguleerde deployments.
• Schaalbare monetisatie: multi-tenant tokenbeheer en rate limiting laten ISV's AI-functies doorverkopen als premium add-ons.
• Cross-platform-bereik: dezelfde component werkt voor Windows, macOS, Linux, iOS en Android, gebouwd met Delphi.

De OpenAI-component voorbereiden in Delphi

1. Installeer het nieuwste sgcWebSockets-pakket en zorg dat de sgcAI_OpenAI-unit beschikbaar is in je project.
2. Maak een OpenAI API-sleutel aan in het OpenAI-dashboard en sla deze veilig op (omgevingsvariabele, versleutelde INI of secrets vault).
3. Voeg sgcAI.OpenAI toe aan de uses-clausule van je formulier of data-module.

Configuratievoorbeeld (VCL-formulier)

Het onderstaande fragment configureert een TsgcOpenAI-component tijdens runtime. Plaats een TButton, TMemo en TListBox op het formulier om het gesprek te visualiseren. 

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; 

Vergroot je kansen

Delphi-leveranciers kunnen nieuwe inkomstenbronnen aanboren door AI-copiloten, knowledge search en audiotranscriptie als subscription-niveaus aan te bieden. Dankzij ingebouwde analytics-events en token-accounting is het eenvoudig om engagement te meten, upsells te onderbouwen en gepersonaliseerde customer success-workflows te bouwen.