文档章节

使用 IntraWeb (39) - THttpRequest、THttpReply

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 984
阅读 32
收藏 0

在其它服务器脚本语言中熟悉的 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;


本文转载自:http://www.cnblogs.com/del/p/3812135.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
界面控件包TMS IntraWeb Component Pack Pro Script Edition发布v5.8.8.1

TMS IntraWeb Component Pack Pro Script Edition允许从Delphi IDE直接在IntraWeb表格上编辑设计期间的网页。IntraWeb的TMS控件允许以RAD方法用Delphi进行网页应用程序的开发。这使得网页开发...

Harriet666
2017/10/20
0
0
使用delphi 开发 web(一) webbroke 简介

从delphi 3 开始,就可以支持使用webbroke 技术开发基于web 服务器。当时主要是支持CGI和ISAPI. CGI 其实就是一个类似控制台的可执行程序,将其放入web 服务器的可执行目录,每次web 服务器调...

xalion
2012/01/04
0
0
解决Caused by: java.sql.SQLRecoverableException: IO Error: Connection reset相关问题

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/majian_1987/article/details/18598589 java.sql.SQLException: Io 异常: Connection reset 当数据库连接池中...

大饼卷馒头蘸米饭
2014/01/21
0
0
Intraweb 开发 的 网站 发布 部署

将Stand Alone App变为ISAPI Dll只需两步,一是将工程文件中的program改成library,二是将uses里的IWInitStandAlone改成IWInitISAPI,没有该文件就自己加上。 然后将dll文件考入你的默认web站...

vga
2014/03/01
0
0
【优达学城测评】MongoDB(2)--GeoJSON

1.2dsphere球面索引,使用WGS84 地心坐标系.支持两种类型的数据格式:(1)GeoJSON对象,(2)普通坐标对象(Legacy Coordinate Pairs)(在球面索引使用普通坐标对象时,系统会自动转化为Geo...

Betty__
2016/10/15
5
0

没有更多内容

加载失败,请刷新页面

加载更多

单点登录实现原理(SSO)

简介 单点登录是在多个应用系统中,用户只需要登录一次就可以访问所有相互信任的应用系统的保护资源,若用户在某个应用系统中进行注销登录,所有的应用系统都不能再直接访问保护资源,像一些...

echojson
11分钟前
0
0
介绍Python中6个序列的内置类型

1、Python中6个序列的内置类型分别是什么? Python包含6中内建的序列,即列表、元组、字符串、Unicode字符串、buffer对象和 xrange 对象。序列通用的操作包括:索引、长度、组合(序列相加)...

问题终结者
31分钟前
0
0
用python自制微信机器人,定时发送天气预报

0 引言 前段时间找到了一个免费的天气预报API,费了好段时间把这个API解析并组装成自己想用的格式了,就想着如何实现每天发送天气信息给自己。最近无意中发现了wxpy库,用它来做再合适不过了...

上海小胖
49分钟前
7
0
深入理解java虚拟机-垃圾收集器与内存分配策略

垃圾收集器与内存分配策略 引用计数法 就是给对象添加一个计数器,每当有一个地方引用它时,计数器值就加1;当引用失效时,计数器值就减1,计数器为0的对象就是不可能再被使用的。 缺点:无法...

须臾之余
今天
8
0
Python+Appium自动化测试环境搭建

1.Android SDK 下载SDK并配置系统环境变量ANDROID_HOME。 2.Appium 2.1 直接下载安装 官网下载安装appium-desktop-setup.exe。 2.2 通过npm下载安装 appium本质是一个nodejs库所以要先安装n...

维他ViTa
今天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部