Delphi IoCの作成。 Delphiのリンカが未使用のクラスを削除しないようにする方法

Question

私はIoCをIocSingletonAttributeを持つクラスを自動的に登録する機能を持つdelphiでIoCを作成しました。

自動登録は次のようになります。

procedure TIocContainer.AutoRegister; 
var 
    ctx: TRttiContext; 
    rType: TRttiType; 
    attr: TCustomAttribute; 
    &Type: PTypeInfo; 
begin 
    ctx := TRttiContext.Create; 
    for rType in ctx.GetTypes do 
    Begin 
    for attr in rType.GetAttributes do 
    Begin 
     if TypeInfo(IocSingletonAttribute) = attr.ClassInfo then 
     Begin 
     &Type := IocSingletonAttribute(attr).&Type; 
     RegisterType(&Type, rType.Handle, True); 
     End; 
    End; 
    End; 
end; 

次に、実装を作成してIocSingletonAttributeを追加します。これは次のようになります

[IocSingleton(TypeInfo(IIocSingleton))] 
TIocSingleton = class(TInterfacedObject, IIocSingleton) 
    procedure DoSomeWork; 
end; 

これでプログラムの実際のコードになりました。私が以下のコードを書くと、IoCは動作しません。 AutoRegisterプロシージャはTIocSingletonを取得しませんでした。

var 
    Ioc: TIocContainer; 
    Singleton: IIocSingleton; 
begin 
    Ioc := TIocContainer.Create; 
    try  
    Ioc.AutoRegister; 
    Singleton := Ioc.Resolve<IIocSingleton>(); 
    Singleton.DoSomeWork; 
    finally 
    Ioc.Free; 
    end; 
end. 

しかし、以下のコードを書き換えても、すべてが期待通りに機能します。 TIocSingletonクラスをどのように宣言して使用したかに注目してください。

var 
    Ioc: TIocContainer; 
    Singleton: IIocSingleton; 
    ASingleton: TIocSingleton; 
begin 
    Ioc := TIocContainer.Create; 
    ASingleton := TIocSingleton.Create; 
    try  
    Ioc.AutoRegister; 
    Singleton := Ioc.Resolve<IIocSingleton>(); 
    Singleton.DoSomeWork; 
    finally 
    Singleton.Free; 
    Ioc.Free; 
    end; 
end. 

だから、これに基づいて、私はそれが明示的にアプリケーションのどの部分に使用されていませんでしたので、Delphiのコンパイラ、リンカは、最初の例ではTIocSingletonを取り除いていると仮定しています。だから私の質問は、コンパイラの '特定のクラスのための未使用のコードを削除する機能を有効にすることは可能ですか？または、私の問題がリンカーではない場合、誰かが最初の例ではなく2番目の例がうまくいく理由を明らかにすることができますか？

Answer 1

Sebastian ZがAgustin Ortuのコメントに感謝します。どちらの回答も私を最終的な解決に導いてくれました。残念ながら、1つのクラスに対してSTRONGLINKTYPESを使用することはできません。クラスを何らかの方法で参照する必要があります。私はAugstin Ortuの正確な提案を使わないことに決めましたが、私はそのコンセプトを使っていました。

IoCが定義されているユニットでは、次の空の手順が出力されます。

procedure IocReference(AClass: TClass); 

implementation 

procedure IocReference(AClass: TClass); 
begin 
end; 

そして、IOCが使用するクラスを作成し、クラスで私は、次の

initialization 
    IocReference(TIocSingleton); 
end. 

コードを削除するだけではなく呼び出しからリンカを維持するための手順を使用する理由を追加例えば、（TIocSingleton.ClassName）はより良い情報を提供するということです。別のプログラマーがコードを読んでいると、なぜその行があるのか​​をよく知ることができます。

Answer 2

{$STRONGLINKTYPES ON}ディレクティブを.dprに追加します。次に、これらのタイプを含める必要があります。しかし、1つのクラスでは利用できないため、アプリケーションが確実に爆発します。