bpl插件系统开发(5)

关注

原创最新推荐文章于 2019-11-20 18:26:21 发布 1.9k 阅读 AI 写同款· GEO 优化 ›

彻底解决Delphi/C++Builder程序缺少VCL60.bpl运行时错误在Windows软件开发中，动态链接库（DLL）是模块化编程和代码复用的核心技术，它允许程序在运行时加载共享的函数库，从而减小可执行文件体积并便于更新。然而，这种动态依赖也带来了部署难题，即目标系统若缺少特定DLL，程序将无法启动。Delphi/C++Builder平台特有的Borland包库（BPL）正是这种机制的延伸，专用于承载其可视化组件库（VCL）。当开发者使用“带运行时包编译”选项时，程序便依赖于如VCL60.bpl等外部文件。其技术价值在于实现组件共享和模块化更新，但代价是产生了外部依赖，这在程阅读详情

在这样的构想下,我们来做一个demos,

我们来定义如下的被IMisDriver驱动的接口,加入现在能想到的简单的应用,我们要作的工作如下

定义被驱动的接口
撰写IMisDriver的一个实现,用它来驱动各个接口,IMisDriver通过调用TPluginLoader的获得接口实例.
撰写每个接口的实现,并生成多个bpl
用TPluginLoader来载入这些插件,
主程序,实例化一个TPluginLoader,然后取得IMisLoader的实例,运行它.

我们先来完成第一步

unit InterfaceDefine;

interface

uses DBClient, midasLib, Types, classes;

type

    ITracer = interface
        ['{623B3A22-15CE-4555-B470-C3F4EBEE7EB4}']
        procedure info( const msg: string );
        procedure error( const msg: string );
        procedure debug( const msg: string );
    end;

    ILogin = interface
        ['{082F9C02-B504-4417-ACEB-1C9E3410ADED}']
        procedure login( const user, pwd: string );
        function loginByCookie( const user, pwd: string ): string;
    end;

    IUserInfo = interface
        ['{4DE53541-6FC3-44C7-BA27-49B0827625F0}']
        function information: TObject;
    end;

    IAuthentic = interface
        ['{0E4BCF53-D685-4AC8-9C38-614117E59365}']
        procedure valid( const actionId: string );
        procedure config;
     end;

    IDataService = interface
        ['{722CE946-1F59-4C67-A0EA-6655F1B1D961}']
        procedure beginTrans;
        procedure commitTrans;
        procedure rollbackTrans;

        function doSelectSql( const theSql: string ): TClientDataset;
        function doSelectValue( const theSql: string ): string;
        procedure doUpdateSql( const delta: string );
        procedure doUpdateSqls( const deltas: TStringDynArray );

    end;

    IShortcutDispather = interface
        ['{A2C08C9E-5B56-4DC9-934B-323CAEC1FF49}']
        function actionOf( const input: TShortCut ): string;
        procedure config;
    end;

    IProcessData = interface
        ['{9368710D-7240-466A-8BCF-0D8B2FF0502D}']
        function process( var theData: TClientDataSet );
    end;

    IActionManager = interface
        ['{0FEE643C-7610-4442-9EB7-5D21A433788A}']
        function processerOf( action: string ): IProcessData;

    end;

    IView = interface( IProcessData )
        ['{5F0000F8-7A9D-4824-915C-20A95A7B01F4}']
        procedure View( var theData: TClientDataSet );
    end;

    IReport = interface( IProcessData )
        ['{DD5A8AE6-37D9-4B9F-A2C9-9BEA9F217F90}']
        procedure report( var theData: TClientDataSet );
    end;

implementation

end.