序列化Delphi应用程序配置的最佳方式是什么？

Question

我会自己回答这个问题，但如果您比我快或者您不喜欢我的解决方案，请随时提供您的答案。我刚刚提出这个想法，并希望对此有一些看法。

目标：一个可读的配置类（如INI文件），但无需写入（并在添加新配置项后调整）加载和保存方法。

我想创建像

TMyConfiguration = class (TConfiguration) 
    ... 
    property ShowFlags : Boolean read FShowFlags write FShowFlags; 
    property NumFlags : Integer read FNumFlags write FNumFlags; 
end; 

调用TMyConfiguration.Save类（从TConfiguration继承）应创建一个文件一样

[Options] 
ShowFlags=1 
NumFlags=42 

问题：什么是做的最好的方法这个？

Answer 1

这是我提出的解决方案。

我有一个基类

TConfiguration = class 
protected 
    type 
    TCustomSaveMethod = function (Self : TObject; P : Pointer) : String; 
    TCustomLoadMethod = procedure (Self : TObject; const Str : String); 
public 
    procedure Save (const FileName : String); 
    procedure Load (const FileName : String); 
end; 

负载的方法是这样的（Save方法相应地）：

procedure TConfiguration.Load (const FileName : String); 
const 
    PropNotFound = '_PROP_NOT_FOUND_'; 
var 
    IniFile : TIniFile; 
    Count : Integer; 
    List : PPropList; 
    TypeName, PropName, InputString, MethodName : String; 
    LoadMethod : TCustomLoadMethod; 
begin 
    IniFile := TIniFile.Create (FileName); 
    try 
    Count := GetPropList (Self.ClassInfo, tkProperties, nil) ; 
    GetMem (List, Count * SizeOf (PPropInfo)) ; 
    try 
     GetPropList (Self.ClassInfo, tkProperties, List); 
     for I := 0 to Count-1 do 
     begin 
     TypeName := String (List [I]^.PropType^.Name); 
     PropName := String (List [I]^.Name); 
     InputString := IniFile.ReadString ('Options', PropName, PropNotFound); 
     if (InputString = PropNotFound) then 
      Continue; 
     MethodName := 'Load' + TypeName; 
     LoadMethod := Self.MethodAddress (MethodName); 
     if not Assigned (LoadMethod) then 
      raise EConfigLoadError.Create ('No load method for custom type ' + TypeName); 
     LoadMethod (Self, InputString); 
     end; 
    finally 
     FreeMem (List, Count * SizeOf (PPropInfo)); 
    end; 
    finally 
    FreeAndNil (IniFile); 
    end; 

的基类可以提供加载和保存为德尔福默认类型的方法。然后我就可以创建一个配置我的应用程序是这样的：一个自定义的保存方法的

TMyConfiguration = class (TConfiguration) 
... 
published 
    function SaveTObject (P : Pointer) : String; 
    procedure LoadTObject (const Str : String); 
published 
    property BoolOption : Boolean read FBoolOption write FBoolOption; 
    property ObjOption : TObject read FObjOption write FObjOption; 
end; 

例子：

function TMyConfiguration.SaveTObject (P : Pointer) : String; 
var 
    Obj : TObject; 
begin 
    Obj := TObject (P); 
    Result := Obj.ClassName; // does not make sense; only example; 
end;  

Answer 2

这将是对Java。

我喜欢使用java.util.Properties类读取配置文件或属性文件。我喜欢的是你用上面显示的相同方式（key = value）将行放在文件中。 此外，它使用＃（磅符号）作为注释的行，类似于很多脚本语言。

所以，你可以使用：

ShowFlags=true 
# this line is a comment  
NumFlags=42 

等

然后你只需这样的代码：

Properties props = new Properties(); 
props.load(new FileInputStream(PROPERTIES_FILENAME)); 
String value = props.getProperty("ShowFlags"); 
boolean showFlags = Boolean.parseBoolean(value); 

易为。

Answer 3

基本上你要求一个解决方案来序列化一个给定的对象（在你的情况下，配置到ini文件）。有现成的组件，你可以开始寻找here和here。

Answer 4

我使用XML作为我的所有应用程序的配置手段。它是：

• 灵活
• 将来的功能证明
• 容易用任何文本阅读器
• 很容易的适用范围扩大到阅读。不需要类修改

我有一个XML库，它使得读取或修改配置非常容易，甚至不需要监视缺少的值。现在，您还可以将XML映射到应用程序内部的类，以便在速度问题或速度不断读取某些值的情况下更快地访问。

我发现其他配置方法远不如可选：

• INI文件：未在深层结构，远不如灵活
• 注册表：刚刚从保持距离。

Answer 5

我的首选方法是我在全球的接口单元创建一个接口：

type 
    IConfiguration = interface 
    ['{95F70366-19D4-4B45-AEB9-8E1B74697AEA}'] 
    procedure SetConfigValue(const Section, Name,Value:String); 
    function GetConfigValue(const Section, Name:string):string; 
    end; 

这个接口，然后在我的主要形式“暴露”：

type 
    tMainForm = class(TForm,IConfiguration) 
    ... 
    end; 

大部分时间实际的实现不是主要形式，它只是一个占位符，我使用implements关键字将接口重定向到主窗体拥有的另一个对象。这一点是配置的责任被委托。每个单元不关心配置是否存储在表，ini文件，xml文件或甚至是注册表中。这里做的事情让我在使用全局接口单元中的任何单元做的就是像一个电话如下：

var 
    Config : IConfiguration; 
    Value : string; 
begin 
    if Supports(Application.MainForm,IConfiguration,Config) then 
    value := Config.GetConfiguration('section','name'); 
    ...  
end; 

所有这一切需要的是增加的形式和我的全球接口单元，以我的工作单位上。而且因为它不使用mainform，所以如果我决定以后再使用它来做另一个项目时，我不必做任何进一步的修改......即使配置存储方案完全不同，它也能正常工作。

我的一般偏好是创​​建一个表（如果我正在处理数据库应用程序）或XML文件。如果它是一个多用户数据库应用程序，那么我将创建两个表。一个用于全局配置，另一个用于用户配置。

Answer 6

前段时间我为同一任务写了一个小单元 - 用XML文件保存/加载应用程序的配置。

检查Obj2XML.pas单元在我们的免费SMComponent库： http://www.scalabium.com/download/smcmpnt.zip

Answer 7

尼克斯的答案（使用Java属性）有一个观点：这个简单的方式来阅读和周围传递应用程序不会引入的部件之间的配置依赖于特殊的配置类。一个简单的键/值列表可以减少应用程序模块之间的依赖关系，并使代码重用更容易。

在Delphi中，一个简单的基于TStrings的配置是一种实现配置的简单方法。例如：

mail.smtp.host=192.168.10.8  
mail.smtp.user=joe  
mail.smtp.pass=*******