yapay zeka tarafından sınıflandırma işlemi

   Merhaba dökümantasyondan TclOPenAIEngine bileşenini anladığım kadarıyla koduma entegre ederek gelen açıklamanın hangi modüle ait olduğunu sınıflandırmak istedim fakat çalışmadı yardımcı olur musunuz ?
var
  talepForm: TclStyleForm;
  baslikLbl: TClProLabel;
  requestpnl: TClProPanel;
  baslikedit, aciklamaedit: TClProEdit;
  eklebtn: TClProButton;
  kullaniciEmail: String;
  UserID: Integer;
  OpenAIEngine: TclOpenAIEngine;
  bekleyenBaslik, bekleyenAciklama, modul: String;

void TalepEkle;
{
  bekleyenBaslik = baslikedit.Text;
  bekleyenAciklama = aciklamaedit.Text;

  OpenAIEngine.SendAIMessage(
    'Aşağıdaki açıklama hangi yazılım modülüne ait? Sadece modül adını 1-2 kelimeyle belirt:\n' +
    '"' + bekleyenAciklama + '"'
  );

  ShowMessage('Yapay zeka tahmin yapıyor...');
}

void OnNewMessageEvent;
{
  modul = OpenAIEngine.NewMessageContent;
  kullaniciEmail = Clomosy.GlobalVariableString;
  UserID = Clomosy.GlobalVariableString;

  Clomosy.DBSQLiteQuery.SQL.Text =
    'INSERT INTO Talepler (kullanici_email, kullanici_id, baslik, aciklama, modul) VALUES (' +
    QuotedStr(kullaniciEmail) + ',' +
    IntToStr(UserID) + ',' +
    QuotedStr(bekleyenBaslik) + ',' +
    QuotedStr(bekleyenAciklama) + ',' +
    QuotedStr(modul) + ')';
  Clomosy.DBSQLiteQuery.OpenOrExecute;

  ShowMessage('Talep başarıyla eklendi. Tahmini modül: ' + modul);

  baslikedit.Text = '';
  aciklamaedit.Text = '';
}

{
  talepForm = TclStyleForm.Create(Self);
  talepForm.SetFormBGImage('https://i.imgur.com/rQmEqR4.jpeg');

  baslikLbl = talepForm.AddNewProLabel(talepForm, 'baslikLbl', 'Talep Oluştur');
  baslikLbl.Align = alTop;
  baslikLbl.Margins.Top = 10;
  baslikLbl.Height = 40;
  baslikLbl.clProSettings.FontSize = 30;
  baslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];
  baslikLbl.clProSettings.FontHorzAlign = palCenter;
  baslikLbl.SetclProSettings(baslikLbl.clProSettings);

  requestpnl = talepForm.AddNewProPanel(talepForm, 'requestpnl');
  requestpnl.Align = alCenter;
  requestpnl.Height = 350;
  requestpnl.Width = 400;
  requestpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  requestpnl.clProSettings.RoundWidth = 8;
  requestpnl.clProSettings.RoundHeight = 8;
  requestpnl.SetclProSettings(requestpnl.clProSettings);
  requestpnl.BringToFront;

  baslikedit = talepForm.AddNewProEdit(requestpnl, 'baslikedit', 'Talep Başlığı');
  baslikedit.Align = alTop;
  baslikedit.Height = 40;
  baslikedit.Width = 60;
  baslikedit.clProSettings.FontHorzAlign = palCenter;
  baslikedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
  baslikedit.SetclProSettings(baslikedit.clProSettings);

  aciklamaedit = talepForm.AddNewProEdit(requestpnl, 'aciklamaedit', 'Açıklama');
  aciklamaedit.Align = alTop;
  aciklamaedit.Margins.Top = 10;
  aciklamaedit.Height = 200;
  aciklamaedit.Width = 250;
  aciklamaedit.clProSettings.FontVertAlign = palLeading;
  aciklamaedit.clProSettings.FontHorzAlign = palLeading;
  aciklamaedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
  aciklamaedit.SetclProSettings(aciklamaedit.clProSettings);

  eklebtn = talepForm.AddNewProButton(requestpnl, 'eklebtn', 'EKLE');
  eklebtn.Align = alBottom;
  eklebtn.Margins.Bottom = 5;
  eklebtn.Height = 40;
  eklebtn.Width = 60;
  eklebtn.Margins.Right = 60;
  eklebtn.Margins.Left = 60;
  eklebtn.clProSettings.RoundHeight = 8;
  eklebtn.clProSettings.RoundWidth = 8;
  eklebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');
  eklebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  eklebtn.clProSettings.TextSettings.Font.Style = [fsBold];
  eklebtn.clProSettings.FontSize = 20;
  eklebtn.SetclProSettings(eklebtn.clProSettings);

  talepForm.AddNewEvent(eklebtn, tbeOnClick, 'TalepEkle');

  OpenAIEngine = TclOpenAIEngine.Create(Self);
  OpenAIEngine.ParentForm = talepForm;
  OpenAIEngine.SetToken('apikeyimbukısımdagüvenlikaçısındaneklemedim'); 
  OpenAIEngine.OnNewMessageEvent = 'OnNewMessageEvent';

  talepForm.Run;
} 

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Sudesigirci Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 53	Mesaj Seçenekleri Yanıt Yaz Alıntı Sudesigirci Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: yapay zeka tarafından sınıflandırma işlemi Gönderim Zamanı: 10 Temmuz 2025 Saat 09:21
	Merhaba dökümantasyondan TclOPenAIEngine bileşenini anladığım kadarıyla koduma entegre ederek gelen açıklamanın hangi modüle ait olduğunu sınıflandırmak istedim fakat çalışmadı yardımcı olur musunuz ? var talepForm: TclStyleForm; baslikLbl: TClProLabel; requestpnl: TClProPanel; baslikedit, aciklamaedit: TClProEdit; eklebtn: TClProButton; kullaniciEmail: String; UserID: Integer; OpenAIEngine: TclOpenAIEngine; bekleyenBaslik, bekleyenAciklama, modul: String; void TalepEkle; { bekleyenBaslik = baslikedit.Text; bekleyenAciklama = aciklamaedit.Text; OpenAIEngine.SendAIMessage( 'Aşağıdaki açıklama hangi yazılım modülüne ait? Sadece modül adını 1-2 kelimeyle belirt:\n' + '"' + bekleyenAciklama + '"' ); ShowMessage('Yapay zeka tahmin yapıyor...'); } void OnNewMessageEvent; { modul = OpenAIEngine.NewMessageContent; kullaniciEmail = Clomosy.GlobalVariableString; UserID = Clomosy.GlobalVariableString; Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Talepler (kullanici_email, kullanici_id, baslik, aciklama, modul) VALUES (' + QuotedStr(kullaniciEmail) + ',' + IntToStr(UserID) + ',' + QuotedStr(bekleyenBaslik) + ',' + QuotedStr(bekleyenAciklama) + ',' + QuotedStr(modul) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Talep başarıyla eklendi. Tahmini modül: ' + modul); baslikedit.Text = ''; aciklamaedit.Text = ''; } { talepForm = TclStyleForm.Create(Self); talepForm.SetFormBGImage('https://i.imgur.com/rQmEqR4.jpeg'); baslikLbl = talepForm.AddNewProLabel(talepForm, 'baslikLbl', 'Talep Oluştur'); baslikLbl.Align = alTop; baslikLbl.Margins.Top = 10; baslikLbl.Height = 40; baslikLbl.clProSettings.FontSize = 30; baslikLbl.clProSettings.TextSettings.Font.Style = [fsBold]; baslikLbl.clProSettings.FontHorzAlign = palCenter; baslikLbl.SetclProSettings(baslikLbl.clProSettings); requestpnl = talepForm.AddNewProPanel(talepForm, 'requestpnl'); requestpnl.Align = alCenter; requestpnl.Height = 350; requestpnl.Width = 400; requestpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff'); requestpnl.clProSettings.RoundWidth = 8; requestpnl.clProSettings.RoundHeight = 8; requestpnl.SetclProSettings(requestpnl.clProSettings); requestpnl.BringToFront; baslikedit = talepForm.AddNewProEdit(requestpnl, 'baslikedit', 'Talep Başlığı'); baslikedit.Align = alTop; baslikedit.Height = 40; baslikedit.Width = 60; baslikedit.clProSettings.FontHorzAlign = palCenter; baslikedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4'); baslikedit.SetclProSettings(baslikedit.clProSettings); aciklamaedit = talepForm.AddNewProEdit(requestpnl, 'aciklamaedit', 'Açıklama'); aciklamaedit.Align = alTop; aciklamaedit.Margins.Top = 10; aciklamaedit.Height = 200; aciklamaedit.Width = 250; aciklamaedit.clProSettings.FontVertAlign = palLeading; aciklamaedit.clProSettings.FontHorzAlign = palLeading; aciklamaedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4'); aciklamaedit.SetclProSettings(aciklamaedit.clProSettings); eklebtn = talepForm.AddNewProButton(requestpnl, 'eklebtn', 'EKLE'); eklebtn.Align = alBottom; eklebtn.Margins.Bottom = 5; eklebtn.Height = 40; eklebtn.Width = 60; eklebtn.Margins.Right = 60; eklebtn.Margins.Left = 60; eklebtn.clProSettings.RoundHeight = 8; eklebtn.clProSettings.RoundWidth = 8; eklebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4'); eklebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); eklebtn.clProSettings.TextSettings.Font.Style = [fsBold]; eklebtn.clProSettings.FontSize = 20; eklebtn.SetclProSettings(eklebtn.clProSettings); talepForm.AddNewEvent(eklebtn, tbeOnClick, 'TalepEkle'); OpenAIEngine = TclOpenAIEngine.Create(Self); OpenAIEngine.ParentForm = talepForm; OpenAIEngine.SetToken('apikeyimbukısımdagüvenlikaçısındaneklemedim'); OpenAIEngine.OnNewMessageEvent = 'OnNewMessageEvent'; talepForm.Run; }

BilalCndn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 09 Ekim 2023 Durum: Aktif Değil Puanlar: 184	Mesaj Seçenekleri Yanıt Yaz Alıntı BilalCndn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 10 Temmuz 2025 Saat 14:01
	Merhaba Sude, OpenAI bir güncelleme yayınladığında TclOpenAIEngin nesnesini de güncellemek gerekiyor. Konu ile ilgili çalışmalar sürüyor. Bunun yerine TclRest nesnesini kullanarak yapay zeka ile iletişime geçebilirsin. İyi çalışmalar dilerim.
	Bilal Candan Atiker Yazılım Veri İşlem A.Ş. Software and Artificial Intelligence Development Specialist [email protected]