一个应用程序一般都会存在使用配置文件进行一些基础的动态配置信息,从而避免为每个客户编译不同版本的,从而增加应用程序的灵活性;比如在配置文件中存储访问数据库的一些信息(如连接字符串),或者配置系统捕捉日志的类型,日志文件的类型存放位置等等信息。因此配置文件的读取操作就较为普通。
配置文件一般会采用ini/xml/json类型来做配置,当然这些文件基本都是文本文件类型,因此也可以根据需要自定义其他类型来实现。我在本框架里实现了ini及xml两种类型,程序启动时将自动检查特定名称的ini或xml配置文件是否存在,如果存在就会自动载入配置信息,框架按照ini,然后xml的顺序查找配置文件,如果都不存在,那么就表示系统没有使用配置文件。
为了其他模块方便使用同一的方法获取配置信息,我定义了一个配置基类TConfig,这个基类提供一个虚方法ConfigItem来获取配置项的值,也可以使用接口的方式来定义这个配置基类。我为了使用工厂类来创建配置类的实例,使用了类来实现。
然后实现了TConfigFactory,在这个工厂类加载时,实现查找配置文件,以及适配配置类的功能,提供getConfig方法给其他模块获取配置类实例。这个工厂类采用单例模式来创建(这也意味着要隐藏该类的create方法,提供另外的一个类方法getInstance来返回工厂实例。实现如下:
TConfig = class
public
function ConfigItem(sectionName, itemName: string): string; virtual; abstract; //获取配置项的值
end;
TConfigClass = class of TConfig
TConfigFactory = class
private
FConfigClassList: TClassList;
constructor Create;
function getConfigClass(pClassName: string): TConfigClass; //根据类名返回类
public
function getConfig: TConfig;
procedure RegisterConfigClass(ConfigClass: TConfigClass);
class function getInstance:TConfigFactory;
end;
implementation
constructor TConfigFactory.create;
begin
//search config file -system.ini / system.xml
end;
var configFactory: TConfigFactory;
class function getInstance: TConfigFactory;
begin
if not assigned(configFactory) then
configFactory := TConfigFactory.create;
result := configFactory;
end;
initialization
finalization
if assigned(configFactory) then
FreeAndNil(configFactory);
end.
为了不在这个工厂类的单元里引入TConfig的具体实现类的单元,我借鉴了FindClass的实现方法,在TConfigFactory里增加了FConfigClassList: TClassList,以及RegisterConfigClass来给实现类向工厂注册自己,从而让工厂可以正确的找到自己并创建一个实例返回给调用者。
然后新建模块来定义TConfigIni类,从而实现对ini类型文件的读取操作;在另外一个模块中定义TConfigXML来实现xml类型的配置信息读取。
在这两个文件的initialization部分,需要调用TConfigFactory.getInstance.RegisterConfigClass来注册自己。