打开Type Library(*_TLB.pas或直接打开*.tlb文件),在IActiveFormX中New一个方法,保存后Delphi会自动完成它声明代码,你只要完成其中的实现代码就可以了。比如增加一个Hello方法:
procedure TActiveFormX.Hello;
begin
ShowMessage('Hello');
end;
网页中用js调用,如:
<object
classid="clsid:12345678-1234-5678-1234-567812345678"
codebase="Project1.ocx#version=1,0,0,0"
width=400
height=300
align=middle
hspace=0
vspace=0
name=MyObject
>
</object>
写js调用你的方法
<javascript language="javascript">
<!--
MyObject.Hello;
//-->
</script>
你也可以给你的方法加上参数,比如你在类型库中给Hello添加一个Str参数,类型为BSTR,则Delphi自动生成如下代码
procedure TActiveFormX.Hello(const Str: WideString);
begin
ShowMessage(Str);
end;
写js调用方法
<javascript language="javascript">
<!--
MyObject.Hello("Hello");
//-->
</script>
同样的,也可能给ActiveX添加属性,事件等等。。。