DataSnap Rest 主窗体怎么引用其它单元的控件。

2019-03-14 02:59:39 332 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DataSnap三层架构实战：从核心原理到Delphi分布式应用开发三层架构是分布式系统设计的经典模式，通过将应用逻辑分解为表示层、业务逻辑层和数据访问层，实现了关注点分离与职责解耦。其核心原理在于通过中间件协调各层通信，将业务规则与数据访问集中管理，从而提升系统的可维护性、可扩展性与安全性。这一架构的技术价值在于能够有效支持多用户并发访问，简化客户端部署，并保障业务逻辑的一致性。在应用场景上，它尤其适合需要长期维护、业务复杂的企业级桌面应用，例如进销存、ERP等系统。本文以Delphi生态中的DataSnap框架为例，深入探讨如何利用其TCP、HTTP及REST通信模式构阅读详情

为什么DataSnap Rest 无法引用其它单元的控件。
DataSnap Sever却可以？

一：
向导生成DataSnap Rest后，产生了三个单元：
1、FormUnit1.pas（主窗体单元），
2、WebModuleUnit1.pas（该单元，自动产生了DSServer1，DSServerClass1，及其控件它）
3、ServerMethodsUnit1.pas（可以自己放数据库控件的单元）

现在想在主窗体单元引用 WebModuleUnit1中的DSServer1控件
已经Uses WebModuleUnit1.pas，但就是无法引用控件，说没定义。

二：但在DataSnap Sever却能引用?
向导生成DataSnap Sever后，也产生了三个单元：
1、Unit1.pas（主窗体单元），
2、ServerContainerUnit1.pas（该单元，自动产生了DSServer1，DSServerClass1，及其控件它）
3、ServerMethodsUnit1.pas（可以自己放数据库控件的单元）

我在主单元，Uses ServerContainerUnit1 单元后
就可以引用该单元的DSServer1。

三：
我发现它们2单元区别：
ServerContainerUnit1单元
var
ServerContainer1: TServerContainer;

WebModuleUnit1单元
var
WebModuleClass: TComponentClass = TWebModule1;

是因为多了TComponentClass才不能被引用吗?

...全文

需求跟踪详解需求跟踪是指在软件项目开发过程中，建立并维护需求与项目各阶段工作产物（如设计文档、代码模块、测试用例等）之间对应关系的过程。它不仅记录需求从提出到实现的完整路径，还能反映需求变更时对各阶段工作的影响范围，是连接用户期望与实际软件开发产出的桥梁。阅读详情

jwb_99

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

lao_yunger 2019-03-21

打赏
举报

procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
WM:=TWebModule1.CREATE(SELF);>>>>>>>>>>>>>不是重复了嘛，可以尝试在主窗口里创建
FServerFunctionInvokerAction := ActionByName('ServerFunctionInvokerAction');
end;

jwb_99 2019-03-15

打赏
举报

引用 3 楼 qq_457565758 的回复:

VAR
WM:TWebModule1;

BEGIN

WM:=TWebModule1.CREATE(SELF);
WM......
END;

用了这方法加在本单元，但运行时引用就出错，
你帮看下，谢谢

procedure TWebModule1.WebModuleCreate(Sender: TObject);

begin

  WM:=TWebModule1.CREATE(SELF);

  FServerFunctionInvokerAction := ActionByName('ServerFunctionInvokerAction');

end;

lao_yunger 2019-03-15

打赏
举报

VAR
WM:TWebModule1;

BEGIN

WM:=TWebModule1.CREATE(SELF);
WM......
END;

jwb_99 2019-03-14

打赏
举报

引用 1 楼 BlueStorm 的回复:



//Delphi主菜单->Project-ViewSouce:

Program Project1;  //DataSnap Rest

{$APPTYPE GUI}



{$R *.dres}



uses

  Vcl.Forms,

  Web.WebReq,

  IdHTTPWebBrokerBridge,

  FormUnit1 in 'FormUnit1.pas' {Form1},

  ServerMethodsUnit1 in 'ServerMethodsUnit1.pas',

  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule};



