RestRequest ile JSONObject gönderip JSONObject sonuç almak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
bibilen
Üye
Mesajlar: 8
Kayıt: 02 Ağu 2013 12:57

RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen bibilen »

Rest Server tarafında
function TTest.Process(Data: TJSONObject): TJSONObject;
şeklinde bir fonksiyonum var.

Bu fonksiyonu Rest Client tarafında RestRequest nesnesi ile çalıştırıp veri almak istiyorum.
Çeşitli Rest Client toollarla fonksiyonunu deneyerek Server tarafının düzgün çalıştığından emin oldum.

Serverdaki function TTest.Process(Data: TJSONObject): TJSONObject; şeklinde değil de function TTest.Process2(s: string): string
şeklindeki diğer örnek fonksiyonum da düzgün çalışıyor.

Ben Delphide Rest Client tarafta RestRequest nesnesini TJSONObject tipinde bir parametre ile hazırlama işini bir türlü çözemedim.

Client tarfındaki kod:
procedure TForm2.Button2Click(Sender: TObject);
var
Request : TJSONObject;
begin
Request := TJSONObject.Create;
Request.AddPair('ID', TJSONNumber.Create(0));
Request.AddPair('SERIAL', 'COR5222222633434P3');

RESTRequest1.Params.Clear;
RESTRequest1.AddParameter('Data', Request);
RESTRequest1.Execute;
.....

Bu şekilde çalıştırınca Server tarafında 'Invalid class typecast' hatası alıyorum.
Tabiki onlarca şey denedim ve kodlarımı defalarca değiştirdim ama ilk denediğim ve varmak istediğim şey yukarıdaki kodlardaki gibi yani Rest Clienttan Rest Servera RestRequest nesnesi üzerinden JSONObject gönderip sonuçta da RestResponse nesnesi ile JSONObject almak.

Bu konuda bilgisi olan arkadaşlardan yardım talep ediyorum.
Şimdiden teşekkürler.
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen ertank »

Merhaba, Server tarafındaki kodunu paylaşman mümkün mü? En azından TJSONObject ile ilgili çözümlemeyi yapan kısmını.
bibilen
Üye
Mesajlar: 8
Kayıt: 02 Ağu 2013 12:57

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen bibilen »

Server tarafında function'a gelmeden hata veriyor zaten. Denemek için aşağıdaki gibi yazıyorum ama showmessage çalışmıyor iş buraya kadar gelmiyor zaten.

function TTest.Process(Data: TJSONObject): TJSONObject;
begin
ShowMessage("1");
end;
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen ertank »

Delphi versiyonu nedir acaba?
bibilen
Üye
Mesajlar: 8
Kayıt: 02 Ağu 2013 12:57

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen bibilen »

Berlin 10.1
bibilen
Üye
Mesajlar: 8
Kayıt: 02 Ağu 2013 12:57

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen bibilen »

ertank bu konuda tecrüben var mı?
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak

Mesaj gönderen ertank »

Merhaba,

REST konusunda çok ciddi derecede olmasa bir miktar tecrübeli sayılırım.

Muhtemelen RESTConnection veya RESTRequest ayarlarında gözden kaçan bir ayar sebebi ile sorun yaşıyorsunuz. Ekteki örnekler yanlış anlamadı isem istediğinizi yapıyor. Kendi formunuzdaki bileşenler ile kıyaslayarak farkı bulabilirsiniz sanırım.
Dosya ekleri
json_rest_client.rar
client
(52.24 KiB) 131 kere indirildi
json_restful.rar
server
(91.52 KiB) 127 kere indirildi
Cevapla