delphi7中手工建立cbx的xo工程

来源:计算机等级考试    发布时间:2012-08-29    计算机等级考试视频    评论

  编辑特别推荐:

  全国计算机等级考试(等考)指定教材

  全国计算机等级考试学习视频

  全国计算机等级考试网上辅导招生

  全国计算机等级考试时间及科目预告

  考试大教育全国计算机等级考试在线测试平台

  全国计算机等级考试资料下载

  全国计算机等级考试论坛

  计算机等级考试四级应用题解析汇总

  2009年下半年全国计算机二级考试时间是2009年9月19日至23日。2009年下半年全国计算机二级考试报名时间会在考前两个月开始报名!更多优质资料尽在考试大论坛 考试大在线题库

  主要用于没有使用clxbase7集成开发环境的cbx应用开发者。
  1、 在普通的delphi7中建立xo首先是打开file ->new ,选择dll wizard,新建一个dll,修改,dpr的内容如下
  library adosvr; //这个名称就是xo的名称
  uses
  SysUtils,
  Classes;
  begin
  end.
  2、然后加入xo的祖先单元uEntityRoot in '../../../CBX/Apps/Units/uEntityRoot.pas' {EntityRoot: TDataModule},代码就成了
  library xodemo;
  uses
  SysUtils,
  Classes,
  uEntityRoot in '../../CBX/Apps/Units/uEntityRoot.pas' {EntityRoot: TDataModule};
  {$E xo}
  begin
  end.
  3、创建xo的核心模块demoxo,file->new ->other ,选xodemo页,选EntityRoot,继承这个单元,并命名为xoado,因为我要使用ado的数据连接组件,故这样命名。同时修改窗口名为demoxo ,这个名称是在ao中调用时ro组件中要设置的服务名。注意这个名称一定要记住。修改project options ,runtime packages 选择 build with runtime packages,add d:/cbx/sdk/lib/AppSvrRT.dcp ,设置search path D:/CBX/SDK/Lib ,设置 output direxctory D:/CBX/SDK/__Deploy 到这里xo的设置工作就完成了。
  4、修改 xoado单元的代码
  unit xoado;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEntityRoot, HTTPApp;
  type
  Tdemoxo = class(TEntityRoot)
  procedure DataModuleCreate(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  var
  demoxo: Tdemoxo;
  implementation
  {$R *.dfm}
  procedure Tdemoxo.DataModuleCreate(Sender: TObject);
  begin
  inherited;
  end;
  end.
  以上是生成的代码,在xo中需要进行改造,修改后的代码如下
  unit xoado;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEntityRoot, HTTPApp;
  type
  Tdemoxo = class(TEntityRoot)
  procedure DataModuleCreate(Sender: TObject);
  private
  protected
  class function GetLocalData: TEntityLocalData; override;
  public
  procedure InitEntity(SubKey: integer; Data: string); override;
  end;
  function GetModClass: TEntityClass;
  implementation
  exports
  GetModClass;
  var
  LocalData: TEntityLocalData;
  function GetModClass: TEntityClass;
  begin
  Result := Tdemoxo;
  end;
  {$R *.dfm}
  class function Tdemoxo.GetLocalData: TEntityLocalData;
  begin
  Result := LocalData;
  end;
  procedure Tdemoxo.InitEntity(SubKey: integer; Data: string);
  begin
  inherited;
  end;
  initialization
  Tdemoxo.CreateLocalData(LocalData);
  finalization
  FreeAndNil(LocalData);
  end.
  5、在xodemo的窗口增加数据库连接组件和 datasetprovider ,增加完后一个最简单的xo就算完成了。
  编译后使用console发布到cbx应用服务器。

  2009年9月全国计算机等级考试时间及科目预告

  2009年NCRE考试有新变化

  2009年全国计算机等级考试大纲

  全国计算机等级考试历年真题及答案

  2009年上半年全国计算机等级考试试题及答案

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;

② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。

最近更新

社区交流

考试问答