一窥kbmmw中的 smart service

Posted 2020-08-29 Delphi 窑洞

在kbmmw 的新版中（还没有发布），将会有一个叫做smart service 的服务。这种服务的属性基于服务器端，
并且可以自动注册服务名，下面就是一个简单例子代码。这个服务里面有有三个发布的函数：echostring,
EchoReversedString和AddNumbers。这些函数使用一些声明变量，包括“魔法”参数变量，以便访问不同的
客户端标识值。




Attribute based server side code with auto registration. This example
shows a smart service with 3 published functions named EchoString,
EchoReversedString and AddNumbers. The functions takes a number of
arguments, including magic arguments to provide access to various client
identity values.

 [kbmMW_Service(‘SMARTDEMO‘)]
  TkbmMWCustomService2 = class(TkbmMWCustomSmartService)
  private
  protected
  public
     [kbmMW_Method]
     function EchoString(const AString:string):string;

     [kbmMW_Method(‘EchoReversedString‘)]
     function ReverseString(const AString:string;
                         [kbmMW_Arg(mwatClientIdentity)]
                         const AClientIdentity:TkbmMWClientIdentity
                           ):string;

     [kbmMW_Method]
     function AddNumbers(const AValue1,AValue2:integer;
                         [kbmMW_Arg(mwatRemoteLocation)]
                         const ARemoteLocation:string
                        ):integer;
  end;

...
function TkbmMWCustomService2.EchoString(const AString:string):string;
begin
     Result:=AString;
end;

function TkbmMWCustomService2.ReverseString(const AString:string;
         const AClientIdentity:TkbmMWClientIdentity):string;
begin
     Result:=StrUtils.ReverseString(AString);
end;

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

     // ARemoveLocation contains the reported remote location
     // for the client.
end;

initialization
  // Make sure that RTTI is produced for the service class.
  TkbmMWRTTI.EnableRTTI(TkbmMWCustomService2);

 

以上代码毫无疑问可以执行，但是最理想的是如何让他非常方便的增加新的函数，并且不用繁琐的加入
注册代码，并且让客户端访问。
  可以通过调用kbmMWServer1.AutoRegisterServices来自动注册kbmMW_Service中定义的服务。
 
没有使用kbmMW_Arg绑定的声明自动的被看作声明值，并接受调用者传来的值。

例如

     [kbmMW_Method]
     function EchoString(const AString:string):string;
   与一下代码相同
     [kbmMW_Method]
     function EchoString([kbmMW_Arg] const AString:string):string;
与一下代码也相同
     [kbmMW_Method]
     function EchoString([kbmMW_Arg(mwatValue)]
                         const AString:string
                        ):string;

在客户端调用时的代码就如下：

    s:=client.Request(‘SMARTDEMO‘,‘‘,‘echostring‘,[‘abc‘]);
     s:=client.Request(‘SMARTDEMO‘,‘‘,‘EchoReversedString‘,[‘abc‘]);
     i:=client.Request(‘SMARTDEMO‘,‘‘,‘addnumbers‘,[10,20]);

还有更方便的客户端调用方法

procedure TForm1.Button1Click(Sender: TObject);
var
   c:TkbmMWSmartClient;
   s:string;
   i:integer;
begin
     // New smart client.
     c:=TkbmMWSmartClientFactory.GetClient(Transport,‘SMARTDEMO‘);
     s:=c.EchoString(‘abc‘);
     s:=c.EchoReversedString(‘abc‘);
     i:=c.AddNumbers(34,7);

     // Traditional client.
     s:=client.Request(‘SMARTDEMO‘,‘‘,‘echostring‘,[‘abc‘]);
     s:=client.Request(‘SMARTDEMO‘,‘‘,‘EchoReversedString‘,[‘abc‘]);
     i:=client.Request(‘SMARTDEMO‘,‘‘,‘addnumbers‘,[10,20]);
end;

由于目前新版还没有发布，目前只有这些内容。