200分求助，TWebBrowser中使用js调用delphi里面的方法

Question

本人TWebBrowser打开一个jsp+jquery的开发的网页，想使用根据jquery返回的结果不同，来调用delphi中不同的函数或方法，找了一天了，也不知道怎么做，本人是新手，请大侠门指教，尽量说的详细一点，谢谢！

Answer 1

可以通过window.external来调用浏览器外部的方法
http://eatpockyboy.blog.163.com/blog/static/116734640201110524444770建议你用EmbeddedWB，因为这个控件封装了更多的功能，而且有个OnGetExternal事件，你用自带的WebBrowser还得自己实现接口

Answer 2

看到了，OnGetExternal不知道怎么用，而且js中的代码应该怎么写，还劳烦告知，谢谢！

Answer 3

http://bbs.2ccc.com/topic.asp?topicid=382283
10楼提供了代码

Answer 4

这些可以参考：
http://www.nojober.com/thread-1021-1-1.html
http://blog.csdn.net/jh_zzz/article/details/4790336
http://www.cnblogs.com/xalion/archive/2012/01/05/2313707.html
http://aawwmate.blog.163.com/blog/static/7752825620101163317635/

Answer 5

function addRange(){
return '1';
}else{
return '2';
}
}；
上面是JS函数然后用TWebBrowser1 加载该网页，执行下面操作就会获取函数的返回值
 str:= WebBrowser1.OleObject.document.parentWindow.addRange('');然后你根据返回值做不通的操作还有一个方式，再JS函数中加个打开页面的操作，然后通过WebBrowser的WebBrowser1BeforeNavigate2时间进行拦截，进行处理

Answer 6

看到了，但是我想建立自己的，里面TLB文件时怎么来的？如何生成，还望不吝赐教
呵呵，我实在是菜鸟，还望大侠不要笑话，因为项目要用到这个，所以只有临时抱佛脚了

Answer 7

运行出错了，提示：
 First chance exception at $758FD36F. Exception class EOleError with message 'Object factory for class TTestExternal missing'. Process Test.exe (9412)
方便留下邮箱，我把程序发给你，帮我看看，可以吗？