window.external来调用delphi里的函数 ( 积分: 100 )

在网上看到了一遍文章
http://www.openitpower.com/wenzhang/97/7650_1.html
利用浏览器实现程序界面与实现的分离

我现在想在网页的javascript通过window.external来调用delphi里的函数

我按照上面的来做了，点了事件之后能调用delphi onGetExternal事件

function TForm1.ZoCWebBrowser1GetExternal(
out ppDispatch: IDispatch): HRESULT;
var
MyExternal: TMytest;
begin
MyExternal:= TMytest.Create; //创建实现自动化接口的对象
ppDispatch :=MyExternal; //将对象接口传递给WebBrowser Control
//这样当"external"对象被调用时，真正被调用的是我们实现的TMyExternal对象
Result :=S_OK;
end;

会执行这里

但在javascript里调用TMyExternal里的ShowAboutBox
函数时就不会执行这个函数的代码啦，请问是怎么回事呀？

是要做成接口发布出去

问题已解决，谢谢

多人接受答案了。