Delphiアプリケーションの設定をシリアル化する最善の方法は何ですか？

Question

私はこの質問に自分自身で答えるつもりですが、あなたが私よりも速く、私の解決策が気に入らなければ、答えを提供してください。私はちょうどこのアイデアを考え出し、それについていくつか意見を述べたいと思います。

目標：（INIファイルのような）が、書き込み（および新しい設定項目が追加された後に適応）負荷とメソッドを保存することなく読み取り可能なコンフィギュレーションクラス。行うための最善の方法は何：

は私が

[Options] 
ShowFlags=1 
NumFlags=42 

質問のようにファイルを作成する必要があります（TConfigurationから継承）TMyConfiguration.Saveを呼び出す

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

のようなクラスを作成したいですこの？

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）、ファイルを行に並べることです。 また、多くのスクリプト言語のような、コメントの行に＃（シャープ記号）を使用しています。

ですから、使用することができます

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

と簡単：

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

など

次に、あなただけのようなコードを持っています。

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ファイル、またはレジストリに格納されているかどうかは気にしません。これは私が世界的なインターフェースユニットを使用する任意の単位で行うことができDOESすると、次のような呼び出しを行います：

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

必要とされるすべては、私が働いているユニットに形成し、私のグローバルインターフェースユニットを追加していますに。また、メインフォームを使用しないため、後で別のプロジェクトに再利用することにした場合、これ以上変更する必要はありません。構成の格納方式が完全に異なっていても機能します。

私の一般的な好みは、テーブル（データベースアプリケーションを扱っている場合）またはXMLファイルを作成することです。マルチユーザーデータベースアプリケーションの場合は、2つのテーブルを作成します。 1つはグローバル構成用、もう1つはユーザー構成用です。

Answer 6

いつか私は同じタスクのために小さな単位を書きました - アプリケーションの設定をxml-fileに保存/ロードするため。

私たちのフリーウェアSMComponentライブラリにObj2XML.pas単位を確認します（Javaのプロパティを使用して） http://www.scalabium.com/download/smcmpnt.zip

Answer 7

ニックスの答えは、ポイントを持っています。アプリケーションの部品間の周りの設定を読んで、合格するには、この単純な方法は導入しません特別な構成クラスの依存関係シンプルなキー/値リストを使用すると、アプリケーションモジュール間の依存関係を減らし、コードの再利用を容易にすることができます。

Delphiでは、単純なTStringsベースのコンフィグレーションがコンフィグレーションを実装する簡単な方法です。例：

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