使用新版kbmMW开发的 smart service,也可以轻松的发布为通过REST来调用的功能。
一个 kbmMW smart service象下面这样实现，就可以使用REST来访问：
type
// This service is known to smart clients as SMARTDEMO
// Methods registered for REST access will, if they
// provide a relative path, be sub pathed under /myserver
[kbmMW_Service('SMARTDEMO')]
[kbmMW_Rest('path:/myserver')]
TkbmMWCustomService2 = class(TkbmMWCustomSmartService)
public
// This method can be called both from REST and
// from smart clients.
// Its called from REST clients like this:
// http://../helloworld
[kbmMW_Method('HelloWorld')]
[kbmMW_Rest('method:get, path: "/helloworld"')]
function HelloWorld:string;
// This method can be called both from REST and
// from smart clients.
// Its called from REST clients like this:
// http://../myserver/myechostring/somestring
// or
// http://../myserver/echostring/somestring
// somestring (can be anything) will be echoed back.
// The argument AString will automatically receive
// the value provided as somestring.
[kbmMW_Method('EchoString')]
[kbmMW_Rest(
'method:get, '+
'path: [ "echostring/{AString}","myechostring/{AString}" ]')]
function EchoString(
[kbmMW_Rest('value: "{AString}"')]
const AString:string):string;
// This method is only available from REST calls, not
// from smart clients. (kbmMW_Method attribute is missing)
// It can be called from a browser like this:
// http://.../someabspath/addnumbers?arg1=10&arg2=20
// The functions arguments are automatically populated
// with the arguments.
[kbmMW_Rest('method:get, path: "/someabspath/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;
// This method gets and owns a TPerson instamce, which it must
// itself free. The method is not available for REST calls.
[kbmMW_Method]
function StorePerson(
[kbmMW_Arg(mwatOwnedValue)]const APerson:TPerson):integer;
// This method is only available from smart clients.
// It receives a TPerson instamce which is owned by the
// caller. When called from a smart client, the kbmMW framework
// is the owner and will automatically free it.
[kbmMW_Method]
function StorePerson2(const APerson:TPerson):integer;
// This method is only available from smart clients.
// It receives a IPerson2 interface.
[kbmMW_Method]
function StorePerson3(const APerson:IPerson2):integer;
// This method can be called both from REST and
// from smart clients.
// The method returns a TPerson instamce which is
// automatically freed by the kbmMW framework after marshalling.
// (Its default to free a returned object)
[kbmMW_Rest('method:get, path: "getperson/{id}", freeResult:true')]
[kbmMW_Method(true)]
function GetPerson([kbmMW_Rest('value:{id}')]id:string):TPerson;
end;
// Functions published by the service.
//------------------------------------
function TkbmMWCustomService2.HelloWorld:string;
begin
Result:='Hello world';
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;
// In ARemoveLocation the reported remote location
// for the client is found.
end;
function TkbmMWCustomService2.StorePerson(
const APerson:TPerson):integer;
begin
// The TPerson instance is owned by this function,
// and must be manually freed.
APerson.Free;
Result:=0;
end;
function TkbmMWCustomService2.StorePerson2(
const APerson:TPerson):integer;
begin
// The TPerson instance is automatically freed
// upon exit of this function.
Result:=0;
end;
function TkbmMWCustomService2.StorePerson3(
const APerson:IPerson2):integer;
begin
// The lifetime of IPerson2 depends on reference counting.
Result:=0;
end;
function TkbmMWCustomService2.GetPerson([id:string):TPerson;
begin
Result:=TPerson.Create;
Result.Name:='Sofie Mogensen';
Result.Age:=87;
end;
initialization
TkbmMWRTTI.EnableRTTI(TkbmMWCustomService2);
从浏览器中发启REST调用：
A) http://localhost/myserver/getperson/1
Results in this response:
{"person":{"Name":"Sofie Mogensen","Address":"","Age":87}}
B) http://localhost/someabspath/addnumbers?arg1=10&arg2=20
Results in this response
30
Its dead easy to create the server. Just have a central form/datamodule
with the kbmMWServer instance, a transport with the new REST
streamformat setup, and configured to listen on port 80, and add all the
smart service units you want (like the above).
Do:
kbmMWServer1.AutoRegisterServices;
kbmMWServer1.Active:=true;
and you are running your REST and smart client server!
As usual all this can be combined with traditional services and clients.
While REST calls results in objects automatically being streamed and
unstreamed as JSON, smart clients will automatically stream and unstream
object and interface instances in messagepack format, which is now also
supported.
来源：官方新闻组
http://blog.sina.com.cn/s/blog_44fa172f0102whuv.html