c++ 接收delphi pansichar 数据_读Delphi面向对象编程思想二-模块化开发实现初探

最新推荐文章于 2021-02-23 11:38:03 发布

老衲好羞涩

最新推荐文章于 2021-02-23 11:38:03 发布

阅读量191

点赞数

文章标签： c++ 接收delphi pansichar 数据

本文链接：https://blog.csdn.net/weixin_36166988/article/details/112111938

版权

接上一篇：读Delphi面向对象编程思想一

界面和业务的分离是开发可维护、易扩展、长寿命应用系统的关键，也是实现多层分布式系统的必经之路。面向对象编程技术为开发界面和业务分离的系统提供了行之有效的途径

以上内容摘自原书

在逻辑上，代码的封装是通过类来实现的，类通过属性封装了对象的数据，类通过方法封装了对象的行为。在屋里上，代码可以封装在可执行文件中(.exe)、动态链接库中(.dll)、也可以封装在COM+组件中，而对代码或程序的封装，我们在上一篇文章中也提到过主要是在于实现易开发、可维护、能服用的软件模式

一个设计良好的应用程序在逻辑上应该至少划分为界面和业务两个层次。界面和业务的分离将十分有利于系统的维护和扩展，体现灵活、复用的风格。一个面向对象的程序比传统的面向函数和过程的程序更易于实现界面和业务的分离

通常的软件系统划分为3层，即：表现层(或者称为表示层)、业务层和数据层，如下图所示

表现层：主要用于和用户交互，它提供用户界面及操作导航服务，它的主要选项是win32客户机和基于浏览器的客户机
业务层：主要用于业务处理，提供商业逻辑等各种约束
数据层：主要用于数据的集成存储，这些数据既可以是文件，也可以是数据

一个HelloWorld案例

该案例就一个目的，实现DLL中导出一个对象，尝试实现功能模块分离，我自己有一个习惯就是，在学习任何新东西之初都会先跑一个HelloWorld的案例，在不掺杂其他复杂的业务功能之前能够跑通的话至少说明思路、环境没有问题，剩下的就是在这个基础上进行扩展了，根据上面分析的思路，我们来写一个

项目整体的目录结构

ProjectGroup    |--- MainProject.dproj        |---public            |---UnitPublic.pas        |---frmMain.pas    |--- ProjectDll.dproj

这个案例中没有所谓的持久层，仅仅是一个案例，没有牵扯到文件读写或者数据库数据处理

具体的代码实现

可执行文件所在的项目代码(MainProject)

public文件夹下的UnitPublic单元中的代码如下

//需要注意的是这个单元最好存放的全部都是接口，而不存放其他的内容，接口的主要目的可以当做exe和dll两个项目实现单元共享的桥梁type  IUtile = interface    ['{BF70EF99-0F0C-4726-B29B-56E665C8496A}']    function ShowMessage(): string;  end;implementationend.

exe项目文件的代码如下

//...  只存放实现部分的代码，interface部分的代码不变，全复制太多了implementationuses  UnitPublic;{$R *.dfm}//我们引入DLL中的一个导出函数，而该函数返回的数据类型是一个接口类型function GetPublicUtil(): IUtile; stdcall; external 'ProjectDll.dll';procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(GetPublicUtil().ShowMessage());end;end.

dll项目中的代码如下

library ProjectDll;//这里唯一的难题就是我们需要引用UnitPublic单元，而该单元是在另外一个项目的，解决办法指定对应的路径即可uses  UnitPublic in '../MainProject/public/UnitPublic.pas',  System.SysUtils,  System.Classes;{$R *.res}type   //实现对应的接口，重写对应的抽象方法  TPublicUtil = class(TInterfacedObject, IUtile)  public      //注意该方法是接口中定义的抽象方法，如果该方法一旦被调用成功，那么也就意味着我们整个流程跑通    function ShowMessage(): string;  end;{ TPublicUtil }function TPublicUtil.ShowMessage: string;begin  Result := 'HelloWorld';end;//这个函数才是整个的核心，其返回值返回的是接口实现类的对象，根据多态的特性，父类类型是可以接收子类对象的function GetPublicUtil(): IUtile; stdcall;begin  Result := TPublicUtil.Create;end;//导出函数列表exports  GetPublicUtil;