События в интерфейсе класса

[moon-guest]

Приветствую Вас товарищи программеры!!!
Давичи решил реализовать плагин для протокола. Так как плагин реализуется в библиотеке а доступ к нему производится через интерфейс то и возникает проблема.
Для получения ответа использую событие:

TOnData=procedure(AVal: ShortString) of Object;
......
private
   FOnData: TOnData;
public
   property OnData: TOnData read FOnData write FOnData;
......

Были предложения передавать сразу в параметрах конструктора.
На что я не согласен так как хотелось ещё реализовать событие обработки ошибок.

Так же имеется вариант реализации через Set и Get что не совсем верно.

Не могли бы подсказать как правильно передать событие через интерфейс для основной программы.

[Аватар]

Свойство в секцию published если правильно понял

[moon-guest]

Не совсем так. Я получаю доступ к классу через интерфейс. И от сюда следует что ни о какой секции published интерфейс и не слыхивал.

[evg_m]

Я получаю доступ к классу через интерфейс

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

1. Я получаю Iform
2. получить еще IformExt
3. можно передать "свой" интрефейс IFormEvent
"свой" = реализация выполнена в классе который должен получать сообщения, но описание известно отправителю.


var f: IForm;
f:=... // Я получаю доступ к классу
(f as IformExt).Events:=self as IFormEvnet; //получить еще один интерфейс, в котором можно будет передать свой интерфейс

в том классе (от которого хотим получать сообщения)

type

IformExt =interface
  property events: IFormEvents;
  procedure SetEvents(values: IFormEvents);
end;

IFormEvents =interface
  procedure Data(sender: IInterface);
  procedure Error(sender: IInterface; error: string);
end;

TXData =class(..., Iform, IformExt)

events.Data(self);
events.Error(self, 'ошибка!!!');

получить еще один интерфейс, в котором можно будет передать свой интерфейс

или же в базовом интерфейсе (Iform) предусмотреть передачу интерфейса для сообщений.

[moon-guest]

Слишком замудренно.
Я решил пойти по более простому пути и создал функцию присвоения Event'ов по типу:

......
procedure Events(Event: TTypeEvent; Value: TNotifyEvent); safecall;
....

единственное пришлось создать именованный список событий и при присвоении проверять:

type
   TTypeEvent=(peData, peError);
......
procedure TMyClass.Events(Event: TTypeEvent; Value: TNotifyEvent);
begin
  case Event of
    peData: FOnReceive :=value;
    peError: FOnError   :=value;
  end;
end;
......