kbmmw 5.0 中的REST 服务-白红宇

kbmmw 5.0 中的REST 服务

阅读量：5889 次

发布时间：2019-06-19

本文共 4470 字，大约阅读时间需要 14 分钟。

目前关于REST 服务的话题越来越热，kbmmw 在5.0 里面开始支持rest。今天我就试一下kbmmw 的

rest 服务。闲话少说，开始。

老规矩，放上两个kbmMWServer1和 kbmMWHTTPSysServerTransport1两个控件。

设置kbmMWHTTPSysServerTransport1的server 属性。urls 属性默认是http://+:80/, 我们在这里就不改了。

因为我们后面采用的是samrtservice. 因此现在在主窗体里面不用再操心后面有什么服务要注册了。只需要一句话就

ok了。

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

主窗体就ok 了。

接下来我们来建服务模块

选择这个smartservice

记住这里要填成你定义的这个服务名。然后一路点过去。

默认生成的代码如下：

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;implementationuses kbmMWExceptions;{
    $R *.dfm}// Service definitions.//---------------------function TkbmMWCustomSmartService1.HelloWorld:string;begin     Result:='Hello world';end;initialization  TkbmMWRTTI.EnableRTTI(TkbmMWCustomSmartService1);end.

这个代码比较简单，只是定义了很少的属性。

但是已经可以运行了。

直接在浏览器里面输入http://127.0.0.1/xalionservice/helloworld 就可以看到下图

好，最简单的rest 服务做好了，我们继续做更复杂的。

我们加一个输入字符串，然后回应

[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;implementationuses kbmMWExceptions;{
    $R *.dfm}// Service definitions.//---------------------function TkbmMWCustomSmartService1.EchoString(const AString: string): string;begin     result:='你好！'+astring;end;

在浏览器里面输入http://127.0.0.1/xalionservice/echostring/xalion

和我们想象的一样。

继续加入更复杂的

[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;implementationuses kbmMWExceptions;{
    $R *.dfm}// Service definitions.//---------------------function TkbmMWCustomSmartService1.AddNumbers(const AValue1, AValue2: integer;  const ARemoteLocation: string): integer;begin       Result:=AValue1+AValue2;end;

浏览器里面可以输入http://127.0.0.1/xalionservice/cal/addnumbers?arg1=10&arg2=50