RESTRequest Nesnesinde Body içinde JSON Gönderme Hk.

[pro_imaj]

Merhaba,

RESTRequest nesnesinin  aşağıdaki koddaki Body alanı içinde JSON değerler var, yani JSON parametre içinde JSON değer göndermek istiyorum. "(üsttırnak) veya '(tektırnak) sorun oluyor haliyle pek çok yol denedim fakat doğru sonuca ulaşamadım.

Body string değeri içinde JSON değer nasıl gönderebilirim.

Kod: (Select All)

   RESTRequest2.Params.Clear;
   RESTRequest2.AddAuthParameter('Authorization', Authorization, pkHTTPHEADER,
     [poDoNotEncode]);
   RestRequest2.AddBody(Body, TRESTContentType.ctAPPLICATION_JSON);

[Halil Han BADEM]

(03-06-2023, Saat: 14:17)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba,

RESTRequest nesnesinin  aşağıdaki koddaki Body alanı içinde JSON değerler var, yani JSON parametre içinde JSON değer göndermek istiyorum. "(üsttırnak) veya '(tektırnak) sorun oluyor haliyle pek çok yol denedim fakat doğru sonuca ulaşamadım.

Body string değeri içinde JSON değer nasıl gönderebilirim.

Kod: (Select All)

   RESTRequest2.Params.Clear;
   RESTRequest2.AddAuthParameter('Authorization', Authorization, pkHTTPHEADER,
     [poDoNotEncode]);
   RestRequest2.AddBody(Body, TRESTContentType.ctAPPLICATION_JSON);

Merhabalar,

Buradan da cevaplamış olayım. Replace kullanmadan direkt olarak ToJSON komutunu kullanabilirsiniz. ToJSON, JS'de bulunan JSON.stringify'e benzer bir işlev görmekte ve tek tırnak, çift tırnak  vb. karakterleri uygun şekilde dönüştürmektedir. 

Örnek:

uses ..., System.JSON
...
var 
 jsonData: TJSONObject;
begin
try
 jsonData:= TJSONObject.Create;
 jsonData.AddPair('test', veri);
 jsonData.AddPair('test_2', veri2);
 jsonData.AddPair('test_3', veri3);
 ShowMessage(jsonData.ToJSON);
finally
 FreeAndNil(jsonData);
end;
end;

İyi çalışmalar dilerim.

[pro_imaj]

(03-06-2023, Saat: 16:10)Halil Han BADEM Adlı Kullanıcıdan Alıntı:

(03-06-2023, Saat: 14:17)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba,

RESTRequest nesnesinin  aşağıdaki koddaki Body alanı içinde JSON değerler var, yani JSON parametre içinde JSON değer göndermek istiyorum. "(üsttırnak) veya '(tektırnak) sorun oluyor haliyle pek çok yol denedim fakat doğru sonuca ulaşamadım.

Body string değeri içinde JSON değer nasıl gönderebilirim.

Kod: (Select All)

   RESTRequest2.Params.Clear;
   RESTRequest2.AddAuthParameter('Authorization', Authorization, pkHTTPHEADER,
     [poDoNotEncode]);
   RestRequest2.AddBody(Body, TRESTContentType.ctAPPLICATION_JSON);

Merhabalar,

Buradan da cevaplamış olayım. Replace kullanmadan direkt olarak ToJSON komutunu kullanabilirsiniz. ToJSON, JS'de bulunan JSON.stringify'e benzer bir işlev görmekte ve tek tırnak, çift tırnak  vb. karakterleri uygun şekilde dönüştürmektedir. 

Örnek:

uses ..., System.JSON
...
var 
 jsonData: TJSONObject;
begin
try
 jsonData:= TJSONObject.Create;
 jsonData.AddPair('test', veri);
 jsonData.AddPair('test_2', veri2);
 jsonData.AddPair('test_3', veri3);
 ShowMessage(jsonData.ToJSON);
finally
 FreeAndNil(jsonData);
end;
end;

İyi çalışmalar dilerim.

Teşekkürler.