转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
Delphi 7前瞻：将Delphi作为ASP.NET的脚本语言(上)    热     ★★★★

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

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1696 更新时间：2009/4/23 10:48:21

将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.AddParsedSub

[1] [2]  下一页


[Web开发]一个关于ASP运行时间计算的代码  [Web开发]ASP:检测含有中文字符串的实际长度
[Web开发]asp 中英文字符长度检测判断函数  [Web开发]安全维护 IIS asp 站点的高级技巧
[Access]ASP&SQL让select查询结果随机排序的实现方法  [Web开发]ASP字符串截取函数
[Web开发][asp]关键词只替换一次的写法  [Web开发]Asp无组件生成缩略图方法详解
[Web开发]asp编程中优化数据库方法详解  [Web开发]三种方法教你asp如何去除html标记
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台