获取TISAPIRequest对象的属性

最新推荐文章于 2024-11-03 15:40:40 发布

原创最新推荐文章于 2024-11-03 15:40:40 发布 · 332 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#authorization #integer #interface #header #windows #query

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的Web模块，该模块通过解析HTTP请求并将其内容反馈给客户端来展示请求对象的各种属性，包括请求方法、字段列表、头部信息等。

    unit URequest;
    interface
    uses
       Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBWeb, DBTables;
    type
    TWebModule1 = class（TWebModule）
    procedure WebModule1rootitemAction（Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean）;
    Private
       {私有成员说明} 
    public
       {公共成员说明}
    end;
    var
    WebModule1: TWebModule1;
    implementation
    {$R *.DFM}
    //如下是动作项Root的事件处理过程。
    procedure TWebModule1.WebModule1rootitemAction（Sender: TObject;
    Request: TWebRequest; Response: TWebResponse; var Handled: Boolean）;
    var
    i:integer;
    begin
    //将请求对象属性的内容作为响应消息，回送给客户。
    RESPONSE.CONTENT:='method:  '+request.method+ '<br>'#13+
      '// Field lists<br>'#13+
      'contentfields:<br>'#13;
       for i:=0 to request.contentfields.count-1 do
             Response.content:=Response.content+
             '<li>' +request.contentfields[i]+ '<br>'#13;
      Response.content:=Response.content+'Queryfields: <ul>'#13;
       for i:=0 to request.queryfields.count-1 do
             Response.content:=Response.content+
             '<li>' +request.queryfields[i]+ '<br>'#13;  
      Response.content:=Response.content+
      '// HTTP Header Fields'+'<br>'#13+
     'protocolversion: '+request.protocolversion + '<br>'#13+
      'url: '+request.URL + '<br>'#13+
      'query: '+request.query+ '<br>'#13+
      'pathinfo: '+ request.pathinfo + '<br>'#13+
      'pathtranslated: '+request.pathtranslated +'<br>'#13+
      'authorization: '+ request.authorization+ '<br>'#13+
      'cachecontrol: ' +request.cachecontrol + '<br>'#13+
      'cookie: ' + request.Cookie + '<br>'#13+
      'Date: ' + DateToStr（request.Date）+ '<br>'#13+
      'Accept: ' + request.Accept+ '<br>'#13+
      'From: ' + request.From+ '<br>'#13+
      'Host: ' + request.Host+ '<br>'#13+
      'Referer: ' + request.Referer+ '<br>'#13+
      'UserAgent: ' + request.UserAgent+ '<br>'#13+
      'ContentEncoding: ' + request.ContentEncoding+ '<br>'#13+
      'contentlength:  '+inttostr（Response.contentlength）+ '<br>'#13+
      'content: '+request.content + '<br>'#13+
      'connection: ' + request.connection+ '<br>'#13+
      'DerivedFrom: ' + request.DerivedFrom+ '<br>'#13+
      'Expires: ' + DateToStr（request.Expires）+ '<br>'#13+
      'Title: ' + request.Title+ '<br>'#13+
      'RemoteAddr: ' + request.RemoteAddr+ '<br>'#13+
      'RemoteHost: ' + request.RemoteHost+ '<br>'#13+
      'ScriptName: ' + request.ScriptName+ '<br>'#13+
      'ServerPort: '+ inttostr（request.ServerPort）+'<br>'#13;
    end;
    end.