开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
inout_dm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

inout_dm.pas：源码内容
  2. unit inout_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,
  8.   WebAdapt, WebComp, CompProd, PagItems, SiteProd, MidItems, WebForm;
  10. type
  11.   Tinout = class(TWebPageModule)
  12.     AdapterPageProducer: TAdapterPageProducer;
  13.     Adapter1: TAdapter;
  14.     Text: TAdapterField;
  15.     AddPlus: TAdapterAction;
  16.     AdapterForm1: TAdapterForm;
  17.     AdapterFieldGroup1: TAdapterFieldGroup;
  18.     AdapterCommandGroup1: TAdapterCommandGroup;
  19.     CmdAddPlus: TAdapterActionButton;
  20.     FldText: TAdapterDisplayField;
  21.     Post: TAdapterAction;
  22.     CmdPost: TAdapterActionButton;
  23.     Auto: TAdapterBooleanField;
  24.     FldAuto: TAdapterDisplayField;
  25.     procedure AddPlusExecute(Sender: TObject; Params: TStrings);
  26.     procedure TextGetValue(Sender: TObject; var Value: Variant);
  27.     procedure PostExecute(Sender: TObject; Params: TStrings);
  28.     procedure Adapter1BeforeExecuteAction(Sender, Action: TObject;
  29.       Params: TStrings; var Handled: Boolean);
  30.     procedure AutoGetValue(Sender: TObject; var Value: Boolean);
  31.   private
  32.     fAuto: Boolean;
  33.     fText: String;
  34.   public
  35.     { Public declarations }
  36.   end;
  38.   function inout: Tinout;
  40. implementation
  42. {$R *.dfm}  {*.html}
  44. uses WebReq, WebCntxt, WebFact, Variants, AdaptReq;
  46. function inout: Tinout;
  47. begin
  48.   Result := Tinout(WebContext.FindModuleClass(Tinout));
  49. end;
  51. procedure Tinout.AddPlusExecute(Sender: TObject; Params: TStrings);
  52. begin
  53.   fText := fText + '+';
  54. end;
  56. procedure Tinout.TextGetValue(Sender: TObject; var Value: Variant);
  57. begin
  58.   Value := fText;
  59. end;
  61. procedure Tinout.PostExecute(Sender: TObject; Params: TStrings);
  62. begin
  63.   if fAuto then
  64.     AddPlusExecute (Self, nil);
  65. end;
  67. procedure Tinout.Adapter1BeforeExecuteAction(Sender, Action: TObject;
  68.   Params: TStrings; var Handled: Boolean);
  69. begin
  70.   if Assigned (Text.ActionValue) then
  71.     fText := Text.ActionValue.Values [0];
  72.   fAuto := Assigned (Auto.ActionValue);
  73. end;
  75. procedure Tinout.AutoGetValue(Sender: TObject; var Value: Boolean);
  76. begin
  77.   Value := fAuto;
  78. end;
  80. initialization
  81.   if WebRequestHandler <> nil then
  82.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tinout, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  84. end.