Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - TCLHttp
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

TCLHttp
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ebrarflz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif
Puanlar: 34 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: TCLHttp
    Gönderim Zamanı: 22 Saat 4 Dakika Önce Saat 13:48

API entegrasyonu üzerinde çalışıyorum.TCLHttp bileşeni ile API'nin endpoint adresine HTTP Get İsteği gönderiyorum.Tarayıcı üzerinden URL'yi denediğimde JSON verisi sorunsuz geliyor, ancak uygulama içerisinden istek attığımda bağlantı sağlanamıyor (veya boş dönüyor). Nasıl düzeltebilirim URL eklememin başka yolu var mı?

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
M-Guney Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 16 Eylül 2025
Konum: Konya, Meram, K
Durum: Aktif Değil
Puanlar: 163 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı M-Guney Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 19 Saat 35 Dakika Önce Saat 16:17
Eğer ki Rest API kullanıyorsanız https://www.docs.clomosy.com/index.php?title=TclRest
Buradan bakabilirsiniz.
Probleminiz çözülmez ise geri dönüşünüzü bekliyorum.https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
ebrarflz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif
Puanlar: 34 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 17 Saat 56 Dakika Önce Saat 17:56
Rest kullandım hatalar azaldı fakat (MyRest.Response )  response kısmında hata alıyorum bir çok şey denedim fakat çözemedim döngüde kullanıyorum bunu veri alırkenhttps://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 620 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 17 Saat 34 Dakika Önce Saat 18:18
Merhaba Ebrar, 
Hata aldığın mevcut kodu paylaşabilir misin?https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
ebrarflz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif
Puanlar: 34 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 37 Dakika Önce Saat 09:15
// HAVA DURUMU ÇEKME 
void GetWeather;
{
  if (edtCity.Text == '') exit;

  strUrl = 'https://api.openweathermap.org/data/2.5/weather?q=' + edtCity.Text + '&appid=086bce3b99dd35ec3b1cdfa932aa5839&units=metric&lang=tr';
  
  strVeri = MyHttp.GetRequest(strUrl);
  
  //HATA AŞAĞIDAKİ İF DE BAŞLIYOR
  if (strVeri != '')  //NOT kullandım fakat yine düzelmedi.
  {
      MyJson = TclJsonQuery.Create(nil);
      MyJson.Parse(strVeri);
      
      lblTemp.Text = MyJson.Select(MyJson.Root, 'main').GetString('temp') + '°C';
      lblDesc.Text = MyJson.Select(MyJson.Root, 'weather').Item(0).GetString('description');
      edtCity.Text = MyJson.GetString('name');
  }
}
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
ebrarflz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif
Puanlar: 34 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 11 Dakika Önce Saat 09:41
// Response kullanımım bu şekildeydi bir çok şey denedim fakat doğru döngüyü kuramadım
void GetWeatherData;
{
  if (edtCity.Text == '') exit;

  MyRest.BaseURL = 'API';
  MyRest.Method = rmGET;
  MyRest.Execute;
 
  if (MyRest.Response != '')
  {
     try
       MyJson = TclJsonQuery.Create(nil);
       // RESPONSE BURADA KULLANILIYOR
       MyJson.Parse(MyRest.Response);
       
       lblTemp.Text = MyJson.Select(MyJson.Root, 'main').GetString('temp') + '°C';
       lblDesc.Text = MyJson.Select(MyJson.Root, 'weather').Item(0).GetString('description');
       edtCity.Text = MyJson.GetString('name');
     except
       ShowMessage('Veri Hatası.');
     }
  }

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
ebrarflz Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09 Şubat 2026
Konum: konya
Durum: Aktif
Puanlar: 34 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ebrarflz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 9 Dakika Önce Saat 11:43
hallettim teşekkürler
void GetWeather;
{
  if (edtCity.Text == '') 
    ShowMessage('Lütfen bir şehir yazınız.');
  else
  {
    
    apiKey = 'api'; 
    
    strUrl = 'https://api.openweathermap.org/data/2.5/weather?q=' + edtCity.Text + '&appid=' + apiKey + '&units=metric&lang=tr';
    
    try
      strVeri = MyHttp.GetRequest(strUrl);
      if (Pos('"temp":', strVeri) > 0)
      {
          ind = Pos('"temp":', strVeri);
          strTemp = Copy(strVeri, ind + 7, 20); 
          ind = Pos(',', strTemp); 
          if (ind > 0) strTemp = Copy(strTemp, 1, ind - 1);
          lblTemp.Text = strTemp + '°C';
          
          ind = Pos('"description":"', strVeri);
          if (ind > 0)
          {
            strDesc = Copy(strVeri, ind + 15, 50);
            ind = Pos('"', strDesc); 
            if (ind > 0) strDesc = Copy(strDesc, 1, ind - 1);
            lblDesc.Text = strDesc;
          }
             
          ind = Pos('"icon":"', strVeri);
          if (ind > 0)
          {
            strIcon = Copy(strVeri, ind + 8, 3); 
       
            MyForm.SetImage(imgIcon, 'https://openweathermap.org/img/wn/' + strIcon + '@4x.png');
          }
          
        
          ind = Pos('"name":"', strVeri);
          if (ind > 0)
          {
            strName = Copy(strVeri, ind + 8, 50);
            ind = Pos('"', strName);
            if (ind > 0) strName = Copy(strName, 1, ind - 1);
            edtCity.Text = strName;
          }
      }
      else
      {
         ShowMessage('Hata! Şehir bulunamadı veya API Anahtarı hatalı.');
         lblDesc.Text = 'Hata';
      }
    except
      ShowMessage('Bağlantı hatası!');
    }
  }
}
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.