分享
 
 
 

Delphi 7前瞻:将Delphi作为ASP.NET的脚本语言(上)

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

将Delphi视为脚本语言

支持ASP.NET的第一件事是让ASP.NET将Delphi视为脚本语言,让ASP.NET能够为各种ASP文件类型调用Delphi的.NET编译器。

ASP.NET要在IIS虚路径的根目录下寻找web.config文件。下面是ASP.NET中使用Delphi作脚本语言的web.config配制文件内容:

<configuration>

<system.web>

<compilation debug="true">

<assemblies>

<add assembly="DelphiProvider" />

</assemblies>

<compilers>

<compiler language="Delphi" extension=".pas"

type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />

</compilers>

</compilation>

</system.web>

</configuration>

关于web配制文件的详情请参MSDN:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconformatofconfigurationfiles.asp

在我的机器(Win2K Pro)上测试Delphi对ASP.NET的支持。要增加一个虚路径来安放Delphi脚本,我把这个路径名定为"vslive"。

在我的机器配制文件上作了这个小改动后就可以来看ASP.NET是如何将Delphi视为脚本语言的。

在ASP.NET中使用Delphi代码

首先编写一个简单应用来确认我们的Delphi支持配制是正确的。下面是editdemo.aspx文件的代码,有一个文本输入框,一个按钮。按钮事件触发显示输入框内容。

<html>

<script language="Delphi" runat="server">

procedure ButtonClick(Sender: System.Object; E: EventArgs);

begin

Message.Text := Edit1.Text;

end;

</script>

<body>

<form runat="server">

<asp:textbox id="Edit1" runat="server"/>

<asp:button text="Click Me!" OnClick="ButtonClick" runat="server"/>

</form>

<p><b><asp:label id="Message" runat="server"/></b></p>

</body>

</html>

可以看到,ASP按钮对象的OnClick事件触发Delphi的ButtonClick过程,而Delphi程序里却使用了ASP对象label Message和text box Edit1。虽然在Delphi过程中没有定义ASP的二个变量,Delphi代码却能找到它们。这是因为脚本中含有的Delphi服务模块能够产生相应的Delphi代码。

现在可以用本地浏览器来浏览这个网页了。因为我把脚本放在"vslive"虚路径,所以打开:

http://localhost/vslive/editdemo.aspx.

以下是编译之后形成的Delphi代码,代码产生WebForm:

//------------------------------------------------------------------------------

// <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:\vslive\editdemo.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及其功能。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有