1

フォーム上の CCTV Web カメラからライブ フィードを再生する単純な VB プロジェクトを作成したいと考えています。このために、VLC を VB フォームに埋め込む予定です。私のPCにはすでにVLCがインストールされています。コンポーネント リストには、VLC ActiveX コンポーネントのエントリも表示されます。

ただし、同じものをプロジェクトに追加しようとすると、エラーが発生します。次のようなポップアップが表示されます。

ここに画像の説明を入力

ネットで提案されているように、私はすでにいくつかの解決策を試しました。しかし、私はこのしつこい問題を解決することはできません。

私のシステム構成は次のとおりです: Win XP 32 ビット SP3、Visual Basic 6、VLC 2.0.1

また、私の究極の要件は、フォームで Web カメラ フィードを再生することです。また、ウェブカメラ フィードを直接再生できる VLC が最適だと思いました。他に利用可能な解決策がある場合は、それらも知っていただければ幸いです。

追加の詳細が必要な場合はお知らせください。

4

3 に答える 3

1

これが別の回答であるかどうかはわかりませんが、実際の回答と解決策は次のとおりです。

このコードは、VideoLan VLC ActiveX プラグイン - axvlc.dll を参照しており、空白のフォームのみを必要とします。 注: [コンポーネント] > [コントロール] からではなく、[参照] から追加します。

Dim vlcControl As Object
Dim WithEvents vlcPlayer As AXVLC.VLCPlugin2

Private Sub Form_Load()

    Set vlcControl = Controls.Add("VideoLAN.VLCPlugin.2", "vlcControl")

    vlcControl.Height = 6000
    vlcControl.Width = 10000
    vlcControl.Visible = True

    Set vlcPlayer = vlcControl.object

    ' I haven't figured out how to get this to play local files...
    vlcPlayer.playlist.Add ("http://url.com/video.mp4")
    vlcPlayer.playlist.play
End Sub


Private Sub vlcPlayer_MediaPlayerPlaying()
    Debug.Print "Playing"
End Sub


Private Sub vlcPlayer_MediaPlayerEndReached()
    Debug.Print "Stopped"
End Sub

編集:これは、参照を必要としない別の例です:

このコードに必要なのは、空白のフォームと VLC ActiveX のインストール/登録のみです。 注: VLC イベント トリガーへのアクセス権はありません。

Dim vlcControl As Object

Private Sub Form_Load()

    Set vlcControl = Controls.Add("VideoLAN.VLCPlugin.2", "vlcControl")

    vlcControl.Height = 6000
    vlcControl.Width = 10000
    vlcControl.Visible = True


    ' I haven't figured out how to get this to play local files...
    vlcControl.object.playlist.Add ("http://url.com/video.mp4")
    vlcControl.object.playlist.play
End Sub
于 2015-04-30T20:13:16.550 に答える
0

明らかに、これは VLC プラグインの問題です。Web は 2012 年より前にさかのぼるこの問題に悩まされており、あなた、コンピューター、またはインストールとは何の関係もありません。

問題は単純で、エラーは何が起こっているかを正確に伝えています。古いプラグインは VB6 で正常に動作し、コントロールを追加すると、VB6 ツールボックスに2 つの異なるコントロールが追加されました。違いはわかりませんが、問題は、2 つのコントロールの名前が同じであることです。VB6 がこのコントロールを追加しようとすると、同じシステム名を持つ 2 つの異なるコントロールを追加しようとしますが、これは VB6 では許可されません。

言葉を広めてください。初心者に VLC を再インストールするように言わせないでください。それではどこにも行けないため、VLC の古い古いバージョンが必要です。:)

于 2015-04-29T00:48:37.293 に答える
0 
vlc.playlist.Add ("file:///C:\video.mp4")
于 2015-12-05T08:30:15.317 に答える