有些API函数需要传进一个回调函数指针, 在.NET中可以传一个delegate过去, 不过.NET到底是如何辨别回调函数的调用约定呢? 虽然Window API的回调函数都是以stdcall来声明, 但也不代表所有的都是这样, 比如, 我写个比较离经判道的Win32代码:
library CBDll;
uses
SysUtils,
Classes;
{$R *.res}
type
TMyCallBackFunc1 = procedure (P1: Integer; P2: Integer); stdcall;
TMyCallBackFunc2 = procedure (P1: Integer; P2: Integer); pascal;
procedure DoCallBack1(Proc: TMyCallBackFunc1); stdcall;
begin
Proc(1, 2);
end;
procedure DoCallBack2(Proc: TMyCallBackFunc2); stdcall;
begin
Proc(1, 2);
end;
exports
DoCallBack1,
DoCallBack2;
begin
end.
然后在另一个.net项目中使用这个DLL
type
TMyCallBackFunc1 = procedure (P1: Integer; P2: Integer);
TMyCallBackFunc2 = procedure (P1: Integer; P2: Integer);
procedure DoCallBack1(Proc: TMyCallBackFunc1); external 'CBDll.dll';
procedure DoCallBack2(Proc: TMyCallBackFunc2); external 'CBDll.dll';
procedure CallBack1(P1: Integer; P2: Integer);
begin
ShowMessageFmt('%d, %d', [P1, P2]);
end;
procedure CallBack2(P1: Integer; P2: Integer);
begin
ShowMessageFmt('%d, %d', [P1, P2]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DoCallBack1(@CallBack1);
DoCallBack2(@CallBack2);
end;
DoCallBack1是使用调用约定为stdcall的回调函数指针, 而DoCallBack2使用pascal, 两种调用约定不同之处在于pascal的参数入栈顺序按语法声明顺序从左到右依次入栈, 而stdcall与之相反, 结果DoCallBack1弹出的消息是"1, 2", DoCallBack2弹出的消息是"2, 1", 可见.NET P/Invoke处理回调只处理了stdcall这一种类型
WinForms组件有一个很酷的功能, 能够为其它的组件扩展属性. 比如: ToolTip组件, 当一个窗体上还没有这个组件的时候, 窗体上的控件如Button等都没ToolTip属性, 当你拖一个ToolTip到窗体, 这时候其它控件都有ToolTip这个属性了, 好像是ToolTip给这些控件添加属性. 实际上并非ToolTip把性加到其他控件中, 而是ToolTip组件管理了一个Hashtable, 维护控件和ToolTip之间的对应.
实现这种组件的两个要点是:
1. 对组件应用ProvideProperty特性; ProvideProperty特性的构造有两个参数, 第一个是要扩展的属性名称, 第二个是要扩展的类类型.
2. 对组件实现System.ComponentMode.IExtenderProvider.
IExtenderProvider接口定义为:
public interface IExtenderProvider {
bool CanExtend(object extendee);
}
当一个组件应用了ProvideProperty特性时, IDE从该组件查找IExtenderProvider接口,并且对符合所应用的ProvideProperty特性中的第二个参数表示的类型的类, 调用CanExtend(). 如果CanExtend()返回true, 则在IDE中的属性编辑窗口添加了ProvideProperty所指示的属性.
在ProvideProperty特性所标记的类内，必须实现Get<name>和 Set<name> 方法。例如，如果用 [ProvideProperty("PropertyName")] 标记了某个类，则必须实现 GetPropertyName 和 SetPropertyName 方法。
例如, 我们可以创建一个可以扩展Control类及其派生类的扩展器提供器:
[ProvideProperty("MyProperty", typeof(Control))]
public class MyClass: Component, IExtenderProvider {
private Hashtable m_props = new Hashtable();
// 提供MyProperty属性的Getter部分.
public string GetMyProperty(Control ctrl) {
string str = m_props[ctrl] as string;
if (str == null)
str = "";
return str;
}
// 提供MyProperty属性的Setter部分.
public void SetMyProperty(Control ctrl, string value) {
if (value == null)
value = "";
if (value.Length == 0) {
m_props.Remove(ctrl);
}
else {
m_props[ctrl] = value;
}
}
// IExtenderProvider interface
public bool CanExtend(object extendee)
{
// Exclude myself and not Control class
return ((extendee is Control) && !(extendee is TMyExtender));
}
}
该扩展器没有实现什么功能, 只是把属性保存起来而己.
