如何在DELPHI ACTIVE的OCX控件里写个响应事件来响应ASP ，就是希望在ASP里得到OCX里的一个变量值！(100分)

给分啊，哈哈：
例子：
新建一个ActiveForm，然后打开 Type Library 菜单，添加事件（展开IActiveFormXEvent节点），
增加一个事件OnCall,并加入两个参数（AID,AName）,AID是Long类型，AName是BSTR类型，
在ActiveForm上加一个按钮，代码如下：
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
FEvents.OnCall(100,'今天天气真好');//通过IActiveFormXEvents接口访问事件
end;

然后通过Web Deploy发布你的ActiveForm
打开Delphi自动生成的ActiveFormProj1.htm页面，编辑源码，
把你的
<OBJECT classid="clsid:1677F2FC-05FE-4FA3-95B4-E6359B48387E"
codebase="./ocx/ActiveFormProj1.ocx#version=1,0,6,0"
width=350
height=250
align=center
hspace=0
vspace=0
>
改为（此处就是加上对象标记）
<OBJECT name=aaa
classid="clsid:1677F2FC-05FE-4FA3-95B4-E6359B48387E"
codebase="./ocx/ActiveFormProj1.ocx#version=1,0,6,0"
width=350
height=250
align=center
hspace=0
vspace=0
>
<!-- script函数 -->
<script Language=Javascript>
function call(AID,AName){
alert(AID+AName);
}
</script>
<!-- 定义Delphi中访问的OnCall事件对应的Script方法 -->
<SCRIPT FOR="aaa"
EVENT="OnCall(AID,AName)"
LANGUAGE="JScript">
<!-- insert script commands -->
call(AID,AName);
</SCRIPT>

yunye,是否感谢你我要的就是FEvents响应事件的写法，终于搞定了
再次感谢各位的帮助

还不给分？ [][]

to yunye:
我粘贴你的代码生成一个ocx，在按钮单击时出现一个地址错误。

yunye, 等各位真是抱歉，我那天已经把分数给你们了阿，可能是网络故障没发出成功！
现在给分了：）

yunye, 等各位真是抱歉，我那天已经把分数给你们了阿，可能是网络故障没发出成功！
现在给分了：）

to FreeBit:
你必须有web页的方法对应,否则会出现无效地址访问

to yunye
<你必须有web页的方法对应,否则会出现无效地址访问 >
请问具体什么含义？
我在asp调用我写的一个打印函数就是不行