如何在delphi开发的ActiveX中调用JavaScript函数(100)

如在html文件中有下面一函数<script language="javascript"> function　test(data){ alert("data");
};</script>在同一html文件中有下面一控件<OBJECT id="test" classid="clsid:A71FA199-0103-4E8C-A99A-859178D4671C" codebase="http://xzm/TestProj1.ocx#version=1,0,0,0" width=350 height=250 align=center hspace=0 vspace=0></OBJECT>问，如果在控件中能调用javascript中函数test(data),如果把它设置为回调函数，使控件中能调用test(data),开发控件时应该如何？

一、棋牌游戏客户端开发工程师工作内容：1、参与棋牌游戏客户端等相关产品研发工作2、参与棋牌游戏设计、编码工作职位要求：1、精通Delphi或者MFC，有良好的面向对象设计、分析能力；2、有Windows开发经验，熟悉Delphi或MFC程序开发工具；3、熟悉GDI/DirectX/SDL者优先；4、精通多线程、TCP协议、Socket等；5、熟悉Win32API，熟悉常用数据结构和算法；6、有棋牌游戏程序员工作经验者优先。二、棋牌游戏服务端开发工程师工作内容：1、参与棋牌游戏服务端等相关产品研发工作2、参与棋牌游戏设计、编码工作职位要求：1、精通Java或者C/C++，有良好的面向对象设计、分析能力；2、有Linux开发经验，熟悉Java或C/C++程序开发工具；3、精通多线程、TCP协议、Socket等；4、熟悉常用数据结构和算法；5、熟悉SQL，至少精通1个数据库系统;6、熟悉PostgreSQL数据库优先;7、有棋牌游戏程序员工作经验者优先。三、棋牌游戏WEB平台开发工程师工作内容：1、参与棋牌游戏WEB相关产品研发工作2、参与棋牌游戏网站建设职位要求：1、精通Java或者ruby/rails，有良好的面向对象设计、分析能力；2、有Linux开发经验，熟悉Java或ruby/rails程序开发工具；3、精通Html、div、css等；4、熟悉ruby/rails优先；5、有WEB程序员工作经验者优先。广东湛江领航科技有限公司====================================== 陈建 经理地址：广州湛江市霞山区民享路42-46号电话:0759-2238577传真:0759-2238577手机:18675993330Q Q: 1151727001Email: lh@gamelh.com网站: http://www.gamelh.com

这个我弄过，不过网上有很多这方面的文章，你可以看看的～

提供思路：1.使activex获得网页的内容。2.然后调用js函数

uses ComObj;{此函数需要 ComObj 单元的支持}{参数 JsCode 是要执行的 Js 代码;
参数 JsVar 是要返回的变量}function RunJs(const JsCode, JsVar: string): string;var script: OleVariant;begin
try script := CreateOleObject('ScriptControl');
script.Language := 'JavaScript';
script.ExecuteStatement(JsCode);
Result := script.Eval(JsVar);
except Result := '';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);var s: string;begin
s := RunJs(Memo1.Text, 'str');
ShowMessage(s);end;
end.

ActiveX加个事件然后在Javascript赋值，不行吗？有什么问题？