关于UPNP的InvokeAction问题

yixinuestc 发布于 2012/12/03 14:52
阅读 405
收藏 0

大家好,最近在利用UPNP的Presentation功能控制DMR,Presentation的HTML如下:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<head>
<TITLE>Remote Control Test !</TITLE>
<SCRIPT language=VBScript>
' ********************************************************
' Download the description document from the UPnP device
' ********************************************************
Dim RemoteDesc
Set RemoteDesc = CreateObject("UPnP.DescriptionDocument")
RemoteDesc.Load("tv_render_des.xml")

' ********************************************************
' Get the Root Device from the description document
' ********************************************************
Dim RemoteDevice
Set RemoteDevice = RemoteDesc.RootDevice

' ********************************************************
' Attach the event handler to the tv control service
' ********************************************************
Dim RemoteControlService
set RemoteControlService=RemoteDevice.Services("urn:schemas-upnp-org:service:AVTransport:1")

' **********************************************************
' Button action callbacks invoke actions
' **********************************************************

function SetPause()
    object[] input = new object[1]
    {
        "0" // Object Id
    };

    object output = new object()
    RemoteControlService.InvokeAction("Pause",input, ref output)
    MsgBox("start2")
end function

</SCRIPT>
</head>

<BODY>
  <H1>Welcome!</H1>
    <H2>Duration:</H2><B>0</B>
    <div>
<input type="button" onclick="SetPause()" value="pause" />
</div>

</BODY>
</HTML>

为什么每次InvokeAction都不起作用,我在网上找了找了很久,有很多朋友都遇到类似的问题,但是都没有人答复,请教这里的高人给予答复,谢谢!

这是网上其他朋友遇到的问题,和我的一模一样

http://bbs.csdn.net/topics/280032706

可以参考,谢谢

 

加载中
返回顶部
顶部