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

一、建好项目
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 := '

      '' +

      '' + '';

  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 := '

      '' +

      '' + '';

  end;

end;

end.

————————————————

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