1

mplayer を使用して、特定のビデオ形式用に PHP で記述されたクロスプラットフォーム プレーヤーを作成しようとしています。
PHP スクリプトはビデオ ファイルを作成し、mplayer を起動しますが、ビデオ ファイルの作成は続けます。
PHP スクリプトの速度が十分ではなく、ビデオがバッファリングされていないために mplayer がクラッシュすることがあります。
そのため、バッファリングが必要な場合は mplayer を制御して一時停止する必要があります。
テスト用に、5 秒後にビデオを停止しようとする関数を作成しました。
(コマンドのリストは次のとおりです: http://www.mplayerhq.hu/DOCS/tech/slave.txt ) 

...
function OnClickButtonStart() {
    $mplayer = popen("mplayer -wid " .  $wid . " -slave -quiet -idle " . $filename . " > /dev/null 2> /dev/null  &", "w");
    var_dump($mplayer);
    sleep(5);
    echo "\nPausing...";
    fputs($mplayer, "pause\n");
    fflush($mplayer);
    echo "done!\n";
    return $mplayer;
}
...

ただし、出力が次の場合でも:

resource(5) of type (stream)
Pausing...done!

動画が止まらない！
どうしたの？

4

1 に答える 1

1

VB.NET では、次のコードを使用してミュートを再生し、音楽を一時停止します。どうぞご自由にお使いください。あなたの問題は、コマンド機能の送信にあると思います。

    Private Sub funPlayMusic()
    ps = New Process()
    ps.StartInfo.FileName = "D:\Music\mplayer.exe "
    ps.StartInfo.UseShellExecute = False
    ps.StartInfo.RedirectStandardInput = True

    'ps.StartInfo.CreateNoWindow = True
    args = "-fs  -noquiet -identify -slave " '
    args += "-nomouseinput -sub-fuzziness 1 "
    args += " -vo direct3d, -ao dsound "
    '    -wid will tell MPlayer to show output inisde our panel
    '    args += " -vo direct3d, -ao dsound  -wid ";
    '    int id = (int)panel1.Handle;
    '    args += id;
End Sub


  Public Function SendCommand(ByVal cmd As String) As Boolean
    Try
        If ps IsNot Nothing AndAlso ps.HasExited = False Then
            ps.StandardInput.Write(cmd + vbLf)
            Return True
        Else
            Return False
        End If

    Catch ex As Exception
        Return False
    End Try
End Function 


   Public Sub Playsong(ByVal Songfilelocation As String)

    Try
        ps.Kill()
    Catch
    End Try
    Try
        ps.StartInfo.Arguments = args + " """ + Songfilelocation + """"
        ps.Start()

        SendCommand("set_property volume " + "80")
    Catch e As Exception
        MessageBox.Show(e.Message)
    End Try

End Sub


  Private Sub btnPause_Click(sender As Object, e As EventArgs) Handles       btnPlayPause.Click
    SendCommand("pause")


   End Sub


    Private Sub btnMute_Click(sender As Object, e As EventArgs) Handles btnMute.Click
    SendCommand("mute")


  End Sub
于 2016-03-29T14:41:17.797 に答える