前两天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 上的性能不输任何其他服务器。
当然了,信不信由你!