VPF::Архитектура ПО:как избежать Circular unit referenc

Darked

Дата 3.5.2011, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

Код


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 юните.

--------------------

Veni, Vidi, Vici !!!

Frees

Дата 3.5.2011, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


unit scanutils;


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

uses frmScanInfo;

Это сообщение отредактировал(а) Frees - 3.5.2011, 12:32

--------------------

Кольцов Виктор Владимирович

Darked

Дата 3.5.2011, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

--------------------

Veni, Vidi, Vici !!!

Frees

Дата 3.5.2011, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

тогда

Код



unit scanutils;


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

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

Это сообщение отредактировал(а) Frees - 3.5.2011, 14:53

--------------------

Кольцов Виктор Владимирович

Darked

Дата 3.5.2011, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

)

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

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

Код


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

--------------------

Veni, Vidi, Vici !!!

Frees

Дата 3.5.2011, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

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

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

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

Код

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

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

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Darked

Дата 18.5.2011, 07:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 536
Регистрация: 26.2.2004
Где: Южный Урал

Репутация: нет
Всего: нет

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

)

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

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

--------------------

Veni, Vidi, Vici !!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »