【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:DetailsU.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit DetailsU;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, HTTPProd, WebModu,
SvrInfoAdapter, WebComp, WebAdapt;
type
TDetails = class(TWebPageModule)
PageProducer: TPageProducer;
private
{ Private declarations }
public
{ Public declarations }
end;
function Details: TDetails;
implementation
{$R *.dfm} {*.HTML}
uses WebReq, WebCntxt, WebFact, Variants;
function Details: TDetails;
begin
Result := TDetails(WebContext.FindModuleClass(TDetails));
end;
initialization
if WebRequestHandler <> nil then
WebRequestHandler.AddWebModuleFactory(
TWebPageModuleFactory.Create(TDetails, TWebPageInfo.Create([wpPublished]), crOnDemand, caCache));
end.
上一篇:
frmForAutho1.frm
下一篇:
心力衰竭的中医证素及常见证型