Clomosy | Forum : CLRest Kullanımı https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 04:36:14 +0000 Wed, 12 Nov 2025 11:55:39 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1222 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[CLRest Kullanımı : Gösterememe nedenim json inputumun...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2688#2688 Yazar: M-Guney
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 11:55

Gösterememe nedenim json inputumun içinde resmi de veriyor olmammış resmi farklı bir endpoint üzerinden yollayınca çözüldü.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">]]> Wed, 12 Nov 2025 11:55:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2688#2688 <![CDATA[CLRest Kullanımı : ifthen den dolayı hata veriyor...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2687#2687 Yazar: Emr.Erkmn
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 11:27


ifthen den dolayı hata veriyor olabilir

jsonResponse = restObj.Response;
    responseLength = Length(jsonResponse);
    
    if (responseLength == 0)
    {
      ShowMessage(' Response boş!');
      ShowMessage('query is finished (boş)');
      Exit;
    }
    
    if (responseLength > 200)
    {
      displayResponse = Copy(jsonResponse, 1, 200) + '...';
    }
    else
    {
      displayResponse = jsonResponse;
    }

daha basit kullanım için 
 if (Trim(jsonResponse) == '')
    {
      ShowMessage('️ Response boş!');
      ShowMessage('query is finished (boş)');
      Exit;
    }
    
    ShowMessage(' Response alındı: ' + IntToStr(Length(jsonResponse)) + ' karakter'); 
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">]]> Wed, 12 Nov 2025 11:27:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2687#2687 <![CDATA[CLRest Kullanımı : If (responseLength &gt; 200){...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2686#2686 Yazar: M-Guney
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 11:20

If (responseLength > 200){
       jsonOutput = Copy(jsonResponse, 1, 200) + '...' + jsonResponse;
      
    }
    ShowMessage(' restObj Response: ' + jsonOutput);
Bu şekilde denedim ve aynı şekilde yine burayı yazdırmadı restObj Response yazısı hiç oluşturulmuyor boş bile olsa oluşturmuyor.
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">]]> Wed, 12 Nov 2025 11:20:02 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2686#2686 <![CDATA[CLRest Kullanımı : ShowMessage(&#039; restObj Response:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2685#2685 Yazar: M-Guney
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 11:13

    ShowMessage(' restObj Response: ' + 
                IfThen(responseLength > 200, 
                       Copy(jsonResponse, 1, 200) + '...', 
                       jsonResponse));

Bu kısımda Unicode'u stringe çeviremedim hatası veriyor.
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">]]> Wed, 12 Nov 2025 11:13:03 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2685#2685 <![CDATA[CLRest Kullanımı : response hazır değildi,gönderdiğim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2684#2684 Yazar: Emr.Erkmn
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 10:56

response  hazır değildi, 
gönderdiğim kodda debugla kontrol ettik, showMessage sıralamasını düzenledik 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">]]> Wed, 12 Nov 2025 10:56:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2684#2684 <![CDATA[CLRest Kullanımı : Ne yapmam gerkiyor hiçbir fikrim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2683#2683 Yazar: M-Guney
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 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">]]> Wed, 12 Nov 2025 09:56:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2683#2683 <![CDATA[CLRest Kullanımı : void GetOrderDetailsCompletedV(Sender)var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2682#2682 Yazar: Emr.Erkmn
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 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">]]> Wed, 12 Nov 2025 09:37:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2682#2682 <![CDATA[CLRest Kullanımı : void GetOrderDetailsCompletedV(Sender)var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2681#2681 Yazar: Emr.Erkmn
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 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">]]> Wed, 12 Nov 2025 09:35:17 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2681#2681 <![CDATA[CLRest Kullanımı : query is finished dönüyorsa muhtemelen...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2680#2680 Yazar: Emr.Erkmn
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 09:32

query is finished dönüyorsa muhtemelen response hazır değil ,
önce response'un hazır olup olmadığını kontrol edelim. 

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">]]> Wed, 12 Nov 2025 09:32:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2680#2680 <![CDATA[CLRest Kullanımı : void GetOrderDetailsCompletedV...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2678#2678 Yazar: M-Guney
Konu: 1222
Gönderim Zamanı: 12 Kasım 2025 Saat 09:27

void GetOrderDetailsCompletedV (Sender)
var
  jsonResponse: String;
  Arr : TCLJSONArray;
  restObj: TCLRest;
{
  restObj = TCLRest(Sender);
    
  if (restObj == nil)
  {
    ShowMessage('Response alınamadı: Sender nil!');
    Exit;
  }
  else
  ShowMessage('restObj Response: '+ restObj.Response);
  
  jsonResponse = TCLRest(Sender).Response;
  ShowMessage('Json Response: '+ jsonResponse);
  ShowMessage('query is finished');

bu kısımda öncekileri yazdırmadan query is finished döndürüyor.
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">]]> Wed, 12 Nov 2025 09:27:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1222&PID=2678#2678