代码改变世界
[登录 · 注册]
  • 使用 IntraWeb (39) THttpRequest、THttpReply

  • 在其它服务器脚本语言中熟悉的 Request、Response(THttpRequest、THttpReply) 在 IntraWeb 中算是幕后英雄了, 用户基本不需要直接操作它们了.

    IW 默认 Post 传值(WebApplication.Request.HttpMethod = hmPost, 只读), 但像表单字段之类, 在 IW 中直接根据控件名称读取就是了, 用不着麻烦 Request.
    但如果需要, 可以使用 WebApplication.Request.QueryFields.Values['控件名'] 读取.

    要读出以 Get 方式传输的 Url 变量, 发现在很多时候 WebApplication.Request.QueryFields.Values['变量名'] 并不好用; 经过尝试, 也不是没有办法:
    1、笨办法: 自己解析 WebApplication.Request.Referer;
    2、Request 以参数方式出现时往往可以, 譬如 TIWAppForm.OnURLRequest 事件:
    {Unit1 中的关键代码}
    procedure TIWForm1.IWButton1Click(Sender: TObject);
    begin
      WebApplication.GoToURL('Page2.html?AAA=111&BBB=222');
    end;
    
    {Unit2 中的关键代码}
    procedure TIWForm2.IWAppFormURLRequest(aSender: TIWAppForm; aRequest: THttpRequest); //需 uses IW.HTTP.Request
    begin
      IWMemo1.Lines.Add(WebApplication.Request.QueryFields.Values['bbb']);
    end;
    
    initialization
      TIWForm2.SetURL('', 'Page2.html');
    


    我想, 按照 IW 的理念, 网页间互相传递的参数应该是用 Session(下篇博客测试下).


    有时还要用到运行参数, 输入运行参数有两种方法:
    1.从代码(如: WebApplication.RunParams.CommaText := 'AAA=111,BBB=222');
    2.从 Server 控制台(如下图);


    读取运行参数, 如: MyStr := WebApplication.RunParams.Values['AAA'];

    THttpRequest 所在单元及继承链:
    IW.HTTP.Request.THttpRequest < TObject

    主要成员(根据测试结果判断吧):
    property UserAgent: string       //测试结果: Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko
    property Referer: string         //测试结果: http://127.0.0.1:8888/$/?aaa=111&bbb=222; 测试时添加了两个运行参数
    property ScriptName: string      //
    property Host: string            //测试结果: 127.0.0.1
    property URL: string             //
    property PathInfo: string        //测试结果: /$/callback
    property RemoteAddr: string      //测试结果: 127.0.0.1
    property ServerPort: integer     //测试结果: 8888
    property Query: string           //测试结果: callback=...
    property HttpMethod: THttpMethod //测试结果: hmPost(其它: hmNone, hmGet, hmPut, hmPost, hmHead)
    property IfModifiedSince: string //
    property ForwardedFor: string    //
    property HttpClientIP: string    //
    property AcceptLanguage: string  //测试结果: zh-CN
    property HttpsHeader: string     //
    property Authorization: string   //
    property AuthorizationHeader: string //
    property AuthUser: string        //
    property AuthPass: string        //
    property ServerVariables: TStrings //
    property HasContent: Boolean       //测试结果: True
    property Files: THttpFileList      //
    property QueryString: string       //测试结果: callback=...
    function GetCookieValue(const aName: string): string;
    function GetRawHeaderValue(const aName: string): string;
    function GetServerVariableValue(const aVariableName: string): string;
    function GetContentFieldValue( const aContentFieldName: string): string;
    procedure SetRewriteURL(const aUrl: string);
    
    property RawHeaders: TStrings //测试结果: 
                                  //Accept: */*
                                  //Content-Type: application/x-www-form-urlencoded
                                  //Referer: http://127.0.0.1:8888/$/
                                  //Accept-Language: zh-CN
                                  //Accept-Encoding: gzip, deflate
                                  //User-Agent: Mozilla/5.0 (Windows NT 6.1; Trident/7.0; rv:11.0) like Gecko
                                  //Host: 127.0.0.1:8888
                                  //Content-Length: 205
                                  //DNT: 1
                                  //Connection: Keep-Alive
                                  //Cache-Control: no-cache
                                  //Cookie: IW_MyApp=rtDemtDbmuncnJHgndGWqueWrKmWodK1otaXrue4mdu_2
    
    property ContentFields: TStrings //测试结果:
                                     //IWBUTTON2=
                                     //IW_Action=IWBUTTON2
                                     //IW_ActionParam=
                                     //IW_FormName=IWForm1
                                     //IW_FormClass=TIWForm1
                                     //IW_LocationHash=
                                     //IW_TrackID_=2
                                     //IW_width=1920
                                     //IW_height=985
                                     //IW_SessionID_=mKrbmdjendG0mZLgndGXoefbn0yWoefbmti2rJngode
                                     //callback=IWBUTTON2.DoOnAsyncClick
                                     //x=48
                                     //y=10
                                     //which=0
                                     //modifiers=
    
    property CookieFields: TStrings  //测试结果: IW_MyApp=ourdmeffmdHgmtK1ndiWodGZoungnKvfmtG5nKiXmue_2
    
    property QueryFields: TStrings //测试结果:
                                   //IWBUTTON2=
                                   //IW_Action=IWBUTTON2
                                   //IW_ActionParam=
                                   //IW_FormName=IWForm1
                                   //IW_FormClass=TIWForm1
                                   //IW_LocationHash=
                                   //IW_TrackID_=2
                                   //IW_width=1920
                                   //IW_height=985
                                   //IW_SessionID_=nZKXqtvcrJvbmtiZndjfrKe1nZm3numYmta3ruiXnZG
                                   //callback=IWBUTTON2.DoOnAsyncClick
                                   //x=52
                                   //y=18
                                   //which=0
                                   //modifiers=
    
    function GetParams: TStrings; //测试结果:
                                  //IWBUTTON2=
                                  //IW_Action=IWBUTTON2
                                  //IW_ActionParam=
                                  //IW_FormName=IWForm1
                                  //IW_FormClass=TIWForm1
                                  //IW_LocationHash=
                                  //IW_TrackID_=2
                                  //IW_width=1920
                                  //IW_height=985
                                  //IW_SessionID_=nJDbrdvcrdaZnZiZndm0mJG0mem1ndnerdC1nJaWree
                                  //callback=IWBUTTON2.DoOnAsyncClick
                                  //x=56
                                  //y=15
                                  //which=0
                                  //modifiers=
                                  //IWBUTTON2=
                                  //IW_Action=IWBUTTON2
                                  //IW_ActionParam=
                                  //IW_FormName=IWForm1
                                  //IW_FormClass=TIWForm1
                                  //IW_LocationHash=
                                  //IW_TrackID_=2
                                  //IW_width=1920
                                  //IW_height=985
                                  //IW_SessionID_=nJDbrdvcrdaZnZiZndm0mJG0mem1ndnerdC1nJaWree
                                  //callback=IWBUTTON2.DoOnAsyncClick
                                  //x=56
                                  //y=15
                                  //which=0
                                  //modifiers=
    



    THttpReply 所在单元及继承链:
    IW.HTTP.Reply.THttpReply < TObject

    主要成员:
    property AllowCaching: Boolean //
    property AuthRealm: string     //
    property CacheTTL: Integer     //
    property Code: Word	       //
    property CodeText: string      //
    property ContentType: string   //
    property Cookies: TCookieList //
    property LastModified: TDateTime      //
    property Headers: TStrings	      //
    property Expires: TDateTime	      //
    property DataType: THttpReplyType     //
    property ServerPort: Integer	      //
    property SendingFile: Boolean	      //
    property CacheControlEnabled: Boolean //If FALSE, completely disable cache control header fields ("Expires", "Last-Modified", "Pragma: no-cache" and "Cache-Control: no-cache"). Default = TRUE
    
    constructor Create(aBuffer: PByte; const aSize: Integer)
    procedure Commit
    procedure WriteString(const aValue: string)
    procedure SendRenderStream(aStream: TIWRenderStream)
    procedure SendStream(aStream: TStream; const aDisableCacheControl: Boolean)
    procedure SendHsmStream(aStream: THsmStream)
    procedure SendFile(const aPathname: string; aDelete: Boolean; const aDisableCacheControl: Boolean)
    procedure SendCacheFile(const aPathname: string)
    procedure SendRedirect(const aURL: string)
    procedure ResetReplyType
    


    学其他服务器脚本, 都快习惯了先用 Response 输出点什么, 下面测试了在 IW 中通过 Response 做简单的输出:
    {新建 MyIndex 单元, 从 TContentBase 继承实现一个 TMyIndex 类}
    unit MyIndex;
    
    interface
    
    uses Classes, IW.Content.Base, HTTPApp, IWApplication, IW.HTTP.Request, IW.HTTP.Reply, IWMimeTypes;
    
    type
      TMyIndex = class(TContentBase)
      protected
        function Execute(aRequest: THttpRequest; aReply: THttpReply; const aPathname: string; aSession: TIWApplication; aParams: TStrings): Boolean; override;
      public
        constructor Create; override;
      end;
    
    implementation
    
    { TMyIndex }
    
    constructor TMyIndex.Create;
    begin
      inherited;
      mFileMustExist := False;
    end;
    
    function TMyIndex.Execute(aRequest: THttpRequest; aReply: THttpReply; const aPathname: string; aSession: TIWApplication; aParams: TStrings): Boolean;
    begin
      aReply.ContentType := MIME_HTML;
      aReply.WriteString('<a href="http://www.cnblogs.com/del//del.cnblogs.com">万一的 Delphi 博客</a>');
      Result := True;
    end;
    
    end. //MyIndex.pas End
    
    
    {在 IWServerControllerBase.OnConfig 中指定为首页, 并命名为 Index.htm}
    uses
      IWInit, IWGlobal, IW.Content.Handlers, MyIndex;
    
    procedure TIWServerController.IWServerControllerBaseConfig(Sender: TObject);
    begin
      THandlers.AddStartHandler('', 'Index.htm', TMyIndex.Create);
    end;
    


  • 上一篇:使用 IntraWeb (40) 自定义 Session 数据
    下一篇:使用 IntraWeb (38) TIWAppForm、TIWForm、TIWBaseHTMLForm、TIWBaseForm
  • 【推广】 阿里云小站-上云优惠聚集地(新老客户同享)更有每天限时秒杀!
    【推广】 云服务器低至0.95折 1核2G ECS云服务器8.1元/月
    【推广】 阿里云老用户升级四重礼遇享6.5折限时折扣!
  • 原文:https://www.cnblogs.com/del/p/3812135.html
走看看 - 开发者的网上家园