Bonjour,

j'ai un soucis avec mon code.
Je voudrais afficher ma caméra, mais je n'ai rien dans ma picture box

j'ai mis mes id, psw et url dans des textboxs et cela fonctionne avec firefox, donc pas de soucis avec mon authentification

pas de soucis lors de la compilation...

vous auriez une piste ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Option Strict On
 
Imports System.ComponentModel
Imports System.IO
Imports System.Management
Imports System.Net
Imports System.Threading
 
Imports AForge.Controls
Imports AForge.Video
Imports AForge.Video.DirectShow
 
.....
    Private Sub CloseVideoSource()
        If (Me.videoSourcePlayer.VideoSource IsNot Nothing) Then
            Me.videoSourcePlayer.SignalToStop()
            Dim num As Integer = 0
            Do
                Thread.Sleep(100)
                num += 1
            Loop While num < 30 AndAlso Me.videoSourcePlayer.IsRunning
            If (Me.videoSourcePlayer.IsRunning) Then
                Me.videoSourcePlayer.[Stop]()
            End If
            Me.videoSourcePlayer.VideoSource = Nothing
        End If
    End Sub
 
 
 
 
 
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        OpenMJPEGURL()
    End Sub
 
    Private devicesCombo As New ComboBox
    Private videodevices As New FilterInfoCollection(FilterCategory.VideoInputDevice)
 
    Public WithEvents videoSourcePlayer As New AForge.Controls.VideoSourcePlayer
    Public WithEvents le_timer As New System.Windows.Forms.Timer
 
    Private Sub OpenMJPEGURL()
        Try
            Dim stream As New MJPEGStream(box_url.Text)
            stream.Login = box_usr.Text
            stream.Password = box_psw.Text
            OpenVideoSource(stream)
        Catch ex As Exception
            MessageBox.Show("Erreur lors de la connexion au flux vidéo : " & ex.Message)
        End Try
    End Sub
 
 
    Private Sub OpenVideoSource(ByVal source As IVideoSource)
        Try
            Me.Cursor = Cursors.WaitCursor
            Me.CloseVideoSource()
            Me.videoSourcePlayer.VideoSource = source
            Me.videoSourcePlayer.Start()
            Me.le_timer.Interval = 2000
            Me.le_timer.Start()
            Me.Cursor = Cursors.[Default]
        Catch ex As Exception
            MessageBox.Show("Erreur lors de la lecture du flux vidéo : " & ex.Message)
        End Try
 
    End Sub
 
 
 
    Private Sub Le_timer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles le_timer.Tick
        Dim videoSource As IVideoSource = Me.videoSourcePlayer.VideoSource
 
        If (videoSource IsNot Nothing) Then
            Dim framesReceived As Integer = videoSource.FramesReceived
            PictureBox2.Image = videoSourcePlayer.GetCurrentVideoFrame
            PictureBox2.Refresh()
        End If
    End Sub
 
 
    Private Sub videoSourcePlayer_NewFrame(ByVal sender As Object, ByRef image As Bitmap) Handles videoSourcePlayer.NewFrame
        PictureBox2.Image = image
    End Sub