Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Архитектура ПО:как избежать Circular unit referenc

Автор: Darked 3.5.2011, 12:27

Доброе время суток.
Суть вопроса в чём: есть класс для работы со сканером - сканирование, сохранение в различных форматах, переконвертирование...

Код


unit scanutils;

uses frmScanInfo;
type  
  TScanUtils = class(TObject)
      ...
      frmUI:          TfrmScanInfo;    // форма для изменения настроек сканирования
      ...
  end;

и, соответственно, класс формы для изменения состояния класса сканирования:

Код


  unit frmScanInfo;

  uses scanutils;
  type
  TfrmScanInfo = class(TForm)
     objParent:  TScanUtils;
     ...
     public
         constructor CreateEx(aOwner: TComponent; aDataParent: TScanUtils);
         begin
            objParent := aDataParent;
         end;
     ...
     procedure btnScannerChooseClick(Sender: TObject);
     begin
        objParent.showScanChooseDlg();
      end;
     ...
   end;

В этой форме я переопределяю конструктор и хочу передать cсылку на класс родителя, так как из формы хочу вызывать методы TScanUtils для установки значения внутренних переменных.
В итоге получаю, конечно же, Circular unit reference! Хотелось бы узнать как такую ситуацию разрулить на уровне архитектуры программы, как правильно избежать этой ситуации не на уровне как - нить хаков, а грамотным структурированием... В голову пока только приходит создание третьего файла юнита с определение интерфейса сканера, реализация которого потом будет в scanutils юните.

Автор: Frees 3.5.2011, 12:32

Код


unit scanutils;


type  
  TfrmScanInfo = class;
  TScanUtils = class(TObject)
      ...
      frmUI:          TfrmScanInfo;    // форма для изменения настроек сканирования
      ...
  end;
implementation

uses frmScanInfo;

Автор: Darked 3.5.2011, 13:21

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

Автор: Frees 3.5.2011, 14:51

тогда

Код



unit scanutils;


type  
  TScanUtils = class(TObject)
      ...
      frmUI:          TForm;    // форма для изменения настроек сканирования
      ...
  end;
implementation
uses frmScanInfo;

....
  frmUI := TfrmScanInfo.Create(nil);
....
  TfrmScanInfo(frmUI)
....

Автор: Darked 3.5.2011, 14:56

Цитата(Frees @ 3.5.2011, 14:51

)

frmUI: TForm; // форма для изменения настроек сканирования

Было бы самое оно, если бы я не переписывал конструктор CreateEx, соотвественно, я потом и форму создаю как

Код


  frmUI := TfrmScanInfo.createEx();  // коего метода нет у TForm

Автор: Frees 3.5.2011, 16:56

Цитата(Darked @ 3.5.2011, 17:56

)

я потом и форму создаю как

если frmUI будет TForm тебе никто не мешает так создавать экземпляр формы.

можно даже так

Код


frmUI:  TWinControl; 
...
frmUI := TfrmScanInfo.createEx();
TfrmScanInfo(frmUI).MyScanInfoMethod;

Добавлено через 1 минуту и 3 секунды
Можно еще впринципе сменить архитектуру, попробуй GoF почитать.

Автор: CodeMonkey 4.5.2011, 09:28

Я не понял, а зачем frmUI: TfrmScanInfo; сделано полем в объекте?

Добавлено через 8 минут и 8 секунд
Если совсем "по фен-шую": там вообще не должно быть формы ни в каком виде. Может у меня консольное приложение и настройки я задаю в командной строке?

Должен быть интерфейс типа:

Код

IScannerSetup = interface
  procedure Setup(const ADataParent: TScanUtils); safecall;
end;

Соответственно, форма должна реализовывать этот интерфейс. И в TScanUtils ты работать должен с ним, а не с формой. А за интерфейсом в перспективе может быть и консольный диалог, и чтение настроек из конфигурации, и вообще что угодно.

Автор: Darked 18.5.2011, 07:12

Цитата(CodeMonkey @ 4.5.2011, 09:28

)

Должен быть интерфейс типа:код Pascal/Delphi1:2:3:IScannerSetup = interface procedure Setup(const ADataParent: TScanUtils); safecall;end;highlightSyntax('delphi_ODk1MD','delphi');Соответственно, форма должна реализовывать этот интерфейс. И в TScanUtils ты работать должен с ним, а не с формой. А за интерфейсом в перспективе может быть и консольный диалог, и чтение настроек из конфигурации, и вообще что угодно.

Спасибо, так наверное и сделаю. Изначально не правильно спроектировал приложение.