演示EmbeddedWB(D5-D2009)组件如何通过GetExternal事件来达到从WEB页面控制浏览器的功能

本例子是演示EmbeddedWB(D5-D2009)组件如何通过GetExternal事件来达到从WEB页面控制浏览器的功能。

实现的步骤概括起来就是以下几步:
1、在原工程中创建一个TAutoObject对象(与创建ActiveX相似);
例如本例子建的TAutoObject对象是TBrowserToDelphi(BrowserToDelphiImpl.pas文件)

2、给TAutoObject对象增加要暴露给WEB页面调用的方法或属性(与设置ActiveX的方法和属性相同);

3、如果要从TBrowserToDelphi中操作Form的属性或方法,则在TBrowserToDelphi中uses引入要操作Form类;

4、在WEB页面中,通过JavaScript或VBScript来访问TBrowserToDelphi暴露出来的方法和属性;
例如:
<SCRIPT type="text/javascript">
//访问name属性
function GetName(){
 document.all.name.value = window.external.name;
}
function SetName(){
 window.external.name = document.all.name.value ;
}

//访问number属性
function GetNumber(){
 document.all.number.value = window.external.number;
}
function SetNumber(){
 window.external.number = document.all.number.value;
}

//访问ShowMsg方法
function ShowMessage(){
 window.external.ShowMsg( document.all.msg.value);
}

//访问ChgWinSize方法
function ChangeWinSize(){
 window.external.ChgWinSize(  document.all.w.value,  document.all.h.value);
}

</SCRIPT>

你可能感兴趣的:(JavaScript,Web,浏览器,VBScript)