500分请求指教如何在WEB中调用OCX控件,并响应其事件(300分)

  • 主题发起人 主题发起人 app2001
  • 开始时间 开始时间
A

app2001

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个用DELPHI开发的OCX控件,是监测USB口的拔出和插入操作的,在VB和DELPHI中调用该OCX控件,只要有USB方面的操作,它都会响应该事件并提示相关信息出来。
Private Sub WinCallBackOBJX1_OnOsCallBack(ByVal Msg As Long, ByVal WParam As Long, ByVal LParam As Long, Result As Long)
Text1.Text = "USB有改变了"
+ CStr(Msg) + CStr(WParam) + CStr(LParam) + CStr (Result)
End Sub
但现在我需要在网页中调用这个OCX控件,并让其在页面中响应这个事件,我用如下两种方法来调用它都没有反应
<HTML>
<HEAD><TITLE>简单验证</TITLE>
</HEAD>
<BODY>
<OBJECT classid=&quot;clsid:E2D8C079-4CAC-409D-A9AC-CC15E8E3CF92&quot;
codebase=&quot;WinCallBackOBJXControl1.ocx#version=1,0,0&quot;
id=&quot;WinCallBackOBJXControl1&quot;
>
</OBJECT>
<script language=&quot;vbscript&quot;>
Private Sub OnOsCallBack(Msg,WParam,LParam, Result)
MsgBox &quot;USB有改变了&quot;

End Sub

</script>
</BODY>
</HTML>
二、
<html>

<head>
<meta http-equiv=&quot;Content-Type&quot;
content=&quot;text/html;
charset=gb2312&quot;>
<meta name=&quot;GENERATOR&quot;
content=&quot;Microsoft FrontPage 4.0&quot;>
<meta name=&quot;ProgId&quot;
content=&quot;FrontPage.Editor.Document&quot;>
<title>New Page 1</title>
</head>

<body>

<object classid=&quot;clsid:E2D8C079-4CAC-409D-A9AC-CC15E8E3CF92&quot;
id=&quot;WinCallBackOBJX1&quot;>
<param name=&quot;DoubleBuffered&quot;
value=&quot;0&quot;>
<param name=&quot;Enabled&quot;
value=&quot;-1&quot;>
<param name=&quot;Visible&quot;
value=&quot;-1&quot;>
</object>

<SCRIPT language=&quot;javascript&quot;
for=&quot;WinCallBackOBJXControl1&quot;
event=&quot;OnCallBack()&quot;>
alert('USB有改变了');
</SCRIPT>

</body>

</html>
有哪位熟悉这方面的朋友请给一下指教,事成之后再补上200分送上,拜托了!
 
有关那个OCX控件的下载地址http://app2001.gbaopan.com/files/bc13bdb832064be1a4b95f7db3e06196.gbp

还请大家多多指教,谢谢了
 
的确不行,换成event=&quot;OnOsCallBack()&quot;也没响应
为什么不知道

但是如果非要实现,变通下定制个ocx返回参数,然后在网页里面用timer去刷然后判断应该可以
 
有个好的开发软件去看看,可能有帮助的!
http://www.genusoft.com.cn
 
现在就是不能用TIME或循环来不停的检查了,那会影响效率,我看到别人是可以做得到的,但是我就实现不了,也许是哪个地方没有注意,我对于WEB网页开发不是很了解,还忘熟悉的朋友指点一二,谢谢了
 
<object classid=&quot;clsid:E2D8C079-4CAC-409D-A9AC-CC15E8E3CF92&quot;
id=&quot;WinCallBackOBJX1&quot;>
<param name=&quot;DoubleBuffered&quot;
value=&quot;0&quot;>
<param name=&quot;Enabled&quot;
value=&quot;-1&quot;>
<param name=&quot;Visible&quot;
value=&quot;-1&quot;>
</object>

<script LANGUAGE=&quot;VBScript&quot;>
Sub WinCallBackOBJX1_OnOsCallBack(Msg,WParam,LParam, Result)
MsgBox &quot;USB有改变了&quot;
'msgbox 可能没权限弹出
End Sub
</script>
 
风铃夜思雨朋友,谢谢你,按你的代码就有响应了,500分定当奉上,还请你告诉我,为什么你的VBScript的语句就可以了,而我用JAVA Script的语句类似,确执行不了呢?还有你说可能没有权限弹出,这个权限又是指什么呢?还请多多赐教。万分感谢。
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3424476
请到如上网址领分,谢谢
 
后退
顶部