delphimvcframework/samples/wincellarclient_withrestadapter/RESTServicesU.pas

unit RESTServicesU;

interface

uses
  Generics.Collections, WinesBO, MVCFramework.RESTAdapter,
  MVCFramework.Serializer.Commons, MVCFramework.Commons;

type

  IWineResource = interface(IInvokable)
    ['{068C51B2-F413-48ED-97CE-463234DB3E41}']

    [RESTResource(HttpGet, '/api/wines')]
    [MVCListOf(TWine)]
    [Mapping(TWines)]
    procedure GetWineList(AAsynchReq: IAsynchRequest);

    [RESTResource(httpPOST, '/api/wines')]
    procedure SaveWine([Body] AWine: TWine; AAsynchReq: IAsynchRequest);

    [RESTResource(httpPUT, '/api/wines/{id}')]
    procedure UpdateWineById([Param('id')] AID: integer; [Body] AWine: TWine;
      AAsynchReq: IAsynchRequest);

  end;

implementation

end.