VPF::Как в Delphi применить технологию

Delphist

Дата 9.2.2010, 18:00 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Вообщем встала задача следующего рода:
есть класс - TSomeClass у которого есть событие OnEvent. Стандартные возможности Delphi позволяют сделать так: OnEvent := ProcSome;
где ProcSome некоторый метод другого класса,
А как сделать так, чтобы OnEvent отлавливали методы нескольких классов. Это легко реализовывается в технологии signal-slot, например, в библиотеке QT.
можно, конечно, финтить как-то так:

Код


type
 TListNotifyEvent: array of  TNotifyEvent;

TSomeClass = class
...
private
  FListenerNotifyEvent: TListNotifyEvent;
  procedure NotifyListinerEvent;
  procedure SomeEvent;

public
  procedure SignalSomeEvent(Proc: TNotifyEvent)
...

procedure TSomeClass.SignalSomeEvent(Proc: TNotifyEvent);
begin
   SetLength(FListNotifyEvent, Length(FListenerNotifyEvent) + 1);
   FListNotifyEvent[High(FListenerNotifyEvent)] := Proc;
end;

procedure TSomeClass.NotifyListenerEvent;
var
  i: integer;
begin
   
  for i := 0 to High(FListenerNotifyEvent) do
    if Assigned(FListenerNotifyEvent[i]) then
      FListenerNotifyEvent[i](Self);
end;

procedure TSomeClass.SomeEvent;
begin
  NotifyListenerEvent; 
  ...
end;

--------------------
var GlobalSomeClass: TSomeClass; 
--------------------

TMyClass = class
...
public
  procedure Init;
  procedure SlotSomeEvent(Sender: TObject);
...
end;

procedure TMyClass.Init;
begin

  GlobalSomeClass.SignalSomeEvent(SlotSomeEvent)
...
end;

procedure TMyClass.SlotSomeEvent(Sender: TObject);
begin
...
end;

У этого способа есть основной недостаток, дело в том, что если будет уничтожен класс
метод которого помещен в список ListenerEvent, тогда в ListenerEvent окажется мусор, а следить за всем этим вручную не хотелось бы.
Использовать Broadcast (через сообщения) тоже нельзя, так этот способ пригоден только для оконных классов.

Может быть в Delphi можно как-то реализовать технологию подобной signal-slot

Это сообщение отредактировал(а) Delphist - 9.2.2010, 18:06

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

bems

Дата 9.2.2010, 21:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Посмотри модуль, где реализован TApplicationEvents

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

Обижено школьников: 8

Delphist

Дата 10.2.2010, 12:42 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(bems @ 9.2.2010, 22:20

)

Посмотри модуль, где реализован TApplicationEvents

Это совсем не то. Зачем мне наследник TComponent'a???

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

bems

Дата 10.2.2010, 14:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Delphist @ 10.2.2010, 12:42

)

Это совсем не то

Ну как не то... Все TApplicationEvents знают же когда возникает одно единственное событие в TApplication.

Цитата(Delphist @ 10.2.2010, 12:42

)

Зачем мне наследник TComponent'a???

А что в нем плохого?

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

Обижено школьников: 8

Delphist

Дата 10.2.2010, 16:14 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(bems @ 10.2.2010, 15:44

)

Ну как не то... Все TApplicationEvents знают же когда возникает одно единственное событие в TApplication.

Да так - знают только наследники TComponent, а как быть с классами наследующися от TObject.

Смотрим это http://forum.sources.ru/index.php?showtopi...t&p=2501475 и будет счастье.

P.S. Я так понял заядлые поклонники Delphi, использовать новые подходы совсем не хотят

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

bems

Дата 10.2.2010, 18:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Ты так и не сказал что плохого в компонентах. Кроме того, насколько я помню уведомлятор TApplicationEvents'ов никак не завяза на компоненты (проверить сейчас не могу).

Цитата(Delphist @ 10.2.2010, 16:14

)

Я так понял заядлые поклонники Delphi, использовать новые подходы совсем не хотят

Подход не новый. Ну и никто же тебя не заставляет ни использовать Дельфи, ни задавать вопрос в дельфийской ветке форума. Обидься на когнитивно закрытых дельфистов и переходи на другой язык/технологию. А мы и дальше не будем бояться использовать для соответствующих целей соответствующий класс (если компонентность действительно тут как-то завязана, в чем я очень сомневаюсь)

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

Обижено школьников: 8

former

Дата 10.2.2010, 19:44 (ссылка)

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

Загрузка ...

MEMS Expert

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

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

Delphist, ты уже второй раз эту тему поднимаешь.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Delphist

Дата 11.2.2010, 09:01 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Цитата(former @ 10.2.2010, 20:44

)

Delphist, ты уже второй раз эту тему поднимаешь.

Просьба только не обижаться, на мои изречения. Я и сам большой поклонник Delphi ( smile

не зря же называюсь Delphist'ом). Да действительно подобную тему я уже поднимал. Дублирование связано с тем, чтобы оценить как изменились взгляды на использование немного других подходов в Delphi. К сожалению как я понял пока с этим туго

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

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