kbmmw 5.0 中的REST 服务

procedure TForm2.Button1Click(Sender: TObject);
begin
     kbmMWServer1.Active:=True;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    kbmMWServer1.AutoRegisterServices;
end;

type

  [kbmMW_Service('name:xalionservice, flags:[listed]')]
  [kbmMW_Rest('path:/xalionservice')]
  // Access to the service can be limited using the [kbmMW_Auth..] attribute.
  // [kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]

  TkbmMWCustomSmartService1 = class(TkbmMWCustomSmartService)
  private
     { Private declarations }
  protected
     { Protected declarations }
  public
     { Public declarations }
     // HelloWorld function callable from both a regular client,
     // due to the optional [kbmMW_Method] attribute,
     // and from a REST client due to the optional [kbmMW_Rest] attribute.
     // The access path to the function from a REST client (like a browser)+
     // is in this case relative to the services path.
     // In this example: http://.../xalionservice/helloworld
     // Access to the function can be limited using the [kbmMW_Auth..] attribute.
     // [kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]
     [kbmMW_Rest('method:get, path:helloworld')]
     [kbmMW_Method]
     function HelloWorld:string;
  end;

implementation

uses kbmMWExceptions;

{$R *.dfm}


// Service definitions.
//---------------------

function TkbmMWCustomSmartService1.HelloWorld:string;
begin
     Result:='Hello world';
end;

initialization
  TkbmMWRTTI.EnableRTTI(TkbmMWCustomSmartService1);
end.

  [kbmMW_Method('EchoString')]       // 回应输入的串
     [kbmMW_Rest('method:get, path: [ "echostring/{AString}","myechostring/{AString}" ]')]
     [kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]
     function EchoString([kbmMW_Rest('value: "{AString}"')] const AString:string):string;


  end;

implementation

uses kbmMWExceptions;

{$R *.dfm}


// Service definitions.
//---------------------

function TkbmMWCustomSmartService1.EchoString(const AString: string): string;
begin
     result:='你好！'+astring;
end;

     [kbmMW_Method]
     [kbmMW_Rest('method:get, path: "cal/addnumbers"')]
     function AddNumbers([kbmMW_Rest('value: "$arg1", required: true')] const AValue1:integer;
                         [kbmMW_Rest('value: "$arg2", required: true')] const AValue2:integer;
                         [kbmMW_Arg(mwatRemoteLocation)] const ARemoteLocation:string):integer;
  end;

implementation

uses kbmMWExceptions;

{$R *.dfm}


// Service definitions.
//---------------------

function TkbmMWCustomSmartService1.AddNumbers(const AValue1, AValue2: integer;
  const ARemoteLocation: string): integer;
begin
       Result:=AValue1+AValue2;
end;