一个灵巧的Delphi多播实现方案

1、一个灵巧的Delphi多播实现方案.必须是支持泛型的Delphi版本.也就是Delphi2009以后.强烈建议用DelphiXE.用法就是例如写一个Class指定一个Event,触发的时候会通知多个Method.和.NET的多播事件机制是一样的.用法例如:type TFakeButton = class(TButton) private FMultiCast_OnClik : TMulticastEvent; public constructor Create(AOwnder : TComponent);override; destructor Destroy; override; proce

2、dure Click; override; property MultiCast_OnClik : TMulticastEvent 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 :=

3、 TMulticastEvent.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.SetBo

4、unds(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.这个做法主要是省了写一个事件容器,然后循环调用的麻烦. 下面是方案的代码

5、: 一个多播方法的实现.和一位同事(一位Delphi牛人)一起讨论了一下Delphi下多播事件的实现.他提供了一个易博龙技术牛人的多播事件方案.这个方案非常牛,但是依赖Delphi的编译器特性太多,只能用在开启优化的代码.而DelphiXE默认Debug是关闭优化的.重写了一个TMulticastEvent.这个不依赖Delphi的编译器产生的代码特性. 其中InternalInvoke基本上是那位易博龙大牛的代码.加了详细的注释wr. 2011.5.28 unit MultiCastEventUtils;interface uses Generics.collections, TypInfo

6、, ObjAuto, SysUtils;type / TMulticastEvent = class private FMethods : TList; FInternalDispatcher: TMethod; /悲催的是泛型类的方法不能内嵌汇编,只能通过一个非泛型的父类来实现 procedure InternalInvoke(Params: PParameters; StackSize: Integer); public constructor Create; destructor Destroy; override; end; TMulticastEvent = class(TMulti

7、castEvent) private FEntry : T; function ConvertToMethod(var Value):TMethod; procedure SetEntry(var AEntry); public constructor Create; destructor Destroy; override; procedure Add(AMethod : T); procedure Remove(AMethod : T); function IndexOf(AMethod: T): Integer; property Invok : T read FEntry; end;i

8、mplementation TMulticastEvent procedure TMulticastEvent.Add(AMethod: T); var m : TMethod;begin m := ConvertToMethod(AMethod); if FMethods.IndexOf(m) 0 then FMethods.Add(m);end;function TMulticastEvent.ConvertToMethod(var Value): TMethod; begin Result := TMethod(Value);end;constructor TMulticastEvent

9、.Create(); var MethInfo: PTypeInfo; TypeData: PTypeData;begin MethInfo := TypeInfo(T); if MethInfo.Kind tkMethod then begin raise Exception.Create(T only is Method(Member function)!); end; TypeData := GetTypeData(MethInfo); Inherited; FInternalDispatcher := CreateMethodPointer(InternalInvoke, TypeDa

10、ta); SetEntry(FEntry);end;destructor TMulticastEvent.Destroy; begin ReleaseMethodPointer(FInternalDispatcher); inherited Destroy;end;function TMulticastEvent.IndexOf(AMethod: T): Integer; begin Result := FMethods.IndexOf(ConvertToMethod(AMethod);end;procedure TMulticastEvent.Remove(AMethod: T); begi

11、n FMethods.Remove(ConvertToMethod(AMethod);end;procedure TMulticastEvent.SetEntry(var AEntry); begin TMethod(AEntry) := FInternalDispatcher;end; TMulticastEvent constructor TMulticastEvent.Create; begin FMethods := TList.Create;end;destructor TMulticastEvent.Destroy; begin FMethods.Free; inherited D

12、estroy;end;procedure TMulticastEvent.InternalInvoke(Params: PParameters; StackSize: Integer); var LMethod: TMethod;begin for LMethod in FMethods do begin /如果用到了栈(也就是Register约定参数大于2或者stdcall,cdecl约定)就把栈内所有数据都拷贝参数栈里面 if StackSize 0 then asm MOV ECX,StackSize /Move的第三个参数,同时为下一步Sub ESP做准备 SUB ESP,ECX /把

13、栈顶 - StackSize(栈是负向的) MOV EDX,ESP /Move的第二个参数 MOV EAX,Params LEA EAX,EAX.TParameters.Stack8 /Move的第一个参数 CALL System.Move end; /Register协议填写三个寄存器,EAX肯定是Self,如果是其他协议寄存器被填写也没啥影响 asm MOV EAX,Params /把Params读到EAX MOV EDX,EAX.TParameters.Registers.DWORD0 /EDX MOV ECX,EAX.TParameters.Registers.DWORD4 /EAX

14、MOV EAX,LMethod.Data/把Method.Data给到EAX,如果是Register约定就是Self.否则也没影响 CALL LMethod.Code/调用Method.Data end; end;end;end. 本文来自CSDN博客，转载请标明出处：/wr/archive/2011/05/28/.aspx比如 你在动态创建的时候 加上 btnsI.tag:=i;Sender 就能 判断if TButton(Sender).tag = 0 then就说点击是你动态创建的按钮里面的第一个按钮：你的意思是把多个按钮的click事件指向一个事件

15、处理过程，然后再判断到底是按下那个按钮吗？ 2：if(Sender=Button1) thenShowMessage(button1被按下了.); 3：在Click事件里写如下：ShowMessage(TButton(Sender).Name); /显示Button的名字4：桦树皮说的对，就是这个意思 5：下面的是image的事件，button是一样的unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls;typeTForm1 = clas

16、s(TForm)procedure FormCreate(Sender: TObject);private Private declarations publicprocedure myImageArrayClick(Sender:TObject);end;const n = 10;varForm1: TForm1;myimage:array0.n of TImage;implementation$R *.DFMprocedure TForm1.myImageArrayClick(Sender:TObject);beginTImage(Sender).Picture.loadFromFile(

17、2.bmp);/这里可以改成ShowMessage(IntToStr(TButton(Sender).Tag);end;procedure TForm1.FormCreate(Sender: TObject);var i,j:Integer;beginfor i:=0 to n dofor j:=0 to n dobeginmyimagei*n j:=TImage.Create(self);myimagei*n j.Parent := Form1;myimagei*n j.SetBounds(j*48,i*48,48,48);myimagei*n j.OnClick:=myImageArray

18、Click;/ myimagei*n j.Picture.LoadFromFile(1.bmp);/这里该为myButtoni*n j.Tag:=i*n j;myimagei*n j.Visible:=true;end;end;end.6：这样可能麻烦点，但保证没问题动态创建button时定义好tag属性，然后在事件处理程序中这样写case (sender as Tbutton).tag if 1:/button1被按下2:/button2被按下-与此类推7：我试试 8：谢谢 9：问题解决了 10：s 11：:)using System;using System.Collections;usi

19、ng System.ComponentModel;using System.Data;using System.Drawing;using System.Web;using System.Web.SessionState;using System.Web.UI;using System.Web.UI.WebControls;using System.Web.UI.HtmlControls;namespace ZeroWire.Web.SFA/ / Top2 的摘要说明。/ public class Top2 : System.Web.UI.Pageprotected System.Web.UI

20、.WebControls.Button BtnIndex;protected System.Web.UI.WebControls.Button BtnCale;protected System.Web.UI.WebControls.Button BtnAcco;protected System.Web.UI.WebControls.Button BtnCont;protected System.Web.UI.WebControls.Button BtnProd;protected System.Web.UI.WebControls.Button BtnDocu;protected System

21、.Web.UI.WebControls.Button BtnFore;protected System.Web.UI.WebControls.Button BtnDash;protected System.Web.UI.WebControls.Button BtnOpp;private void Page_Load(object sender, System.EventArgs e)/ 在此处放置用户代码以初始化页面if(!Page.IsPostBack)RestoreBackColor();#region Web 窗体设计器生成的代码override protected void OnIni

22、t(EventArgs e)/ CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。/InitializeComponent();base.OnInit(e);/ / 设计器支持所需的方法 - 不要使用代码编辑器修改/ 此方法的内容。/ private void InitializeComponent() Add_Event();this.Load += new System.EventHandler(this.Page_Load);#endregionprivate void Add_Event()this.BtnOpp.Click += new System.Event

23、Handler(this.HeadBtn_Click);this.BtnCale.Click += new System.EventHandler(this.HeadBtn_Click);this.BtnAcco.Click += new System.EventHandler(this.HeadBtn_Click);this.BtnCont.Click += new System.EventHandler(this.HeadBtn_Click);this.BtnProd.Click += new System.EventHandler(this.HeadBtn_Click);this.BtnDocu.Click += new System.EventHandler(this.HeadBtn_Click);this.BtnFore.Cl