将Delphi作为ASP.NET的脚本语言(2)
点击次数：22 次 发布日期：2008-11-26 14:44:39 作者：源代码网
|
源代码网推荐 // <autogenerated> 源代码网推荐 // 本代码由一个工具生成 源代码网推荐 // 运行版本：1.0.3705.209 源代码网推荐 // 源代码网推荐 // 修改本文件将导致异常行为并丢失生成的代码。 源代码网推荐 // </autogenerated> 源代码网推荐 //------------------------------------------------------------------------------ 源代码网推荐 源代码网推荐 unit ASP; 源代码网推荐 源代码网推荐 interface 源代码网推荐 源代码网推荐 uses System.Collections, System.Collections.Specialized, System.Configuration, 源代码网推荐 System.Text, System.Text.RegularExpressions, System.Web, System.Web.Caching, 源代码网推荐 System.Web.SessionState, System.Web.Security, System.Web.UI, System.Web.UI.WebControls, 源代码网推荐 System.Web.UI.HtmlControls, System.Globalization; 源代码网推荐 源代码网推荐 var 源代码网推荐 editdemo_aspx___autoHandlers: Integer; 源代码网推荐 editdemo_aspx___intialized: Boolean = False; 源代码网推荐 editdemo_aspx___fileDependencies: System.Collections.ArrayList; 源代码网推荐 type 源代码网推荐 editdemo_aspx = class(System.Web.UI.Page, System.Web.SessionState.IRequiresSessionState) 源代码网推荐 protected 源代码网推荐 Edit1: System.Web.UI.WebControls.TextBox; 源代码网推荐 __control3: System.Web.UI.WebControls.Button; 源代码网推荐 __control2: System.Web.UI.HtmlControls.HtmlForm; 源代码网推荐 Message: System.Web.UI.WebControls.Label; 源代码网推荐 procedure ButtonClick(Sender: System.Object; E: EventArgs); 源代码网推荐 public 源代码网推荐 constructor Create; 源代码网推荐 function get_AutoHandlers: Integer; override; 源代码网推荐 function get_ApplicationInstance: System.Web.HttpApplication; virtual; 源代码网推荐 function get_TemplateSourceDirectory: System.String; override; 源代码网推荐 procedure set_AutoHandlers(Value: Integer); override; 源代码网推荐 protected 源代码网推荐 property AutoHandlers: Integer read get_AutoHandlers write set_AutoHandlers; 源代码网推荐 property ApplicationInstance: System.Web.HttpApplication read get_ApplicationInstance; 源代码网推荐 public 源代码网推荐 property TemplateSourceDirectory: System.String read get_TemplateSourceDirectory; 源代码网推荐 private 源代码网推荐 function __BuildControlEdit1: System.Web.UI.Control; 源代码网推荐 function __BuildControl__control3: System.Web.UI.Control; 源代码网推荐 function __BuildControl__control2: System.Web.UI.Control; 源代码网推荐 function __BuildControlMessage: System.Web.UI.Control; 源代码网推荐 procedure __BuildControlTree(__ctrl: System.Web.UI.Control); 源代码网推荐 protected 源代码网推荐 procedure FrameworkInitialize; override; 源代码网推荐 public 源代码网推荐 function GetTypeHashCode: Integer; override; 源代码网推荐 end; 源代码网推荐 源代码网推荐 implementation 源代码网推荐 源代码网推荐 源代码网推荐 procedure editdemo_aspx.ButtonClick(Sender: System.Object; E: EventArgs); 源代码网推荐 begin 源代码网推荐 Message.Text := Edit1.Text; 源代码网推荐 end; 源代码网推荐 constructor editdemo_aspx.Create; 源代码网推荐 var 源代码网推荐 dependencies: System.Collections.ArrayList; 源代码网推荐 begin 源代码网推荐 inherited Create; 源代码网推荐 源代码网推荐 if (ASP.editdemo_aspx___intialized = False) then 源代码网推荐 begin 源代码网推荐 dependencies := System.Collections.ArrayList.Create; 源代码网推荐 dependencies.Add("d:vsliveeditdemo.aspx"); 源代码网推荐 ASP.editdemo_aspx___fileDependencies := dependencies; 源代码网推荐 ASP.editdemo_aspx___intialized := True; 源代码网推荐 end; 源代码网推荐 Self.Server.ScriptTimeout := 30000000; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.get_AutoHandlers: Integer; 源代码网推荐 begin 源代码网推荐 Result := ASP.editdemo_aspx___autoHandlers; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.get_ApplicationInstance: System.Web.HttpApplication; 源代码网推荐 begin 源代码网推荐 Result := Self.Context.ApplicationInstance as System.Web.HttpApplication; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.get_TemplateSourceDirectory: System.String; 源代码网推荐 begin 源代码网推荐 Result := "/vslive"; 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure editdemo_aspx.set_AutoHandlers(Value: Integer); 源代码网推荐 begin 源代码网推荐 ASP.editdemo_aspx___autoHandlers := Value; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.__BuildControlEdit1: System.Web.UI.Control; 源代码网推荐 var 源代码网推荐 __ctrl: System.Web.UI.WebControls.TextBox; 源代码网推荐 begin 源代码网推荐 源代码网推荐 __ctrl := System.Web.UI.WebControls.TextBox.Create; 源代码网推荐 Self.Edit1 := __ctrl; 源代码网推荐 __ctrl.ID := "Edit1"; 源代码网推荐 __ctrl.Width := System.Web.UI.WebControls.Unit.Parse("300px", System.Globalization.CultureInfo.InvariantCulture); 源代码网推荐 Result := __ctrl; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.__BuildControl__control3: System.Web.UI.Control; 源代码网推荐 var 源代码网推荐 __ctrl: System.Web.UI.WebControls.Button; 源代码网推荐 begin 源代码网推荐 源代码网推荐 __ctrl := System.Web.UI.WebControls.Button.Create; 源代码网推荐 Self.__control3 := __ctrl; 源代码网推荐 __ctrl.Text := "Click Me!"; 源代码网推荐 __ctrl.add_Click(Self.ButtonClick); 源代码网推荐 Result := __ctrl; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.__BuildControl__control2: System.Web.UI.Control; 源代码网推荐 var 源代码网推荐 __parser: System.Web.UI.IParserAccessor; 源代码网推荐 __ctrl: System.Web.UI.HtmlControls.HtmlForm; 源代码网推荐 begin 源代码网推荐 源代码网推荐 __ctrl := System.Web.UI.HtmlControls.HtmlForm.Create; 源代码网推荐 Self.__control2 := __ctrl; 源代码网推荐 __parser := __ctrl as System.Web.UI.IParserAccessor; 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(""#13#10" ")); 源代码网推荐 Self.__BuildControlEdit1; 源代码网推荐 __parser.AddParsedSubObject(Self.Edit1); 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(""#13#10" ")); 源代码网推荐 Self.__BuildControl__control3; 源代码网推荐 __parser.AddParsedSubObject(Self.__control3); 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(""#13#10" ")); 源代码网推荐 Result := __ctrl; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.__BuildControlMessage: System.Web.UI.Control; 源代码网推荐 var 源代码网推荐 __ctrl: System.Web.UI.WebControls.Label; 源代码网推荐 begin 源代码网推荐 源代码网推荐 __ctrl := System.Web.UI.WebControls.Label.Create; 源代码网推荐 Self.Message := __ctrl; 源代码网推荐 __ctrl.ID := "Message"; 源代码网推荐 Result := __ctrl; 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure editdemo_aspx.__BuildControlTree(__ctrl: System.Web.UI.Control); 源代码网推荐 var 源代码网推荐 __parser: System.Web.UI.IParserAccessor; 源代码网推荐 begin 源代码网推荐 __parser := __ctrl as System.Web.UI.IParserAccessor; 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create("<html>"#13#10" ")); 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(""#13#10" <body>"#13#10" ")); 源代码网推荐 Self.__BuildControl__control2; 源代码网推荐 __parser.AddParsedSubObject(Self.__control2); 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create(""#13#10" <p><b>")); 源代码网推荐 Self.__BuildControlMessage; 源代码网推荐 __parser.AddParsedSubObject(Self.Message); 源代码网推荐 __parser.AddParsedSubObject(System.Web.UI.LiteralControl.Create("</b></p>"#13#10" </body>"#13#10"</html>"#13#10)); 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure editdemo_aspx.FrameworkInitialize; 源代码网推荐 begin 源代码网推荐 Self.__BuildControlTree(Self); 源代码网推荐 Self.FileDependencies := ASP.editdemo_aspx___fileDependencies; 源代码网推荐 Self.EnableViewStateMac := True; 源代码网推荐 end; 源代码网推荐 源代码网推荐 function editdemo_aspx.GetTypeHashCode: Integer; 源代码网推荐 begin 源代码网推荐 Result := -764444463; 源代码网推荐 end; 源代码网推荐 源代码网推荐 end. 源代码网推荐 源代码网推荐 注意：这里介绍的是Delphi的.NET编译器功能的预览。正式发布的Delphi 7生成的代码与上面将有显著不同。本文仅是示例说明如何在ASP.NET中使用Delphi及其功能。 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
