- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在根据Spring4d的文档示例制作一个eventPublisher
不同之处在于订阅者必须显式订阅事件。
我想根据他们是否触发他们的处理程序实现IEventHandler<TEventType>
界面。
当发布传入事件时,我发现 IEventHandler<TEventType>
使用事件的类名和 Spring4d 的 TType.FindType('IEventHandler<TEvent1>')
类型引用
然后,我循环遍历我的订阅者(实现 IEventHandler 接口(interface)的对象)并检查它是否支持 IEventHandler 类型。
问题是Supports方法返回true即使订阅者没有实现该接口(interface)。
此外,我尝试列出 TMyEventHandler2
的接口(interface)类型。它包含IEventHandler<TEvent2>
??
我相信这是由于 IEventHandler<TEvent2>
的限制造成的和IEventHandler<TEvent1>
共享相同的 GUID
有解决办法吗?
使用这些类和接口(interface):
TEvent1 = class(TObject)
end;
TEvent2 = class(TObject)
end;
IEventHandler = interface(IInvokable)
[guid]
procedure Handle(aEvent : TObject);
end;
IEventHandler<T : class> = interface(IEventHandler)
[guid]
procedure Handle(aEvent : T);
end;
TMyEventHandler1 = class(TObject, IEventHandler, IEventHandler<TEvent1>)
public
procedure Handle(AEvent : TObject); overload;
procedure Handle(AEvent : TEvent1); overload;
end;
TMyEventHandler2 = class(TObject, IEventHandler, IEventHandler<TEvent2>)
public
procedure Handle(AEvent : TObject); overload;
procedure Handle(AEvent : TEvent2); overload;
end;
TEventPublisher = class(TObject)
public
fSubscribers : IList<TValue>;
procedure Subscribe(aSubscriber : TValue); // Simply adds the subscriber to the list of subscribers
procedure Publish(aEvent : TObject); // Publishes an event to the subscribers
end;
procedure TEventPublisher.Publish(const event: TObject; ownsObject: Boolean = True);
const
IEventSubscriberName = 'IEventSubscriber<*>';
var
consumerTypeName: string;
consumerType : TRttiType;
intfType : TRttiInterfaceType;
subscriber : TValue;
subscribed : IInterface;
lEventSubscriber: IEventSubscriber;
lIntfs : IReadOnlyList<TRttiInterfaceType>;
begin
consumerTypeName := StringReplace(IEventSubscriberName, '*', GetQualifiedClassName(event), []);
consumerType := TType.FindType(consumerTypeName);
intfType := consumerType as TRttiInterfaceType;
for subscriber in fSubscribers do
begin
lIntfs := TType.GetType(subscriber.AsObject.ClassInfo).GetInterfaces();
// lIntfs for TMyEventHandler2 containts IEventHandler<TEvent1> ???
if Supports(subscriber.AsObject, intfType.GUID, subscribed) then
if Supports(subscriber.AsObject, IEventSubscriber, lEventSubscriber) then
begin
intfType.GetMethod('Handle').Invoke(TValue.From(@subscribed, intfType.Handle), [event])
end;
end;
if ownsObject then
event.Free;
end;
lEventPublisher := TEventPublisher.Create;
lEventPublisher.Subscribe(TMyEventHandler1.Create);
lEventPublisher.Subscribe(TMyEventHandler2.Create);
lEventPublisher.Publish(TEvent1.Create); // Will both trigger TMyEventHandler1.Handle and TMyEventHandler2.Handle. Why ??
最佳答案
发生这种情况是因为,如果您将 guid 放在通用接口(interface)上,则该接口(interface)的每个特化都将具有相同的 guid,无论其通用类型参数如何。
我通常通过在界面中提供有关该信息的方法来解决此问题(例如 Spring.Collections.IEnumerable
有一个 ElementType
属性来获取 IEnumerable<T>
的实际类型)。
所以实现看起来像这样:
program GenericEventPublisher;
{$APPTYPE CONSOLE}
uses
Spring,
Spring.Collections,
System.SysUtils;
type
IEventHandler = interface
['{2E4BD8F4-4EB8-4B33-84F4-B70F42EF9208}']
procedure Handle(const event: TObject);
end;
IEventHandler<T: class> = interface
['{82B7521E-D719-4051-BE2C-2EC449A92B22}']
procedure Handle(const event: T);
function GetHandledClass: TClass;
end;
IEventPublisher = interface
['{2A460EF0-AE27-480F-ACEA-1B897F2DE056}']
procedure Subscribe(const subscriber: IEventHandler);
procedure Publish(const event: TObject; ownsObject: Boolean = True);
end;
TEventHandlerBase<T: class> = class(TInterfacedObject, IEventHandler, IEventHandler<T>)
private
function GetHandledClass: TClass;
procedure Handle(const event: TObject); overload;
public
procedure Handle(const event: T); overload; virtual; abstract;
end;
TEvent1 = class
end;
TEvent2 = class
end;
TMyEventHandler1 = class(TEventHandlerBase<TEvent1>)
public
procedure Handle(const event: TEvent1); override;
end;
TMyEventHandler2 = class(TEventHandlerBase<TEvent2>)
public
procedure Handle(const event: TEvent2); override;
end;
TEventPublisher = class(TInterfacedObject, IEventPublisher)
private
fSubscribers: IList<IEventHandler>;
public
constructor Create;
procedure Subscribe(const subscriber: IEventHandler);
procedure Publish(const event: TObject; ownsObject: Boolean = True);
end;
{ TEventPublisher }
constructor TEventPublisher.Create;
begin
fSubscribers := TCollections.CreateList<IEventHandler>;
end;
procedure TEventPublisher.Publish(const event: TObject; ownsObject: Boolean);
var
subscriber: IEventHandler;
eventSubscriber: IEventHandler<TObject>;
begin
for subscriber in fSubscribers do
if Supports(subscriber, IEventHandler<TObject>, eventSubscriber)
and (eventSubscriber.GetHandledClass = event.ClassType) then
eventSubscriber.Handle(event);
if ownsObject then
event.Free;
end;
procedure TEventPublisher.Subscribe(const subscriber: IEventHandler);
begin
fSubscribers.Add(subscriber)
end;
{ TEventHandlerBase<T> }
function TEventHandlerBase<T>.GetHandledClass: TClass;
begin
Result := T;
end;
procedure TEventHandlerBase<T>.Handle(const event: TObject);
begin
Assert(event is T);
Handle(T(event));
end;
{ TMyEventHandler1 }
procedure TMyEventHandler1.Handle(const event: TEvent1);
begin
Writeln(event.ClassName, ' handled by ', ClassName);
end;
{ TMyEventHandler2 }
procedure TMyEventHandler2.Handle(const event: TEvent2);
begin
Writeln(event.ClassName, ' handled by ', ClassName);
end;
var
eventPublisher: IEventPublisher;
begin
eventPublisher := TEventPublisher.Create;
eventPublisher.Subscribe(TMyEventHandler1.Create);
eventPublisher.Subscribe(TMyEventHandler2.Create);
eventPublisher.Publish(TEvent1.Create);
eventPublisher.Publish(TEvent2.Create);
end.
由于接口(interface)上存在类约束,我们可以确定接口(interface)是二进制兼容的,无论 T 的类型如何(因为它们只能是对象)。此外,使用通用事件处理程序的基类型可以减少需要编写的额外代码。它只是重定向非通用 Handle
方法到通用方法必须在具体实现中实现。
此外,由于基类实现了这两个接口(interface),我们不需要将处理程序存储在 TValue
列表中但可以使用非通用接口(interface)类型并轻松访问它们,而不需要 RTTI。
现在是Publish
方法是使用一个小技巧调用 Support
与 IEventHandler<TObject>
- 自 eventSubscriber
属于这种类型,我们可以传递 event
参数为其 Handle
方法恰好是正确的方法 - 这是因为我之前解释过的二进制兼容性,因为我们只是处理不同的类,因为 T 类型 - 如果我们没有该类约束,故事将完全不同。
关于Delphi SysUtils.Supports 意外返回 true,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49038991/
这个问题在这里已经有了答案: Why in Python does "0, 0 == (0, 0)" equal "(0, False)"? (7 个回答) 去年关闭。 代码片段 1: a = Tru
Integer i = 127; Integer j = 127; System.out.println(i == j); System.out.println(i.equals(j)); Integ
我试图用 Python 进行类似下面的代码的比较,但对产生的输出感到困惑。 谁能解释为什么输出是这样的? >>> True, True == True, True (True, True, True)
我们的下拉值是动态的 010100。 你能帮我将这些值转换为 true、false 吗? Offer的值是10100,Reject的值是10111。所以这些需要转换成 10100 = true,fal
我正在测试,如果用户在页面顶部显示一种货币“EUR”和另一种货币“GBP”,那么我期望包含文本“EUR”和页面下方还存在另一个包含文本“GBP”的链接。它包含在一个名为 "nav-tabs au-ta
如何检查数组的所有元素是真值还是假值。 因为以下内容似乎没有做到这一点:_.all([true, true, true], true); 它返回:false? 最佳答案 您应该重新阅读_.every(
C#:我有一个如下所示的字符串变量: string a = "(true and true) or (true or false)"; 这可以是任何东西,它可以变得更复杂,比如: string b
ruby : true == true == true syntax error, unexpected tEQ 对比JavaScript: true == true == true // => tr
这个问题已经有答案了: Equality of truthy and falsy values (JavaScript) (3 个回答) Which equals operator (== vs ==
为什么 R 中的 TRUE == "TRUE" 是 TRUE? R 中是否有与 === 等效的内容? 更新: 这些都返回FALSE: TRUE == "True" TRUE == "true" TRU
简单的查询,可能不可能,但我知道那里有一些聪明的人:) 给定一个 bool 参数,我希望定义我的 where 子句来限制特定列的输出 - 或不执行任何操作。 因此,给定参数@bit = 1,结果将是:
编写 Excel 公式时,将值设置为 true、“true”还是 true() 是否有区别? 换句话来说,以下哪一个是最好的?还是要看具体情况? if (A1 = 1, true, false) if
如果我们评估这个:TRUE AND TRUE,为什么会这样? 'yes' : 'no' 等于 TRUE 但不等于 yes 何时评估:(TRUE AND TRUE) ? 'yes' : 'no' 等于
这个问题在这里已经有了答案: Behaviour of and operator in javascript [duplicate] (1 个回答) 关闭 7 年前。 如题所说,我不太明白为什么(t
我有一个包含 FromDate 、 ToDate 、 VendorName 和 GoodsName 的表单,一旦一切为真,我需要显示结果 示例: FromDate="11/20/2019"、ToDat
我最近参加了 Java 的入门测试,这个问题让我很困惑。完整的问题是: boolean b1 = true; boolean b2 = false; if (b2 != b1 != b2) S
我有一个模型,我有: ipv4_address = models.IPAddressField(verbose_name=_('ipv4 address'), blank=True, null=Tru
False in [True,True] False in pd.Series([True,True]) 第一行代码返回False第二行代码返回 True! 我想我一定是做错了什么或者遗漏了什么。当我
我可以在 Coq 中证明以下内容吗? Lemma bool_uip (H1 : true = true): H1 = eq_refl true. 即true = true 的所有证明都相同吗? 例如
如果我的理解是正确的,他们做的事情完全一样。为什么有人会使用“for”变体?仅仅是味道吗? 编辑:我想我也在考虑 for (;;)。 最佳答案 for (;;) 通常用于防止编译器警告: while(
我是一名优秀的程序员,十分优秀!