DataSnap Rest Serverdaki bir fonksiyonu çalıştırma

[barissagir]

Merhabalar 

DataSnap Rest ServerMethod daki fonksiyonum parametrelerine nasıl ulaşabilirim?

Server TServerMethod daki kod şöyle

function TServerMethods1.topla(a, b: integer): integer;
begin
Result:=a+b;
end;

Client Form daki kod 

Button1 de sonuç 11 geliyor

procedure TForm2.Button1Click(Sender: TObject);
begin
RESTClient1.BaseURL:='http://localhost:8080/datasnap/rest/TServerMethods1/topla/5/6';

RESTResponse1.RootElement:='result[0]';

RESTRequest1.Execute;
FDMemTable1.Open;
end;

Button 2 de sonuç 0 geliyor

procedure TForm2.Button2Click(Sender: TObject);
begin
RESTClient1.BaseURL:='http://localhost:8080/datasnap/rest/TServerMethods1';

RESTResponse1.RootElement:='result[0]';

RESTRequest1.Resource:='topla';
RESTRequest1.Params.Clear;

RESTRequest1.AddParameter('a','5',TRESTRequestParameterKind.pkGETorPOST);
RESTRequest1.AddParameter('b','6',TRESTRequestParameterKind.pkGETorPOST);

RESTRequest1.Execute;
FDMemTable1.Open;
end;

[yanniosman]

http://docwiki.embarcadero.com/RADStudio...g_Protocol

Dökümantasyona göre parametreleri iletmenin 2 yolu var; ilki Button1 de uyguladığınız yöntem >"GET". İkincisi "POST" metodu ile gövde içerisinde iletmek. Ben parametreleri json olarak gövde içerisinde POST metodu ile gönderiyorum;

Server

Kod: (Select All)

function TServerMethods1.Updatetopla(JsonParam: TJSONObject): integer;

Client

Kod: (Select All)

jParam:=TJSONObject.Create;
jParam.AddPair('a','1');
jParam.AddPair('b','2');

RESTRequest.Params.AddItem('',jParam.ToString, TRESTRequestParameterKind.pkREQUESTBODY,[poDoNotEncode],ctAPPLICATION_JSON);
RESTRequest.Resource:='TServerMethods1/topla';
RESTRequest.Method:=rmPOST;

[barissagir]

Cevap icin çok teşekkürler.