声明

type
  TMyRecord = record
    id:Integer;
    name:string;
  end;

  ITestService = interface(IInvokable)
    ['{CB7ABEE8-134D-4706-8C6D-FAACECA754D4}']
    function PostClient(const rec:TMyRecord):TServiceCustomAnswer;
  end;

function TTestService.PostClient(const rec:TMyRecord): TServiceCustomAnswer;
begin
  CheckMethod('POST',Result);

  Success('成功取得请求体:'+RecordSaveJson(rec,TypeInfo(TMyRecord)), Result);
end;

客户端调用方法

{
    "rec":
    {
        "id":"id",
        "name":"name"
    }

}

不能直接向其它服务端那样,而是需要指定一下参数名, 这里的 rec 就是参数名, 那么, 其实一次POST请求可以传递多个参数了