HTTP 服务控件TWebServer（使用Indy 的TIdHTTPServer 实现）

本文链接：https://blog.csdn.net/sensor_WU/article/details/122989890

在开发移动端App的时候，需要使用 WebBrowser 作为平台来展示H5界面，这个时候就需要在App内部实现一个 HttpServer 服务。对于 Delphi 来说，使用 Indy 的 TIdHTTPServer 实在是最好不过了。为了方便使用，我们将 TIdHTTPServer 根据我们的需要进行了封装，这样使用起来会比较方便。本文将详细介绍封装好的控件 TWebServer（有不同需求的可以根据源代码自行修改）。

控件源代码下载

（没有CSDN 分数的，联系QQ：910731685 发给你）

一、控件属性：

序号	属性	类型	说明
1	DefaultPort	Word	Http服务的端口号，默认：8080
2	RootDir	string	本地H5文件的根目录。windows下默认在执行文件所在目录中的WWW子目录，android 默认在 TPath.GetDocumentsPath 木下的 WWW 子目录
3	MaxConnections	integer	允许客户端的最大连接数。默认：0 表示不限制。
4	Active	Boolean	是否启动 Http 服务，默认： False

二、控件方法：

序号	方法	类型	说明
1	StartServer	function	启动Http服务函数：function StartServer(var errmsg : string) : Boolean。成功： True，启动失败则返回False，同时 errmsg 表示错误信息。
2	StopServer	procedure	停止Http服务

三、控件事件：

序号

事件

类型

说明

OnPost

事件

前端向服务器发送 Post 请求时触发这个事件，本控件只支持字符串参数（流参数未支持）。RequestStr: string; var ResponseStr : string。其中 RequestStr 表示请求参数，ResponseStr 表示返回给前端的字符串参数。

OnGetParams

事件

当前端通过 Get 请求服务，如果没有找到对应的文件，同时也存在请求连接参数或者 form-data 参数，就会触发这个事件。

参数：

URL：请求路径
RequestParamsStr：请求的字符串参数
ResponseStr：返回给前端的字符串

举例如下：
加入前端请求：http://127.0.0.01:8080/Data?Name=sensor&Add=Shenzhen

则事件中的参数如下：
URL：/Data
RequestParamsStr：{"Name":"sensor","Add":"Shenzhen"} //按照JSON的字符串格式返回

四、控件使用：

var
   WebServer : TWebServer;

   WebServer := TWebServer.Create(nil);
   WebServer.DefaultPort := 8080;  //默认就是8080，可以写
   WebServer.OnPost := myOnPost;
   WebServer.OnGetParams := myOnGetParams;
   if not WebServer.StartServer(errmsg) then
      showmessage(errmsg);    //服务器打开失败

五、注意事项：

1. 把 H5 的文件放置到 RootDir 属性所指的根目录。对于 windows 可以直接拷贝，对于移动端，可以通过 Delphi 的 Deployment 菜单增加，可以包含子目录。