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.
获取TISAPIRequest对象的属性
最新推荐文章于 2022-11-30 11:07:09 发布