写了个behavior让没有8.5的同志们也可以使用realmedia,我试了试在beginsprite里面设置路径什么的都不成功,最后没法只好设在exitframe的事件里了,我估计它的处理要一定的时间如果接连设置的话反应不过来,不知道对不对,不过反正这个时可以的

property spriteNum
property path,context,addressType,mediaType
property bSet
global gVideoSpriteNum
on isOkToAttach me, aSpriteType, aSpriteNum
return sprite(aSpriteNum).member.type=#activex
end
on getPropertyDescriptionList me
tProp=[:]
addprop tprop,#mediaType, [#comment : "Controls Type",#format : #string, #default : "ImageWindow", #range : ["ImageWindow", "All", "ControlPanel", "PlayButton", "PositionSlider"]]
addProp tProp,#addressType,[#comment:"The path type",#format,#string,#default:"relative address",#range:["relative address","absolute address"]]
addProp tProp,#Path,[#comment:"The vidio path,use relative address",#format:#string,#default:"File Name or URL:"]
addProp tProp,#context,[#comment:"Disable right click context menu?",#format:#boolean,#default:1]
return tProp
end getPropertyDescriptionList
on beginSprite me
path=reSetPath(path)
gVideoSpriteNum=spriteNum
-- sprite(gVideoSpriteNum).setSource(path)
-- sprite(gVideoSpriteNum).setEnableContextMenu(not(context))
-- sprite(gVideoSpriteNum).width=sprite(gVideoSpriteNum).getClipWidth()
-- sprite(gVideoSpriteNum).height=sprite(gVideoSpriteNum).getClipHeight()
-- sprite(gVideoSpriteNum).doPlay()
bSet=false
--
end
on exitFrame me
if not bSet or sprite(gVideoSpriteNum).width=0 then
sprite(gVideoSpriteNum).setSource(path)
sprite(spriteNum).controls = mediaType
sprite(gVideoSpriteNum).setEnableContextMenu(not(context))
sprite(gVideoSpriteNum).width=sprite(gVideoSpriteNum).getClipWidth()
sprite(gVideoSpriteNum).height=sprite(gVideoSpriteNum).getClipHeight()
bSet=true
end if
end
on reSetPath tPath
newPath=""
if addressType="relative address" then
tPath=the moviePath & tPath
end if
t=the itemDelimiter
the itemDelimiter="\"
repeat with i=1 to tPath.item.count
newPath=newPath & tPath.item[i]
if i
newPath=newPath & "/"
end if
end repeat
the itemDelimiter=t
return newPath
end