var

  Form1 : TclForm;

  searchEdt : TClProSearchEdit;

  titleLbl : TclProLabel;

  tempLbl : TClProLabel;

  descLbl : TClProLabel;

  city : String;

// ==========================================

// HAVA DURUMU API ISTEGI (GÜNCELLENDI)

// ==========================================

void getWeatherRequest;

var

  MyHttp : TclHttp;

  str : String;

  JSONNesnesi : TCLJSONObject;

  WeatherArr : TCLJSONArray;

  WeatherObj : TCLJSONObject;

  ApiDurumKodu, WeatherMetni : String;

{

  MyHttp = TclHttp.Create(nil);

  Try

    str = MyHttp.GetRequest(' https://api.openweathermap.org/data/2.5/weather?q=" rel="nofollow - https://api.openweathermap.org/data/2.5/weather?q= ' + city + '&appid=df699d8c75653e80730faa440e938a26&units=metric&lang=tr');

    

    if (str <> '')

    {

      JSONNesnesi = TCLJSON.ParseToJSONObject(str);

      Try

        ApiDurumKodu = JSONNesnesi.GetValue('cod').AsString;

        

        if (ApiDurumKodu == '200')

        {

          tempLbl.Text = JSONNesnesi.GetValueByPath('main.temp').AsString + ' °C';

          

          WeatherMetni = Clomosy.CLParseJSON(str, 'weather');

          

          WeatherArr = TCLJSON.ParseToJSONArray(WeatherMetni);

          

          if (WeatherArr.Count > 0)

          {

            WeatherObj = TCLJSONObject(WeatherArr.GetItem(0));

            descLbl.Text = WeatherObj.GetValue('description').AsString;

            descLbl.Text = UpperCase(descLbl.Text); 

          }

        }

        else

        {

          tempLbl.Text = 'Sehir Bulunamadi!';

          descLbl.Text = 'Lütfen kontrol edip tekrar deneyin.';

        }

      Finally

        JSONNesnesi.Free;

      }

    }

    else

    {

      tempLbl.Text = 'Baglanti Hatasi!';

      descLbl.Text = 'Lütfen internetinizi kontrol edin.';

    }

  Finally

    MyHttp.Free;

  }

}

void BtnOnClick;

{

  city = searchEdt.Text;

  

  if (city <> '')

  {

    tempLbl.Text = 'Yükleniyor...';

    descLbl.Text = '';

    getWeatherRequest; // Istegi baslat

  }

}

{

  Form1 = TclForm.Create(Self);

  Form1.SetFormColor('#F8FAFC', '', clGNone);

  titleLbl = Form1.AddNewProLabel(Form1,'titleLbl','HAVA DURUMU');

  titleLbl.Align = alTop;

  titleLbl.Height = 80;

  titleLbl.clProSettings.FontHorzAlign = palCenter;

  titleLbl.clProSettings.FontVertAlign = palCenter;

  titleLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  titleLbl.clProSettings.FontSize = 24;

  titleLbl.SetclProSettings(titleLbl.clProSettings);

  searchEdt = Form1.AddNewProSearchEdit(Form1,'searchEdt','Sehir girip Enter''a basiniz...');

  searchEdt.Align = alTop;

  searchEdt.Height = 50;

  searchEdt.Margins.Left = 30;

  searchEdt.Margins.Right = 30;

  Form1.AddNewEvent(searchEdt,tbeOnEnter,'BtnOnClick'); 

  tempLbl = Form1.AddNewProLabel(Form1,'tempLbl','');

  tempLbl.Align = alTop;

  tempLbl.Height = 100;

  tempLbl.Margins.Top = 50;

  tempLbl.clProSettings.FontHorzAlign = palCenter;

  tempLbl.clProSettings.FontVertAlign = palCenter;

  tempLbl.clProSettings.FontSize = 45;

  tempLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  tempLbl.SetclProSettings(tempLbl.clProSettings);

  descLbl = Form1.AddNewProLabel(Form1,'descLbl','');

  descLbl.Align = alTop;

  descLbl.Height = 50;

  descLbl.clProSettings.FontHorzAlign = palCenter;

  descLbl.clProSettings.FontSize = 18;

  descLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748B'); 

  descLbl.SetclProSettings(descLbl.clProSettings);

  Form1.Run;

}  

kod çalışıyor ama apı çekemiyor