一、建好项目
1.新建 File-New –Other – 找到Web服务器应用程序
2.然后会弹出这些界面，基本都直接下一步就好了【这个Demo就是这样这样的】
下面可以测试一下自己的 8080 端口是否被占用了，占用了就换别的就好了，然后完成【不会影响后面的操作】
二、项目创建完成后
然后就会看到这样的已经成型的东西
这个时候其实我们已经实现了请求，直接运行程序
然后会发现访问的就是WebModuleUnit1这个单元下最后面返回的内容，接下来就是修改WebModuleUnit1这个单元里面的内容了，没有动FormUnit1单元下面内容
下面的代码是WebModuleUnit1修改后的内容
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
mPath, mXY: string;
begin
// 设置返回的类型 【也可以写在这里，下面的就不用写】
// Response.ContentType := 'application/json; charset="UTF-8"';
// 获取请求路径
mPath := Request.PathInfo;
// 获取请求字段的值
mXY := Request.QueryFields.Values['XY'];
// 当访问的是首页的时候【http://localhost:8080/】这个端口号是跟前面窗体上面启动服务的端口号相同的
if mPath = '/' then
begin
Response.ContentType := 'text/html; charset="UTF-8"';
// 这个下面的是不是很熟悉，这个就是在创建后生成的返回
Response.Content := '<html>' +
'<head><title>Web Server Application</title></head>' +
'<body>Web Server Application【这是默认的页面】'
+'<a target="_blank" href="http://www.cnblogs.com/tulater">涂磊的小作</a>'
+ '</body></html>';
end
// 【http://localhost:8080/xaioyin】
else if mPath = '/xiaoyin' then
begin
// 判断请求的参数是否是符合要求 【http://localhost:8080/xiaoyin?XY=xiaoyin01】
if mXY = 'xiaoyin01' then
begin
Response.ContentType := 'application/json; charset="UTF-8"';
Response.Content := '{"status":200,"Hint":"可以调用就表示成功啦！"}';
end
else
begin
Response.ContentType := 'application/json; charset="UTF-8"';
Response.Content := '{"status":201,"Hint":"进来这个里面就表示参数不对给的返回"}';
end;
end
else
begin
Response.ContentType := 'text/html; charset="UTF-8"';
Response.Content := '<html>' +
'<head><title>路径不对跳转的页面</title></head>' +
'<body><font color="red">【路径不对跳转的页面】</font></body>' + '</html>';
end;
end;
修改后的运行结果：
标签：Web,begin,服务器应用程序,end,Delphi,charset,UTF,Response From： https://www.cnblogs.com/tulater/p/18612465