zoukankan      html  css  js  c++  java
  • [Delphi] Webbroker ISAPI 示例说明

    新建Webbroker项目:

    image

    选择类型:

    image

    开始可以使用:Indy VCL Application 方便调试,完成后,再新建一个DLL 项目,引用业务单元。

     

    示例代码如下:

    unit uDataModuleMain;

    interface

    uses
      SysUtils, Classes, HTTPApp, HTTPProd;

    type
      TWebModule2 = class(TWebModule)
        ppTest: TPageProducer;
        procedure ppTestHTMLTag(Sender: TObject; Tag: TTag; const TagString: string;
          TagParams: TStrings; var ReplaceText: string);
        procedure WebModule2DefaultHandlerAction(Sender: TObject;
          Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      WebModuleClass: TComponentClass = TWebModule2;

    implementation


    {$R *.dfm}


    procedure TWebModule2.ppTestHTMLTag(Sender: TObject; Tag: TTag;
      const TagString: string; TagParams: TStrings; var ReplaceText: string);
    begin
        Response.ContentType := 'text/html;charset="utf-8"';
          try
          if SameText(TagString, 'doctitle') then  // TPageProducer组件的标记处理,指定 HTMLDoc 属性 ,标记格式 <#flag>
            ReplaceText := dm.GetTitle
          else if SameText(TagString, 'docbody') then
            ReplaceText := dm.GetBody
          else
            ReplaceText := '';
        except
          on E: Exception do
          begin
            ReplaceText := Format('ERROR! &lt;#%s&gt; raised %s: %s',
              [TagString, E.ClassName, E.Message])
          end
        end;
    end;

    procedure TWebModule2.WebModule2DefaultHandlerAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    begin
        Response.ContentType := 'text/html;charset="utf-8"';   //指定编码
        Response.Content := 'WEB服务运行正常. ' + DateTimeToStr(Now);

        // Request.QueryFields.Values['sid'];  //查询参数获取


    end;
    end.

  • 相关阅读:
    原创《小白的Java自学课》第一课:Java是什么?Java到底能干嘛?
    谷歌chrome浏览器
    QT学习之QPair类
    char 与 signed char 和 unsigned char三者之间的关系
    QT学习之QT判断界面当前点击的按钮和当前鼠标坐标
    QT学习之QScript
    QT Creater 配色方案及下载
    QT学习之QString的arg方法
    QT创建与调用Dll方法(包括类成员)--显式调用
    C++学习之显式类型转换与运行时类型识别RTTI
  • 原文地址:https://www.cnblogs.com/moon25/p/5500820.html
Copyright © 2011-2022 走看看