首页 > 代码库 > 一窥kbmmw中的 smart service
一窥kbmmw中的 smart service
在kbmmw 的新版中（还没有发布），将会有一个叫做smart service 的服务。这种服务的属性基于服务器端，
并且可以自动注册服务名，下面就是一个简单例子代码。这个服务里面有有三个发布的函数：echostring,
EchoReversedString和AddNumbers。这些函数使用一些声明变量，包括“魔法”参数变量，以便访问不同的
客户端标识值。
Attribute based server side code with auto registration. This exampleshows a smart service with 3 published functions named EchoString,EchoReversedString and AddNumbers. The functions takes a number ofarguments, including magic arguments to provide access to various clientidentity 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;
由于目前新版还没有发布，目前只有这些内容。
一窥kbmmw中的 smart service
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。