Delphi WebBroker【Web服务器应用程序】+简单接口

最新推荐文章于 2024-05-16 19:00:30 发布

小印丶

最新推荐文章于 2024-05-16 19:00:30 发布

阅读量2.2k

点赞数

分类专栏： Delphi 笔记文章标签： delphi WebBroker web服务器 http请求

本文链接：https://blog.csdn.net/qq_44111597/article/details/112298851

版权

Delphi 笔记专栏收录该内容

75 篇文章 19 订阅

订阅专栏

RAD Studio 10.3.3 测试√

一、建好项目
1.新建项目 – 其他 – 找到Web服务器应用程序
在这里插入图片描述
2.然后会弹出这些界面，基本都直接下一步就好了【这个Demo就是这样这样的】

下面可以测试一下自己的 8080 端口是否被占用了，占用了就换别的就好了，然后完成【不会影响后面的操作】

二、项目创建完成后
然后就会看到这样的已经成型的东西
在这里插入图片描述
这个时候其实我们已经实现了请求，直接运行程序

然后会发现访问的就是WebModuleUnit1这个单元下最后面返回的内容，接下来就是修改WebModuleUnit1这个单元里面的内容了，没有动FormUnit1单元下面内容
下面的代码是WebModuleUnit1修改后的内容

unit WebModuleUnit1;

interface

uses
  System.SysUtils, System.Classes, Web.HTTPApp;

type
  TWebModule1 = class(TWebModule)
    procedure WebModule1DefaultHandlerAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModuleClass: TComponentClass = TWebModule1;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}

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【这是默认的页面】</body>' + '</html>';
  end
  // 【http://localhost:8080/xaioyin】
  else if mPath = '/xiaoyin' then
  begin
    // 判断请求的参数是否是符合要求 【http://localhost:8080/xaioyin?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;

end.

修改后的运行结果：
在这里插入图片描述

我感觉常用的使用方法不是我这样的，有更好的方法的欢迎留言，我加以改正学习，来自小萌新的感谢

一点点笔记，以便以后翻阅。

小印丶

关注

0
点赞
踩
8

收藏

觉得还不错? 一键收藏
打赏
0
评论
Delphi WebBroker【Web服务器应用程序】+简单接口

RAD Studio 10.3.3 测试√一、建好项目1.新建项目 – 其他 – 找到Web服务器应用程序2.然后会弹出这些界面，基本都直接下一步就好了【这个Demo就是这样这样的】下面可以测试一下自己的 8080 端口是否被占用了，占用了就换别的就好了，然后完成【不会影响后面的操作】二、项目创建完成后然后就会看到这样的已经成型的东西这个时候其实我们已经实现了请求，直接运行程序然后会发现访问的就是WebModuleUnit1这个单元下最后面返回的内容，接下来就是修改WebMo
复制链接

扫一扫