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

原创 2002年08月16日 17:24:00

将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及其功能。

Delphi 7 精简版在 Windows 8.1 64 位中的安装

精简版选用的是7.3.3.4优化精简适中版,只有40多兆,运行安装后如下所示: 点击确定后会弹出兼容警告,忽略,点确定继续 : 出现安装向导 点击下一步出现许可协议,不用看,点“我同意“”:...
  • MaxWoods
  • MaxWoods
  • 2014年02月25日 13:25
  • 5905

深入了解Delphi 7中的四种消息框

Delphi中平常使用的消息框有四种形式,有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。下面来深入了解下这四种形式的实现和使用。 ...
  • my98800
  • my98800
  • 2016年04月07日 08:20
  • 502

Delphi 的并行计算

所谓并行计算,可以让一段代码让 CPU 的多个核同时开跑,非常明显地提高代码执行速度。 所谓“程序”,这个中文单词,严格意义上来说,就是按照特定顺序,一步一步地执行一些指令。这是标准的串行计算。串行...
  • pcplayer
  • pcplayer
  • 2017年04月12日 12:50
  • 369

delphi7如何读取excel文件

用ole读excel:会读了后,你自己处理一下要读的数据就行了  var  I, J: Integer;  MaxRow, MaxCol: Integer;  List, Strs: TStr...
  • u011354184
  • u011354184
  • 2013年09月03日 09:00
  • 2770

Delphi 中经常使用的正则表达式

在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.  官方网站: http://www.regular-e xpressions.info/delp...
  • wozengcong
  • wozengcong
  • 2014年01月19日 16:18
  • 2322

在delphi中嵌入脚本语言--(译)RemObjects Pascal Script使用说明(1)(译)

在delphi中嵌入脚本语言--(译)RemObjects Pascal Script使用说明(1)(译) 翻译这篇文章源于我的一个通用工资计算平台的想法,在工资的计算中,不可避免的需要使用到自...
  • hksoobe
  • hksoobe
  • 2015年03月29日 01:58
  • 1097

Delphi 的消息机制

=============================================================================== ⊙ 一个 GUI Applicatio...
  • zang141588761
  • zang141588761
  • 2016年09月05日 15:36
  • 1284

TeeChart7 在delphi7中的安装步骤

每次安装delphi都要进行一次次重复的动作,终于下定决心,要把安装步骤整理出来。 这次整理出来后,就是傻瓜也可以按照以下步骤进行无忧安装了,请看安装步骤: * 1...
  • chinajobs
  • chinajobs
  • 2016年08月17日 16:50
  • 895

Delphi字符串分隔(似split函数功能)

Delphi字符串实现了和split()函数的功能. unit Unit1; interface uses Windows, Messages, SysUtils, Variant...
  • my98800
  • my98800
  • 2016年12月08日 08:40
  • 1774

Delphi 编写COM+组件的知识和样例

一、COM组件的基础知识介绍: 1、什么是COM          COM是微软定的一种组件编写的规范,目的是为了实现组件的重用,不管你是用C、DELPHI、VB什么语言写的,只要遵守这种规范就是...
  • zang141588761
  • zang141588761
  • 2016年04月26日 09:19
  • 1235
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 7前瞻:将Delphi作为ASP.NET的脚本语言(上)
举报原因:
原因补充:

(最多只允许输入30个字)