Есть проект, в нём много форм. Было решено чтобы формы реализовывали интерфейсы и доступ к формам был через интерфейсы. Внешне это выглядит так:



И использование вот такое:


Форма, реализующая IRequestPasswordForm - модальная, и по закрытю формы она освобождается:


Всё даже работало(хотя не должно было) до сегодня. Получается интереснейший баг:
  Password := RequestPasswordForm.ForImage(FileName); - срабатывает прекрасно, после этой строки форма уничтожается сама
end; <-- а тут получается очень плохо :( Делфи видит, что интерфейс выходит из области видимости и делает ему _Release, но объет уже не существует, получаем ошибку доступа. 
Был вариант по закрытию окна его прятать и считать самостоятельно число ссылок через _AddRef _Release, но они реализованы в TComponent и они не виртуальные - т.е. я не могу их дописать. 

Есть ли идеи как оставить такую красоту как "Password := RequestPasswordForm.ForImage(FileName);" и избежать проблемы со счётчиком ссылок?

Заранее спасибо!

И чем не вариант? только зачем что-то там самостоятельно считать? Скрыли форму, как интерфейс выйдет за пределы видимости, форма уничтожится...

Я плохо выразился. TForm уже имплементирует IInterface, эта реализация сделана в TComponent, её-то я и думал использовать, но не смог т.к. методы (_AddRef _Release) не виртуальные. Сейчас я второй раз реализую интерфейc IInterface в моей форме:

Я только не в курсе, корректно ли это - 2 раза один и тот же интерфейс реализовывать - не будет ли в будущем проблем?

хм, а если класс, реализующий твой интерфейс для формы, наследовать не от TForm, а от TInterfacedObject, а внутри уже просто создавать/прибивать форму?

Это будет работать конечно, но не хотелось бы плодить ненужные сущности.

Моя вторая имплементация интерфейса - работает, я в ней вызываю те же методы, что и первая реализация (благо они protected). Просто вопрос в том, как делфи работает если 2 раза реазилуется один и тот же интерфейс, не будет ли потенциально какой-нибудь ошибки, о которой я не знаю?

P.S. Пока что я подумал - и вроде бы всё корректно должно быть, но так бы хотелось чтобы кто-нить подтвердил моё предположение...

Это сообщение отредактировал(а) Illusion Dolphin - 8.11.2012, 10:39

работает до тех пор, пока владелец формы не попытается ее уничтожить, уже после удаления при достижении счетчиком ссылок нуля
можно обойти вызов _Release сделав как-то так


Это сообщение отредактировал(а) bems - 15.11.2012, 12:38

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

  Если комовское управление памятью мешает, то я делаю свои виртуальные AddRef и Release которые возвращают значения соответственно 2 и 1 всегда, а внутри ничего не делают, а объект уничтожаю сам. С точки зрения COM такое поведение вполне корректно, получается так как если бы создавалась своя внутренняя копия указателя, которая уничтожается в нужное тебе время.

реализация этих методов у TComponent что-то такое и делает


да, посмотрел сейчас, при уничтожении компонента он сообщает об этом владельцу. Не пойму откуда я взял что это проблема. Видимо когда-то очень давно в какой-то очень старой версии так оно и было 

А зачем делать Action := caFree;?

Это означает что после закрытия форма будет безопасно уничтожена. caHide - просто спрятана и может быть ещё потом показана итд.

Добавлено через 2 минуты и 44 секунды
В моём финальном решении caFree нету, это было одной из причин проблемы в такой архитектуре.

 Вот, вот. Это 2 разных подхода.

А зачем в этой задаче вообще интерфейсы?

Было много зависимостей между формами, убирал зависимости между модулями, в том числе и циклические. Пытался черпануть идеологию из DI/IoC (на .net MVC модная штуковина). 

Это сообщение отредактировал(а) Illusion Dolphin - 17.11.2012, 14:05