ssl hatası

   bir siteden veri çekmeye çalışırken ssl hatası alıyorum aşşağıda kodum bulunmakta.var
  MainMenuForm: TclForm;
  MainPanel, LeftPanel, RightPanel: TclProPanel;
  DuyuruLabel, YemekLabel: TclProLabel;
  LogoImage: TclProImage;
  BtnDuyuru, BtnYemek: TclProButton;
  Http: TclHttp;
  DuyuruText: TclMemo;

void BtnDuyuruClick;
{
  LeftPanel.Visible = True;
  RightPanel.Visible = False;
}

void BtnYemekClick;
{
  LeftPanel.Visible = False;
  RightPanel.Visible = True;
}

void GetDuyurular;
var
  str: String;
{
  Http = TclHttp.Create(nil);
  try
    str = Http.GetRequest('https://www.gidatarim.edu.tr/duyurularimiz');
    DuyuruText.Text = str;
  finally
    Http.Free;
  }
}

{
  MainMenuForm = TclForm.Create(Self);
  MainMenuForm.SetFormColor('#ffffff', '#ffffff', clGNone);

  MainPanel = MainMenuForm.AddNewProPanel(MainMenuForm, 'MainPanel');
  MainPanel.Align = alClient;
  MainPanel.clProSettings.IsTransparent = True;
  MainPanel.SetclProSettings(MainPanel.clProSettings);

  LogoImage = MainMenuForm.AddNewProImage(MainPanel, 'LogoImage');
  LogoImage.Align = alTop;
  LogoImage.Height = 160;
  LogoImage.clProSettings.PictureSource = 'https://resmim.net/cdn/2025/07/29/X8O1uH.png';
  LogoImage.clProSettings.PictureAutoFit = True;
  LogoImage.clProSettings.IsRound = True;
  LogoImage.SetclProSettings(LogoImage.clProSettings);

  BtnDuyuru = MainMenuForm.AddNewProButton(MainPanel, 'BtnDuyuru', 'Duyurular');
  BtnDuyuru.Align = alTop;
  BtnDuyuru.Height = 40;
  BtnDuyuru.clProSettings.IsRound = True;
  BtnDuyuru.SetclProSettings(BtnDuyuru.clProSettings);
  MainMenuForm.AddNewEvent(BtnDuyuru, tbeOnClick, 'BtnDuyuruClick');

  BtnYemek = MainMenuForm.AddNewProButton(MainPanel, 'BtnYemek', 'Yemekler');
  BtnYemek.Align = alTop;
  BtnYemek.Height = 40;
  BtnYemek.clProSettings.IsRound = True;
  BtnYemek.SetclProSettings(BtnYemek.clProSettings);
  MainMenuForm.AddNewEvent(BtnYemek, tbeOnClick, 'BtnYemekClick');

  LeftPanel = MainMenuForm.AddNewProPanel(MainPanel, 'LeftPanel');
  LeftPanel.Align = alClient;
  LeftPanel.clProSettings.IsFill = True;
  LeftPanel.SetclProSettings(LeftPanel.clProSettings);

  DuyuruLabel = MainMenuForm.AddNewProLabel(LeftPanel, 'DuyuruLabel', '📢 Duyurular');
  DuyuruLabel.Align = alTop;
  DuyuruLabel.Margins.Top = 15;
  DuyuruLabel.Margins.Left = 10;
  DuyuruLabel.clProSettings.FontSize = 18;
  DuyuruLabel.SetclProSettings(DuyuruLabel.clProSettings);

  DuyuruText = MainMenuForm.AddNewMemo(LeftPanel, 'DuyuruText', '');
  DuyuruText.Align = alClient;
  DuyuruText.ReadOnly = True;

  RightPanel = MainMenuForm.AddNewProPanel(MainPanel, 'RightPanel');
  RightPanel.Align = alClient;
  RightPanel.clProSettings.IsFill = True;
  RightPanel.SetclProSettings(RightPanel.clProSettings);

  YemekLabel = MainMenuForm.AddNewProLabel(RightPanel, 'YemekLabel', '🍽️ Yemek Menüsü');
  YemekLabel.Align = alTop;
  YemekLabel.Margins.Top = 15;
  YemekLabel.Margins.Left = 10;
  YemekLabel.clProSettings.FontSize = 18;
  YemekLabel.SetclProSettings(YemekLabel.clProSettings);

  RightPanel.Visible = True;
  LeftPanel.Visible = False;

  GetDuyurular;

  MainMenuForm.Run;
}
yardımcı olabilirmisiniz?

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Yigitogtzz Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 03 Temmuz 2025 Durum: Aktif Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Yigitogtzz Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: ssl hatası Gönderim Zamanı: 20 Saat 35 Dakika Önce Saat 13:14
	bir siteden veri çekmeye çalışırken ssl hatası alıyorum aşşağıda kodum bulunmakta. var MainMenuForm: TclForm; MainPanel, LeftPanel, RightPanel: TclProPanel; DuyuruLabel, YemekLabel: TclProLabel; LogoImage: TclProImage; BtnDuyuru, BtnYemek: TclProButton; Http: TclHttp; DuyuruText: TclMemo; void BtnDuyuruClick; { LeftPanel.Visible = True; RightPanel.Visible = False; } void BtnYemekClick; { LeftPanel.Visible = False; RightPanel.Visible = True; } void GetDuyurular; var str: String; { Http = TclHttp.Create(nil); try str = Http.GetRequest('https://www.gidatarim.edu.tr/duyurularimiz'); DuyuruText.Text = str; finally Http.Free; } } { MainMenuForm = TclForm.Create(Self); MainMenuForm.SetFormColor('#ffffff', '#ffffff', clGNone); MainPanel = MainMenuForm.AddNewProPanel(MainMenuForm, 'MainPanel'); MainPanel.Align = alClient; MainPanel.clProSettings.IsTransparent = True; MainPanel.SetclProSettings(MainPanel.clProSettings); LogoImage = MainMenuForm.AddNewProImage(MainPanel, 'LogoImage'); LogoImage.Align = alTop; LogoImage.Height = 160; LogoImage.clProSettings.PictureSource = 'https://resmim.net/cdn/2025/07/29/X8O1uH.png'; LogoImage.clProSettings.PictureAutoFit = True; LogoImage.clProSettings.IsRound = True; LogoImage.SetclProSettings(LogoImage.clProSettings); BtnDuyuru = MainMenuForm.AddNewProButton(MainPanel, 'BtnDuyuru', 'Duyurular'); BtnDuyuru.Align = alTop; BtnDuyuru.Height = 40; BtnDuyuru.clProSettings.IsRound = True; BtnDuyuru.SetclProSettings(BtnDuyuru.clProSettings); MainMenuForm.AddNewEvent(BtnDuyuru, tbeOnClick, 'BtnDuyuruClick'); BtnYemek = MainMenuForm.AddNewProButton(MainPanel, 'BtnYemek', 'Yemekler'); BtnYemek.Align = alTop; BtnYemek.Height = 40; BtnYemek.clProSettings.IsRound = True; BtnYemek.SetclProSettings(BtnYemek.clProSettings); MainMenuForm.AddNewEvent(BtnYemek, tbeOnClick, 'BtnYemekClick'); LeftPanel = MainMenuForm.AddNewProPanel(MainPanel, 'LeftPanel'); LeftPanel.Align = alClient; LeftPanel.clProSettings.IsFill = True; LeftPanel.SetclProSettings(LeftPanel.clProSettings); DuyuruLabel = MainMenuForm.AddNewProLabel(LeftPanel, 'DuyuruLabel', '📢 Duyurular'); DuyuruLabel.Align = alTop; DuyuruLabel.Margins.Top = 15; DuyuruLabel.Margins.Left = 10; DuyuruLabel.clProSettings.FontSize = 18; DuyuruLabel.SetclProSettings(DuyuruLabel.clProSettings); DuyuruText = MainMenuForm.AddNewMemo(LeftPanel, 'DuyuruText', ''); DuyuruText.Align = alClient; DuyuruText.ReadOnly = True; RightPanel = MainMenuForm.AddNewProPanel(MainPanel, 'RightPanel'); RightPanel.Align = alClient; RightPanel.clProSettings.IsFill = True; RightPanel.SetclProSettings(RightPanel.clProSettings); YemekLabel = MainMenuForm.AddNewProLabel(RightPanel, 'YemekLabel', '🍽️ Yemek Menüsü'); YemekLabel.Align = alTop; YemekLabel.Margins.Top = 15; YemekLabel.Margins.Left = 10; YemekLabel.clProSettings.FontSize = 18; YemekLabel.SetclProSettings(YemekLabel.clProSettings); RightPanel.Visible = True; LeftPanel.Visible = False; GetDuyurular; MainMenuForm.Run; } yardımcı olabilirmisiniz?

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 181	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 18 Saat 23 Dakika Önce Saat 15:26
	Merhaba Yiğit, https://www.docs.clomosy.com/index.php?title=TclRest ; dener misin ? İyi çalışmalar.