"Фабрика по записи" в C# и Delphi

[Joker_vD]

Ну, не уверен, что это дело называется "фабрикой по записи", но я для себя это дело именую именно так. Суть лучше проиллюстрирую на Delphi-коде:

Используется синтаксис Delphi

Type
  TThing = Class
    // whatever fields and methods

    Constructor Create(Const aS: String); Virtual;
  End;
  TThingClass = Class Of TBase;

  TThingLink = Record
    ID: Integer;
    ClassType: TThingClass;
  End;

  TThingFactory = Class
  Private
    fData: Array Of TThingLink;
    fCount, fSize: Integer;
  Public
    Constructor Create;
    Destructor Destroy; Override;
    
    Procedure AddLink(aID: Integer; aType: TThingClass);
    Function Build(aID: Integer; aS: String): TThing;
  End;

Implementation

Constructor TThingFactory.Create;
Begin
  fCount := 0;
  fSize := 10;
  SetLength(fData, fSize);
End;

Destructor TThingFactory.Destroy;
Begin
  SetLength(fData, 0);
End;
    
Procedure TThingFactory.AddLink(aID: Integer; aType: TThingClass);
Var
  I: Integer;
Begin
  I := 0;
  While (I < fCount) And (fData[I].ID <> aID) Do Inc(I);
  If I < fCount
  Then Raise Exception.Create('Duplicate ID: ' + IntToString(aID) + '; classes ' +
    fData[ID].ClassType.ClassName + ' and ' + aType.ClassName);

  If fCount = fSize
  Then Begin
    fSize := 2*fSize;
    SetLength(fData, fSize);
  End;

  With fData[fCount] Do Begin
    ID := aID;
    ClassType := aType;
  End;
  Inc(fCount);
End;

Function TThingFactory.Build(aID: Integer; aS: String): TThing;
Var
  I: Integer;
Begin
  I := 0;
  While (I < fCount) And (fData[I].ID <> aID) Do Inc(I);

  If I = fCount
  Then Raise Exception.Create('No thing with such ID')
  Else Result := fData[I].ClassType.Create(aS);
End;
 

Это самый-самый примитивный вариант, конечно же. Такая штуковина полезна, например, разбирать пришедшие по сети пакеты: скажем, если в заголовке стоит нолик, то это InitSessionMessage, если единичка — AuthorisationRequestMessage, и т.д. Наследуем все сообщения от одного базового класса, запихиваем в фабрику, каждое сообщение поддерживает конструктор, который инициализирует поля из сырого куска байтов... и все. Пришел пакет — вызвали MessageFactory.Build(Packet.ID, Packet.Data), и получили распарсенное сообщение.

Появились новые сообщения — написали новый класс, дописали строчку с MessageFactory.Add(100500, NewMessage.ClassType), и все. Это вообще может быть сделано во внешнем подключаемом модуле, о которым ты вообще не знаешь, потому что его писали уже пользователи/доработчики напильником по месту внедрения.

Собсно, вопрос — а как такая штуковина поизящней делается на C#? Там что-то тоже было такое, но может, есть какие тонкости? В Delphi, например, классу надо иметь виртуальный конструктор, иначе может не взлететь.

P.S. "Фабрикой по записи" я это называю потому, что каждый класс сам по желанию "записывается" на фабрику.

[Maslov]

Joker_vD в сообщении #539587 писал(а):

Собсно, вопрос — а как такая штуковина поизящней делается на C#?

Изящество -- вещь довольно субъективная, но я бы, наверное, сделал как-нибудь так:

Используется синтаксис C#

namespace Topic55236
{
    public abstract class Thing
    {
        public abstract void SayHello();
    }
 
    public class ThingFactory
    {
        private Dictionary<int, Type> fData = new Dictionary<int, Type>();
 
        public Thing Build(int id, string val)
        {
            if (!fData.ContainsKey(id))
                throw new ArgumentException("No thing with such Id");
            Type type = fData[id];
            ConstructorInfo ci = type.GetConstructor( new Type[] { typeof(string) } );
            Thing result = (Thing) ci.Invoke(new object [] {val});
            return result;
        }
 
        public void AddLink(int aId, Type aType)
        {
            if (fData.ContainsKey(aId)) {
                Type t = fData[aId];
                throw new ArgumentException(
                    string.Format("Duplicate ID: {0}; classes {1} and {2}", aId, t.Name, aType.Name));
            }
            if (!aType.IsSubclassOf(typeof(Thing)))
                throw new ArgumentException("Type must be subclass of Thing");
            if (null == aType.GetConstructor(new Type[] { typeof(string) }))
                throw new ArgumentException("Type must be instantiable from string");
            fData.Add(aId, aType);
        }
    }
 
    //====================================================
    //  Ну а теперь посмотрим, как вся эта штука взлетит
    //====================================================
 
    // Плохой класс: не наследуется от Thing
    class Bad1
    {
    }
 
    // Плохой класс: нет конструктора из строки
    class Bad2 : Thing
    {
        public override void SayHello()
        {
        }
    }
 
    // Хороший класс
    class Good : Thing
    {
        private string fString;
        public Good(string aString)
        {
            fString = aString;
        }
        public override void SayHello()
        {
            Console.WriteLine("I'm good. String is " + fString);
        }
    }
 
    // Еще один хороший класс
    class Good2 : Thing
    {
        public Good2(string aString)
        {
        }
        public override void SayHello()
        {
        }
    }
 
    class Program
    {
        static void Main(string[] args)
        {
            var thingFactory = new ThingFactory();
            TryAdd(thingFactory, 1, typeof(Bad1));
            TryAdd(thingFactory, 1, typeof(Bad2));
 
            thingFactory.AddLink(1, typeof(Good));
            Thing thing = thingFactory.Build(1, "Message");
            thing.SayHello();
 
            TryAdd(thingFactory, 1, typeof(Good2));
        }
 
        static void TryAdd(ThingFactory factory, int id, Type type)
        {
            try {
                factory.AddLink(id, type);
            }
            catch (Exception ex) {
                Console.WriteLine(ex.Message);
            }
        }
    }
}

При запуске под VS2010 результат такой:

Type must be subclass of Thing
Type must be instantiable from string
I'm good. String is Message
Duplicate ID: 1; classes Good and Good2