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.
 

相关阅读 >>

Delphi for xx in xx do 语法的使用示例

Delphi pagecontrol不显示tab方式

Delphi将n个相同字符提取到左边，m个相同字符提取到右边

Delphi怎么样选择pagecontrol1的分页

Delphi 实现 托动pagecontrol上的标签页

Delphi获得系统当前时间日期和格式化时间

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

Delphi中利用钩子实现qq聊天窗口的修改

Delphi idwhois1 简单的用法

Delphi xe5 为android增加启动图片显示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Webbroker ISAPI 示例说明