初识kbmmw 5 中httpsys的支持

前两天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 上的性能不输任何其他服务器。

当然了，信不信由你！