Yes, Currency is supported. Please check the exact request content (body, headers) in the web browser console to first see how the request is being sent to XData server.
You are right ... in request header I have p1 = 5000 instead 0.5 but I don't know why.
The simple code is below. What did I wrong?
Case 1:
procedure TfrmQ.wbtnSaveClick(Sender: TObject);
var a:String;
begin
a:='0.5';
dmDataModule.xdtwbclntClientXData.RawInvoke('IDaWEBService.SetCJob',[StrToCurr(a)],@OnResult);
end;
The p1 in request header is 5000 - WRONG
Case 2:
procedure TfrmQ.wbtnSaveClick(Sender: TObject);
var a:Currency;
begin
a:=0.5;
dmDataModule.xdtwbclntClientXData.RawInvoke('IDaWEBService.SetCJob',[a],@OnResult);
end;
The p1 in request header is 5000 - WRONG
Case 3:
procedure TfrmQ.wbtnSaveClick(Sender: TObject);
begin
dmDataModule.xdtwbclntClientXData.RawInvoke('IDaWEBService.SetCJob',[0.5],@OnResult);
end;
The p1 in request header is now 0.5 - OK