初識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 上的性能不輸任何其他服務器。

當然了，信不信由你！