Каков наилучший способ сериализации конфигурации приложения Delphi?

Question

Я сам отвечу на этот вопрос, но не стесняйтесь давать ответы, если вы быстрее меня или вам не нравится мое решение. Я только придумал эту идею и хотел бы получить некоторые мнения по этому поводу.

Цель: класс конфигурации, который читается (например, INI-файл), но без необходимости писать (и адаптировать после добавления нового элемента конфигурации) методы загрузки и сохранения.

Я хочу создать класс как

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

Calling 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; 

Нагрузка методы выглядеть следующим образом (Сохранить метод соответственно):

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; 

Большую часть времени фактическая реализация не входит в основную форму, ее просто владелец места, и я использую ключевое слово tools, чтобы перенаправить интерфейс на другой объект, принадлежащий основной форме. Дело в том, что ответственность за конфигурацию делегирована. Каждому модулю все равно, сохранена ли конфигурация в таблице, ini-файле, xml-файле или даже (задыхается) в реестре. Что это позволяет мне делать в любой единицы, которая использует блок глобальных интерфейсов, делает вызов, как следующее:

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

Все, что требуется, это добавление форм и мой глобальный блок интерфейсов к блоку я работаю на. И поскольку он не использует основную форму, если я решил позже использовать его для другого проекта, мне не нужно делать никаких дальнейших изменений ... он просто работает, даже если схема хранения конфигурации полностью отличается.

Мое общее предпочтение - создать таблицу (если я имею дело с приложением базы данных) или XML-файл. Если это многопользовательское приложение базы данных, я создам две таблицы. Один для глобальной конфигурации, другой для настройки пользователя.

Answer 6

Когда-то я написал небольшой блок для одной задачи - сохранить/загрузить конфигурацию приложения в xml-файле.

Проверьте блок Obj2XML.pas в нашей бесплатной библиотеке SMComponent: http://www.scalabium.com/download/smcmpnt.zip

Answer 7

Никс ответ (с помощью Java Properties) имеет точку: это простой способ, чтобы прочитать и передать конфигурацию вокруг между частями приложения не вносит зависимостей от специального класса конфигурации. Простой список ключей/значений может уменьшить зависимость между модулями приложений и упростить повторное использование кода.

В Delphi простая конфигурация на основе TStrings - это простой способ реализовать конфигурацию. Пример:

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