使用MyBean快速搭建分模块的应用程序

oloveuxyz |浏览423次
收藏|2014/05/20 00:46

本篇转载于http://bbs.2ccc.com/topic.asp?topicid=455314

[概述]

     抱歉由于上次开源比较匆忙,没有来的及做一个DEMO,里面也有些垃圾的文件没有及时清理。DEMO其实昨天晚上已经调通。相关说明文档今天晚上才说明好,欢迎大家继续关注和交流,和大家一起分享我10多年的管理软件框架开发经验,后续会完善更多相应的有用的插件,供大家直接使用。

[DEMO图片预览]

按此在新窗口浏览图片 

[MDI-DEMO-BIN文件说明]

编译好的文件打包存放于根目录下面,文件名为:MDI-DEMO-BIN.zip,采用XE5编译,使用标准控件,其他版本编译myBeanConsole.exe和plugin-demo-form工程就好,记得这两个工程需要带包,beanMananger.dll可以通用。不需要编译。

myBeanConsole.exe 
   --主控台EXE,包含主窗体(带包编译)

myBeanConsole.config.ini 
   --配置文件,包含是否使用缓存目录,是否预加载DLL,等配置

demoBeans.plug-ins 
   -- bean的配置文件,可以多个,有主配置文件指定目录(可以通配符),参考主配置文件说明

beanManager.dll 
   -- 框架核心DLL文件,由plug-ins-core\beanMananger提供,标志的Windows DLL文件,不需要带包编译,所有Delphi版本可以使用。

rtl190.bpl 
vcl190.bpl 
   --XE5 运行包文件(由于使用XE5编译的)

plug-ins\plugin_form_demo.dll 
   -- DEMO DLL(带包编译),注册了aboutForm插件和demoPluginForm插件

[主配置文件说明]

 

主配置文件文件名: EXE文件名+config.ini,或者app.config.ini

[main] 
;加载时插件缓存(放入临时目录) 
;true时copy到临时缓存目录进行加载, false插件目录进行加载 
;默认为true值 
plug-ins-cache=1

;插件临时目录,支持相对路径(EXE目录的相对路径),绝对路径(c:\temp\ 
;默认为plug-ins-cache 
plug-ins-cache-path=temp-files

;加载DLL在启动程序的时候 
;默认为true 
loadon_Startup=0

;加载bean配置文件目录(相对路径(EXE目录的相对路径),绝对路径(c:\config\*.*) 
;没有配置时,直接加载DLL,从DLL中获取PluginID 
;<none>时不加载任何DLL插件 
beanCon_figFiles=*.plug-ins,plug-ins\*.plug-ins,beanConfig\*.plug-ins

 

;加载文件时记录日志; 
;默认为false, 为true时可以从日志文件(log\loadDLL_trace.txt)便于查看到哪个文件加载失败 
traceLoadLib=1

[bean配置文件说明]

配置文件可以单个也可以多个,存放路径由主配置文件指定

beanCon_figFiles=*.plug-ins,plug-ins\*.plug-ins,beanConfig\*.plug-ins

上面配置指定了根目录的*.plug-ins文件和plug-ins目录下的*.plug-ins文件…

这样便于多人协作编写模块,文件采用JSON格式。

格式与说明


   list: 
   [ 
      { 
         "id":"frame-core", 
         "pluginID":"frame-core",          //如果与id一致可以进行忽略(同一个插件可以配置成多种bean) 
         "lib":"plug-ins\\plugin-demo-form.dll",        //文件名<插件存放的DLL文件> 
         "singleton":true,          //是否单件模式(比如远程数据访问插件,可以单件模式) 
      } 
   ] 
}

[plugin-demo-form源码分析]

工程文件(提供了插件的注册,也可以写到窗体文件的initialize部分)

library plugin_form_demo;

uses
  SysUtils,
  Classes,
  uBeanFactory,
  ufrmAbout in '..\..\Forms\ufrmAbout.pas' {frmAbout},
  ufrmPluginForm in '..\..\Forms\ufrmPluginForm.pas' {frmPluginForm},
  uBasePluginForm in '..\..\Service\uBasePluginForm.pas';

{$R *.res}

begin
  beanFactory.RegisterBean('aboutForm', TfrmAbout);
  beanFactory.RegisterBean('demoPluginForm', TfrmPluginForm);
end.
 
ufrmPluginForm.pas,很简单新建一个vclForm,然后把TForm改成了TBasePluginForm(实现了IpluginForm的窗体类)
type
  TfrmPluginForm = class(TBasePluginForm)
    mmo1: TMemo;
    pnlOperator: TPanel;
    btnCreateAsModal: TButton;
    procedure btnCreateAsModalClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 

 

[MyBean交流]

考虑了下,还是新建个群,方便讨论

群:205486036

源代码地址

https://git.oschina.net/ymofen/delphi-framework-MyBean

满意回答

2014/05/25 20:30

看起来使用还是比较简单~

admin

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...