{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.Requestbegin 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 Geckoproperty Referer: string //测试结果: http://127.0.0.1:8888/$/?aaa=111&bbb=222; 测试时添加了两个运行参数property ScriptName: string //property Host: string //测试结果: 127.0.0.1property URL: string //property PathInfo: string //测试结果: /$/callbackproperty RemoteAddr: string //测试结果: 127.0.0.1property ServerPort: integer //测试结果: 8888property 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-CNproperty HttpsHeader: string //property Authorization: string //property AuthorizationHeader: string //property AuthUser: string //property AuthPass: string //property ServerVariables: TStrings //property HasContent: Boolean //测试结果: Trueproperty 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_2property 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_2property 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 = TRUEconstructor Create(aBuffer: PByte; const aSize: Integer)procedure Commitprocedure 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;interfaceuses 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('万一的 Delphi 博客'); 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;