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.
RestRequest ile JSONObject gönderip JSONObject sonuç almak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak
Merhaba, Server tarafındaki kodunu paylaşman mümkün mü? En azından TJSONObject ile ilgili çözümlemeyi yapan kısmını.
Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak
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;
function TTest.Process(Data: TJSONObject): TJSONObject;
begin
ShowMessage("1");
end;
Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak
Delphi versiyonu nedir acaba?
Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak
ertank bu konuda tecrüben var mı?
Re: RestRequest ile JSONObject gönderip JSONObject sonuç almak
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.
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