unit3.pas

Delphi网络应用开发的源代码

unit Unit3;

interface

uses
  SysUtils, Classes, HTTPApp, WebModu, HTTPProd, WebAdapt, WebComp,
  CompProd, PagItems, SiteProd, MidItems, WebForm;

type
  TCalc = class(TWebPageModule)
    AdapterPageProducer: TAdapterPageProducer;
    Adapter1: TAdapter;
    FirstValue: TAdapterField;
    SecondValue: TAdapterField;
    ResultValue: TAdapterField;
    AdapterCalcAction: TAdapterAction;
    CalcAdapterForm: TAdapterForm;
    CalcAdapterFieldGroup: TAdapterFieldGroup;
    FldFirstValue: TAdapterDisplayField;
    FldSecondValue: TAdapterDisplayField;
    FldResultValue: TAdapterDisplayField;
    AdapterCommandGroup1: TAdapterCommandGroup;
    CmdCalculate: TAdapterActionButton;
    procedure WebPageModuleActivate(Sender: TObject);
    procedure ResultValueGetValue(Sender: TObject; var Value: Variant);
    procedure AdapterCalcActionExecute(Sender: TObject; Params: TStrings);
  private
    { Private declarations }
    StrResult:String;
  public
    { Public declarations }
  end;

  function Calc: TCalc;

implementation

{$R *.dfm}  {*.html}

uses WebReq, WebCntxt, WebFact, Variants;

function Calc: TCalc;
begin
  Result := TCalc(WebContext.FindModuleClass(TCalc));
end;

procedure TCalc.WebPageModuleActivate(Sender: TObject);
begin
StrResult:='';    //对StrResult赋空值
end;

procedure TCalc.ResultValueGetValue(Sender: TObject; var Value: Variant);
begin
Value:=StrResult;
end;

procedure TCalc.AdapterCalcActionExecute(Sender: TObject;
  Params: TStrings);
  var
  Value1,Value2:Integer;

begin
   Value1:=FirstValue.ActionValue.Values[0];
  Value2:=SecondValue.ActionValue.Values[0];
  StrResult:=IntToStr(Value1+Value2);

end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TCalc, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html', '', '加法计算器'), crOnDemand, caCache)

);

end.