余
余六
Unregistered / Unconfirmed
GUEST, unregistred user!
最近有些发晕
关于可连接对象以前做过VC的例程，是自己实现的接口，很麻烦。
最近发现DELPHI提供了支持，封装在TConnectionPoint和TConnectionPoints
类里，翻了一下帮助，感觉象没写一样
而且帮助里的
”Exposing an application properties, methods, and events“的一节中有这样一段代码：
procedure TMyAutoObject.Initialize;
begin
inherited Initialize;
FConnectionPoints:= TConnectionPoints.Create(Self);
if AutoFactory.EventTypeInfo <> nil then
FConnectionPoints.CreateConnectionPoint (AUtoFactory.EventIID,
ckSingle, EventConnect);
OnEvent = EventHandler;{ Assign an event to the event handler }
//上面是=？？？？就算换成:=依然不对,迷惑
end;
哪位大虾有这方面的DELPHI例子？（李维的那个老早的例子我运行后报错）
最好是创建Automation Server时候带了"Generate Event Support Code"选项的。
E-Mail;fish_dong@sina.com
谢谢
关于可连接对象以前做过VC的例程，是自己实现的接口，很麻烦。
最近发现DELPHI提供了支持，封装在TConnectionPoint和TConnectionPoints
类里，翻了一下帮助，感觉象没写一样
而且帮助里的
”Exposing an application properties, methods, and events“的一节中有这样一段代码：
procedure TMyAutoObject.Initialize;
begin
inherited Initialize;
FConnectionPoints:= TConnectionPoints.Create(Self);
if AutoFactory.EventTypeInfo <> nil then
FConnectionPoints.CreateConnectionPoint (AUtoFactory.EventIID,
ckSingle, EventConnect);
OnEvent = EventHandler;{ Assign an event to the event handler }
//上面是=？？？？就算换成:=依然不对,迷惑
end;
哪位大虾有这方面的DELPHI例子？（李维的那个老早的例子我运行后报错）
最好是创建Automation Server时候带了"Generate Event Support Code"选项的。
E-Mail;fish_dong@sina.com
谢谢
