序列化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=*******