一个灵巧的elphi多播实现方.docVIP

一个灵巧的Delphi多播实现方案.必须是支持泛型的Delphi版本.也就是Delphi2009以后.强烈建议用DelphiXE. 用法就是例如写一个Class指定一个Event,触发的时候会通知多个Method.和.NET的多播事件机制是一样的. 用法例如: type TFakeButton = class(TButton) private FMultiCast_OnClik : TMulticastEventTNotifyEvent; public constructor Create(AOwnder : TComponent);override; destructor Destroy; override; procedure Click; override; property MultiCast_OnClik : TMulticastEventTNotifyEvent read FMultiCast_OnClik; end; { TTest } procedure TFakeButton.Click; begin inherited; //这样调用可以通知多个事件 FMultiCast_OnClik.Invok(Self); end; constructor TFakeButton.Create(AOwnder : TComponent); begin inherited Create(AOwnder); FMultiCast_OnClik := TMulticastEventTNotifyEvent.Create; end; destructor TFakeButton.Destroy; begin FMultiCast_OnClik.Free; inherited Destroy; end; // procedure TForm2.Button1Click(Sender: TObject); var Test : TFakeButton; begin Test := TFakeButton.Create(Self); Test.MultiCast_OnClik.Add(TestA); Test.MultiCast_OnClik.Add(TestB); Test.SetBounds(0,0,100,100); test.Caption := 试试多播; Test.Parent := Self; end; procedure TForm2.TestA(Sender: TObject); begin ShowMessage(Caption); end; procedure TForm2.TestB(Sender: TObject); begin ShowMessage(FormatDateTime(yyyy-mm-dd hh:nn:ss,now)); end; 在按钮上点一下,直接会触发TestA,和TestB. 这个做法主要是省了写一个事件容器,然后循环调用的麻烦. 下面是方案的代码: { 一个多播方法的实现. 和一位同事(一位Delphi牛人)一起讨论了一下Delphi下多播事件的实现. 他提供了一个易博龙技术牛人的多播事件方案.这个方案非常牛,但是依赖Delphi的 编译器特性太多,只能用在开启优化的代码.而DelphiXE默认Debug是关闭优化的. 重写了一个TMulticastEvent.这个不依赖Delphi的编译器产生的代码特性. 其中InternalInvoke基本上是那位易博龙大牛的代码.加了详细的注释 wr960204. 2011.5.28 } unit MultiCastEventUtils; interface uses Generics.collections, TypInfo, ObjAuto, SysUtils; type // TMulticastEvent = class private FMethods : TListTMethod; FInternalDispatcher: TMethod; //悲催的是泛型类的方法不能内嵌汇编,只能通过一个非泛型的父类来实现 procedure InternalInvoke(Params: PParameters; StackSize: Integer); public constructor Create; destructor Destroy; override; end; TMulticastEventT = class(TMulti