{$R *.res}



begin                              

  if WebRequestHandler <> nil then                       //DataSnap Rest

    WebRequestHandler.WebModuleClass := WebModuleClass;  //没有生成WebModule1，甚至没有定义这个变量

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.





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



//Delphi主菜单->Project-ViewSouce:

program Project2;   //DataSnap Sever



uses

  Vcl.Forms,

  Web.WebReq,

  IdHTTPWebBrokerBridge,

  Unit2 in 'Unit2.pas' {Form2},

  ServerMethodsUnit1 in 'ServerMethodsUnit1.pas',

  ServerContainerUnit1 in 'ServerContainerUnit1.pas' {ServerContainer1: TDataModule};



{$R *.res}



begin

  Application.Initialize;

  Application.MainFormOnTaskbar := True;   

  Application.CreateForm(TForm2, Form2);                        //DataSnap Sever

  Application.CreateForm(TServerContainer1, ServerContainer1);  //有生成ServerContainer1

  Application.Run;

end.

谢谢，高手，
那要怎么才能DataSnap Rest 也能调用



program Project36;

{$APPTYPE GUI}



{$R *.dres}



uses

  Vcl.Forms,

  Web.WebReq,

  IdHTTPWebBrokerBridge,

  FormUnit1 in 'FormUnit1.pas' {Form1},

  ServerMethodsUnit1 in 'ServerMethodsUnit1.pas' {ServerMethods1: TDataModule},

  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule};



{$R *.res}



begin



  {2、

  这2句又无法运行，E2010 Incompatible types: 'TComponentClass' and 'TWebModule1'

  所以我把它去除了，有什么影响吗

  或有办法让它能运行，又能引用吗}

  //  if WebRequestHandler <> nil then

  //    WebRequestHandler.WebModuleClass := WebModuleClass;

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);



  {1、这句是我新加的，改了后，还是不能调用。

  所以我把 WebModuleUnit1单元的

  WebModuleClass: TComponentClass = TWebModule1;

  改成

  WebModuleClass: TWebModule1;就可以引用。但上面那2句又不能运行了}

  Application.CreateForm(TWebModule1, WebModuleClass);



  Application.Run;

end.





//以下是WebModuleUnit1.pas============================



var

  //WebModuleClass: TComponentClass = TWebModule1;



  {上面那句是原来，下面是我改的。

  我把  TComponentClass = 删除，才能调用，

  但Project单元说 'TComponentClass' and 'TWebModule1'}



  WebModuleClass: TWebModule1;

BlueStorm 2019-03-14

打赏
举报


//Delphi主菜单->Project-ViewSouce:
Program Project1;  //DataSnap Rest
{$APPTYPE GUI}

{$R *.dres}

uses
  Vcl.Forms,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  FormUnit1 in 'FormUnit1.pas' {Form1},
  ServerMethodsUnit1 in 'ServerMethodsUnit1.pas',
  WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule};

{$R *.res}

begin                              
  if WebRequestHandler <> nil then                       //DataSnap Rest
    WebRequestHandler.WebModuleClass := WebModuleClass;  //没有生成WebModule1，甚至没有定义这个变量
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


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

//Delphi主菜单->Project-ViewSouce:
program Project2;   //DataSnap Sever

uses
  Vcl.Forms,
  Web.WebReq,
  IdHTTPWebBrokerBridge,
  Unit2 in 'Unit2.pas' {Form2},
  ServerMethodsUnit1 in 'ServerMethodsUnit1.pas',
  ServerContainerUnit1 in 'ServerContainerUnit1.pas' {ServerContainer1: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;   
  Application.CreateForm(TForm2, Form2);                        //DataSnap Sever
  Application.CreateForm(TServerContainer1, ServerContainer1);  //有生成ServerContainer1
  Application.Run;
end.

DataSnap Rest 主窗体怎么引用其它 单元的 控件。

相关推荐

DataSnap Rest 主窗体怎么引用其它单元的控件。