CLRest Kullanımı


   void GetOrderDetailsCompletedV(Sender)
var
  jsonResponse: String;
  Arr : TCLJSONArray;
  restObj: TCLRest;
  debugInfo: String;
{
  Try
  
    debugInfo = ' DEBUG BAŞLADI' + #13#10;
    
    restObj = TCLRest(Sender);
    
    if (restObj == nil)
    {
      ShowMessage(' Sender nil!');
      Exit;
    }
    
    debugInfo = debugInfo + 'Sender OK' + #13#10;
    
    
    jsonResponse = restObj.Response;
    debugInfo = debugInfo + ' Response uzunluğu: ' + IntToStr(Length(jsonResponse)) + #13#10;
    
    if (Length(jsonResponse) == 0)
    {
      debugInfo = debugInfo + '️ Response BOŞ!' + #13#10;
      debugInfo = debugInfo + 'query is finished (boş)' + #13#10;
      ShowMessage(debugInfo);  
      Exit;
    }
    
    debugInfo = debugInfo + ' Response: ' + 
                Copy(jsonResponse, 1, 200) + 
                IfThen(Length(jsonResponse) > 200, '...', '') + #13#10;
    
    Arr = TCLJSONArray.Create;
    Try
    
      Arr = TCLJSONArray.CreateFromJSON(jsonResponse);
      
      if ((Arr == nil) || (Arr.Count == 0))
      {
        debugInfo = debugInfo + '️ JSON Array boş!' + #13#10;
        debugInfo = debugInfo + 'query is finished (boş array)' + #13#10;
        ShowMessage(debugInfo);
        Exit;
      }
      
      noteMemo.Text = Clomosy.CLParseJSON(jsonResponse, '0.note');
      AmountValueLbl.Text = Clomosy.CLParseJSON(jsonResponse, '0.total_price') + 'TL';
      DetailsPnlV(Arr.Count, jsonResponse);
      
      debugInfo = debugInfo + 'Veriler işlendi! Count: ' + IntToStr(Arr.Count) + #13#10;
      debugInfo = debugInfo + ' query is finished (başarılı)' + #13#10;
      
      ShowMessage(debugInfo);
    
    finally
    
      if (Arr <> nil)
      {
        Arr.Free;
        Arr = nil;
      }
    }
  
  except
  
    ShowMessage('Hata: ' + LastExceptionMessage);
  }
}
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">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Puanlar: 404	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ı: 59 Dakika Önce Saat 09:35
	void GetOrderDetailsCompletedV(Sender) var jsonResponse: String; Arr : TCLJSONArray; restObj: TCLRest; debugInfo: String; { Try debugInfo = ' DEBUG BAŞLADI' + #13#10; restObj = TCLRest(Sender); if (restObj == nil) { ShowMessage(' Sender nil!'); Exit; } debugInfo = debugInfo + 'Sender OK' + #13#10; jsonResponse = restObj.Response; debugInfo = debugInfo + ' Response uzunluğu: ' + IntToStr(Length(jsonResponse)) + #13#10; if (Length(jsonResponse) == 0) { debugInfo = debugInfo + '️ Response BOŞ!' + #13#10; debugInfo = debugInfo + 'query is finished (boş)' + #13#10; ShowMessage(debugInfo); Exit; } debugInfo = debugInfo + ' Response: ' + Copy(jsonResponse, 1, 200) + IfThen(Length(jsonResponse) > 200, '...', '') + #13#10; Arr = TCLJSONArray.Create; Try Arr = TCLJSONArray.CreateFromJSON(jsonResponse); if ((Arr == nil) \|\| (Arr.Count == 0)) { debugInfo = debugInfo + '️ JSON Array boş!' + #13#10; debugInfo = debugInfo + 'query is finished (boş array)' + #13#10; ShowMessage(debugInfo); Exit; } noteMemo.Text = Clomosy.CLParseJSON(jsonResponse, '0.note'); AmountValueLbl.Text = Clomosy.CLParseJSON(jsonResponse, '0.total_price') + 'TL'; DetailsPnlV(Arr.Count, jsonResponse); debugInfo = debugInfo + 'Veriler işlendi! Count: ' + IntToStr(Arr.Count) + #13#10; debugInfo = debugInfo + ' query is finished (başarılı)' + #13#10; ShowMessage(debugInfo); finally if (Arr <> nil) { Arr.Free; Arr = nil; } } except ShowMessage('Hata: ' + LastExceptionMessage); } } 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">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Puanlar: 404	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ı: 57 Dakika Önce Saat 09:37
	void GetOrderDetailsCompletedV(Sender) var jsonResponse: String; Arr : TCLJSONArray; restObj: TCLRest; responseLength: Integer; { Try restObj = TCLRest(Sender); if (restObj == nil) { ShowMessage(' HATA: Sender nil! Response alınamadı!'); Exit; } jsonResponse = restObj.Response; responseLength = Length(jsonResponse); if (responseLength == 0) { ShowMessage('️ UYARI: Response boş! (0 karakter)'); ShowMessage('query is finished (boş response)'); Exit; } ShowMessage(' restObj Response: ' + IfThen(responseLength > 200, Copy(jsonResponse, 1, 200) + '...', jsonResponse)); Arr = TCLJSONArray.Create; Try Arr = TCLJSONArray.CreateFromJSON(jsonResponse); if ((Arr == nil) \|\| (Arr.Count == 0)) { ShowMessage('JSON Array boş!'); ShowMessage('query is finished (boş array)'); Exit; } noteMemo.Text = Clomosy.CLParseJSON(jsonResponse, '0.note'); AmountValueLbl.Text = Clomosy.CLParseJSON(jsonResponse, '0.total_price') + 'TL'; DetailsPnlV(Arr.Count, jsonResponse); finally if (Arr <> nil) { Arr.Free; Arr = nil; } ShowMessage(' query is finished (başarılı)'); } except ShowMessage(' Hata: ' + LastExceptionMessage); } } 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">

M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Deneyimli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Değil Puanlar: 97	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 38 Dakika Önce Saat 09:56
	Ne yapmam gerkiyor hiçbir fikrim yok bu konudahttps://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">