kxing 发表于 2010-4-14 02:47:11

求助关于flv播放器的问题

这个市我从官方找来得flv播放器。
但是不会用，好像有本地的路径和网络的路径。
都填写了依然无法播放，特意来求教高手们。
多谢！！！
Global $sPlayer = "/1.swf"
Global $sMovie = "http://download.omroep.nl/bnn/mediadepot/flv/4/10/8812.flv?fromExe"

$GUI = GUICreate("Lama's", 800, 506)

$oObj = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$oPlayer = GUICtrlCreateObj($oObj, 0, 0, 800, 506)

With $oObj
    .Bgcolor = "#000000"
    .AllowFullscreen = true
    .AllowNetworking = "all"
    .AllowScriptAccess = "never"
    .FlashVars = "flv="&$sMovie
    .Movie = @ScriptDir&$sPlayer
;~.DisableLocalSecurity()
EndWith
   
GUISetState()
While 1
    Switch GUIGetMsg()
    Case -3
      Exit
    EndSwitch
Wend

guland 发表于 2010-4-14 07:39:33

回复 1# kxing Global $sPlayer = @ScriptDir&"\2.swf"
$GUI = GUICreate("Lama's", 800, 506)
$oObj = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$oPlayer = GUICtrlCreateObj($oObj, 0, 0, 800, 506)
    $oObj.Bgcolor = "#000000"
    $oObj.AllowFullscreen = true
    $oObj.AllowNetworking = "all"
    $oObj.AllowScriptAccess = "never"
    $oObj.Movie = $sPlayer
GUISetState()
While 1
    Switch GUIGetMsg()
    Case -3
      Exit
    EndSwitch
Wend

newuser 发表于 2010-4-14 08:59:42

回复 2# guland
能解释以下最后一段用于循环退出的意思吗?
尤其是 case -3 之后 exit 吗?
这是一个现成的规定吗?

guland 发表于 2010-4-14 09:36:01

回复 3# newuser


    关于这个问题你去查看关于 GUIGetMsg 的信息会对你有帮助

yuan_53770 发表于 2010-4-14 13:30:51

去看一下，谢谢提供

kxing 发表于 2010-4-14 17:50:14

感谢.....!!!

kxing 发表于 2010-4-14 17:51:58

还是播放不了.用的是flv格式。

kxing 发表于 2010-4-14 17:53:57

我是想做成给他一个flv网络地址就能播放那种。
在本地的话意义就不大了。

lxz 发表于 2010-4-14 18:14:53

感谢,代码收藏了.

menfan 发表于 2010-4-14 21:01:07

呵呵，学习一下。。
页: [1]
查看完整版本: 求助关于flv播放器的问题