sgcAI OpenAI bileşeni, Delphi ekiplerinin doğal dil anlama, kod üretme ve konuşma akışlarını mevcut VCL ve FMX ürünleriyle harmanlayan akıllı, gelire hazır deneyimler sunmasını sağlar. Tek bir yerleştirilebilir bileşenle, SaaS sağlayıcıları altyapılarını yeniden oluşturmadan yapay zeka destekli asistanlar, otomatik belgeleme veya çok dilli sohbet sunabilir.
OpenAI Bileşeni Ticari Projeleri Neden Hızlandırır
- Daha hızlı pazara giriş: hazır REST, WebSocket ve akış desteği, entegrasyon süresini haftalardan saatlere indirir.
- Kurumsal düzeyde güvenlik: TLS 1.3, HTTP/2 ve proxy uyumluluğu, düzenlemeye tabi dağıtımlarda müşteri verilerini korur.
- Ölçeklenebilir gelir elde etme: çok kiracılı token yönetimi ve rate limiting, ISV'lerin yapay zeka özelliklerini premium eklentiler olarak yeniden satmasına olanak tanır.
- Çok platformlu erişim: aynı bileşen, Delphi ile oluşturulan Windows, macOS, Linux, iOS ve Android hedeflerinde çalışır.
Delphi'de OpenAI Bileşenini Hazırlama
- En son sgcWebSockets paketini kurun ve sgcAI_OpenAI ünitesinin projenizde kullanılabilir olduğundan emin olun.
- OpenAI panosunda bir OpenAI API anahtarı oluşturun ve güvenli bir şekilde depolayın (ortam değişkeni, şifrelenmiş INI veya gizli kasası).
- Formunuzun veya veri modülünüzün uses bölümüne sgcAI.OpenAI ekleyin.
Yapılandırma Örneği (VCL Form)
Aşağıdaki kod parçası, çalışma zamanında bir TsgcOpenAI bileşenini yapılandırır. Konuşmayı görselleştirmek için forma bir TButton, TMemo ve TListBox bırakın.
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;
Fırsatlarınızı Artırın
Delphi sağlayıcıları, yapay zeka yardımcı pilotlarını, bilgi aramasını ve ses transkripsiyonunu abonelik katmanları olarak paketleyerek yeni gelir kaynaklarının kilidini açabilir. Yerleşik analiz olayları ve token muhasebesi ile etkileşimi ölçmek, ek satışları gerekçelendirmek ve kişiselleştirilmiş müşteri başarısı iş akışları oluşturmak basittir.