前两天kbmmw 发布了5.0 版。里面一个非常令人兴奋的特性就是原生内部支持http.sys.

有关http.sys 的介绍及优势，我就在这里不多说了，大家可以参照一下。

关于http.sys 的最大优势就是web 服务，我今天就以此为例，在kbmmw中建一个使用httpsys的

web server。

首先建立一个空白工程。在上面放两个控件，kbmMWServer1，  kbmMWHTTPSysServerTransport1，如图：

 

下一步，通过kbmmw 提供的服务向导，建一个http 服务。

 

 

根据以前的介绍一路选下去

 

最后就会生成对应的单元文件。

 

主界面也会自动生成一个kbmMWFilePool1 控件，界面如下：

 

 

现在我们需要设置kbmmwhttpsysservertransport1 的特性

 

 

 

 

一定要记住设置这属性，这个对应http 服务。

 

做完这些，我们用代码做一些初始化工作。

 

注册http 服务

procedure TForm2.FormCreate(Sender: TObject);var   sd:TkbmMWHTTPServiceDefinition;begin     sd:=TkbmMWHTTPServiceDefinition(kbmMWServer1.RegisterService(TkbmMWCustomHTTPService1,false));     sd.RootPath[mwhfcHTML]:='webfiles/';     sd.RootPath[mwhfcImage]:='webfiles/';     sd.RootPath[mwhfcJavascript]:='webfiles/';     sd.RootPath[mwhfcStyleSheet]:='webfiles/';     sd.RootPath[mwhfcOther]:='webfiles/';end;

设置启动事件

procedure TForm2.Button1Click(Sender: TObject);begin  kbmmwserver1.Active:=True;end;

ok！

再当前目录下建一个文件夹为 webfiles

加入一个index.html 文件。

 

现在运行服务器。

在浏览器里面访问

 

 

现在这个服务器在Windows 上的性能不输任何其他服务器。

当然了，信不信由你！