急求例子:activeXForm如何获取网页上的数据？？

[ortegasl3]

我用Delphi６.0写了一个activeXForm，上面有一个Edit1的文本框，然后在一个网页中调用了这个activeXForm，网页上也有一个文本框，现在想实现：网页文本框中的内容可以在按一个按纽后传入到activeXForm上的文本框中显示!
我试着在activeXForm的type library里面给activeXForm加上一个Method:set_edit(const Value :WideString);
然后在ＰＡＳ文件中生成了下面的方法：
procedure TactiveXForm.set_edit(const Value: WideString);
begin
edit1.Text:=value; //这句是我加上去的
end;

编译成ＯＣＸ文件给网页调用，但是文本框中没有显示出我给赋的值！！！！
网页代码如下：
<SCRIPT language="VBScript">
Sub some_name
test.Set_Edit("haha..Butterfly in the sky!")
End Sub
</Script>
<OBJECT
id=test
classid="clsid:6EC854A7-BB56-4DDB-952A-29F6B523F284"
codebase="http://localhost/dzsqz/ocx/prj_ekeygl.ocx#version=1,0,9,0"
width=445
height=309
align=center
hspace=0
vspace=0
>
</OBJECT>
请高手指点，如有例子参考那就更好，先谢过了！！很急的问题，下周要交货的，谢谢了．

[ortegasl3]

没人知道吗？？自己顶一下！！！

[蒋晟]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q172763

[FigoZhu]

可能是没有被加载。
你先把你的IE的安全性调的低一些。