[转载红鱼儿]kbmmw 开发点滴:kbmMW默认服务

这两天，用xalion的入门文章学习kbmMW的使用，当用kbmMW向导生成一个Service后，需要注册到kbmMWServer中，具体的方法在生成的Service中已经有说明：

// INSTRUCTIONS FOR REGISTRATION/USAGE

// -----------------------------------

// Please update the uses clause of the datamodule/form the TkbmMWServer is
placed on by adding

// YourServiceUnitName to it. Eg.

//

// uses ...,kbmMWServer,YourServiceUnitName;

//

// Somewhere in your application, make sure to register the serviceclass to the
TkbmMWServer instance. Eg.

//

// var

// sd:TkbmMWCustomServiceDefinition;

// ..

// sd:=kbmMWServer1.RegisterService(yourserviceclassname,false);

//

// Set the last parameter to true if this is the default service.

//

参考上面的说明代码，就是利用kbmMWServer的RegisterService注册即可，其中有两个参数

第一个参数是Service的类名，这个参数很好理解，要注册的Service类是什么，拿来用即可，当然，别忘记use对应的Service单元。

第二个参数为Boolean变量，意思是说将这个Service注册为默认的服务。我想，进一步理解，就是客户端在向服务请求具体功能函数时，不用加Service名，如下面这行代码的调用：

edit2.Text:=kbmmwSimpleClient1.Request('TESTSERVICES','1.0','SUMNUM1',args);

可以写成省略Serviceq名的，以简化调用，但做了如下的动改后，无法调用，提示说找不到服务。

edit2.Text:=kbmmwSimpleClient1.Request('','','SUMNUM1',args);

明明已经把要调用的服务注册成默认服务了，看来，不能这样用，或者这样理解。于是，进一步查看kbmMWSimpleClient还有哪些调用服务的方法，一路追到TkbmMWCustomClient这个类，还真不少方法，但大部分调用服务的方法第一个参数都是AServiceName.

function SendPing:variant; overload;
virtual;

function SendPing(const AValue:variant):variant; overload; virtual;

procedure AddStateID(AServiceName,AServiceVersion:string; AStateID:integer);

function SendRequest(AServiceName,AServiceVersion:string; AFunc:string; const
Args:array of Variant):Variant; virtual;

function SendRequestEx(AServiceName,AServiceVersion:string; AStateID:integer;
AFunc:string; const Args:array of Variant):Variant; virtual;

function SendAsyncRequest(AServiceName,AServiceVersion:string; AFunc:string;
const Args:array of Variant):longint; virtual;

function SendAsyncRequestEx(AServiceName,AServiceVersion:string;
AStateID:integer; AFunc:string; const Args:array of Variant):longint; virtual;

procedure SendCall(AServiceName,AServiceVersion:string; AFunc:string; const
Args:array of Variant); virtual;

不明白了，上面这些TkbmMWCustomClient类的方法，只有SendPing没有AServiceName参数。（还不知SendPing是干什么的），如此的话，把一个服务注册成默认Service，有什么用呢？

百思不得其解，于是向Xalion请教。他帮我修改了我做的学习代码，学习后才明白。原来，kwmMW作者在kbmmw中实现了一些服务（一些，目前只知道xalion帮我写的），可以拿来直接注册到kbmMWServer中，以供客户端调用。如：TkbmMWInventoryService，这个是从TkbmMWSimpleService继承来的Service,象注册自己做的Service一样。

procedure TForm4.FormCreate(Sender:
TObject);

var

sd:TkbmMWCustomServiceDefinition;

begin

sd:=kbmMWServer1.RegisterService(TkbmMWInventoryService,True);

sd:=kbmMWServer1.RegisterService(TkbmMWSimpleService1,False);

sd:=kbmMWServer1.RegisterService(TkbmMWQueryService2,False);

end;

在客户端这样调用：

放一个对应的TkbmMWInventoryClient,并设置好Transport属性值，然后就可以象kbmMWSimpleClient一样向服务器发送请求了。

如：

kbmMWInventoryClient1.Refresh;

memo1.Lines.Add(kbmMWInventoryClient1.Inventory.Text);

调用后，在memo中会看到列出了Server注册的所有服务名。

这就是kbmMW默认服务的目的？现在想是这样。

另：可以将多个Service都注册为默认服务吗？经测试，在一个kbmMWServer中只能注册一个Service为默认服务。

上面提到的kbmMWInventoryService,具估还有哪功能，看来还得花时间学习他的代码了，再续。