Connecter et afficher serveur video ( camera IP)

Signaler
Messages postés
31
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
15 septembre 2011
-
Messages postés
31
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
15 septembre 2011
-
Bonjour ,



  Voila mon soucie , j’ai un appareille ( DVR – digital vidéo recorder ) brancher en réseau  il a un adresse local   : 192.168.0.34    , il est fournie avec un programme  « NetworkVewer »  avec laquelle on peu le manipuler  en direct . Aussi  on peut l’appeler avec l’internet  explorer http://192.168.0.34 , dans les deux cas il faut entrer  user et mot de passe .


Mon question est  quelle procédure je dois utiliser pour pouvoir se connecter et voir l’image de ce appareil en réseau en savant que il faut « user et password » .


Il supporte les protocoles  http , ftp tcp/ip  ect ….



  Je veut pouvoir lire le vidéo en direct dans un  Picture box !



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




Merci d’avance .



 




J’ai déjà cherche dans le forum mais je ne rien trouvé utile .







Anguel

3 réponses

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
13
Tu peux espionner les paquets via WireShark (anciennement Ethereal) ou via Proxomitron.
En HTTP il faut ajouter un header "Authenticate" : sa valeur est un base64 d'une chaine "Utilisateur:motdepasse"
_________________________________________________________________________
VB.NETis good ...VB6is better<
Messages postés
31
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
15 septembre 2011

Merci ghuysmans99 , je vais essayer tes conseilles et je te tiendrai au courant

Anguel
Messages postés
31
Date d'inscription
mardi 8 novembre 2005
Statut
Membre
Dernière intervention
15 septembre 2011

Bonjour.
En fin j'arrivé a faire qqchose : 
Avec le code suivant je me connect avec le stocker desiré et je vois son image
J'enregistre en boucle 100 images successives dans un dossier de lequels je peu prendre photo.Le photo j'enregistre dans un dossier avec dimenssions personalisé.
En clickant sur l'image je vois en live ou pause ( avec la variable Clik )
Si quelqun il y a des suggestion je suis preneur , J'ai besoin d'aide pour pouvoir le faire mieu functionner.

Realisé ave visual studio 2008  , sur la forme1 il fault inserer Deux PictureBox la pictureBox2 en premier plan , Quatre boutons nomme : premier" bouton1" deuxieme "Gauche" troisieme "Droite" et Quatrieme" Photo"
Imports System.Net.Sockets
Imports System.Drawing.Imaging
 Public Class Form1
Dim Wc As New System.Net.WebClient
    Dim Host, N As String
    Dim Xs As String
    Dim Clik As Integer = 0

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _ System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Clik = 0
        Wc.Dispose()
        Wc = Nothing

    End Sub

 Sub conecter(ByVal Xs As String)
        ' Ici le Xs  c'est le derniere numero de l'adresse reseau du DVR
        Host = "http://192.168.0." & Xs & "/login1?user=pier&pw=5555"
        ' L'acces dans le stocker par la page Host avec login et mot de passe
        Dim log As System.IO.Stream = Wc.OpenRead(Host)

        log.Dispose()
        log = Nothing
    End Sub

Sub Aficher(ByVal Xs As String)

        'Lecture en stream l'image actuel
        Dim Ws As System.IO.Stream = Wc.OpenRead("http://192.168.0." & Xs & "/dms*.jpg")
      

        'Affectation de Stream image a la pictbox
        PictureBox1.Image = System.Drawing.Image.FromStream(Ws)
        PictureBox2.Image = PictureBox1.Image

    End Sub
 Sub Live()
        Dim MyWebClient = New System.Net.WebClient()
        Dim ImageStream As System.IO.MemoryStream
        Dim i As String = "001"

        'Declaration du Tableau lequel va contenir les donnes
        Dim ImageInBytes() As Byte
        'Bucle infinie pour voir l'images en live
        Do
            'Telechargement des images du Stocker
            ImageInBytes = MyWebClient.DownloadData("http://192.168.0." & Xs & "/dms*.jpg")

            'CREE UN MemoryStream en utilisant le tableau de Bytes
            ImageStream = New System.IO.MemoryStream(ImageInBytes)
            Dim fs As System.IO.FileStream

            If i < 10 Then
                i = "00" & i
            Else
                i = "0" & i
            End If
            On Error Resume Next
            Kill("I:\Stocker\Image" & i & ".jpg")
            fs = New FileStream("I:\Stocker\Image" & i & ".jpg", FileMode.CreateNew, FileAccess.Write)

            fs.Write(ImageInBytes, 0, ImageInBytes.Length)

            fs.Close()
            i = i + 1
            If i > 100 Then i = 1
            'Forcer le refrechissement d'image lequel nous donne le live
            PictureBox2.Refresh()
            'Pour pouvoir sortire de la boucle
            System.Windows.Forms.Application.DoEvents() ' indispensable sinon ça marche pas! Arette la boucle de que il y a un evenment : (souri ou clavier)
            'Afectation de Picture box l'image de stream
            PictureBox2.Image = Image.FromStream(ImageStream)

        Loop While Clik = 1
        N = i
        PictureBox2.Image = Image.FromFile("I:\Stocker\Image" & i & ".jpg")
        PictureBox2.Refresh()
        MyWebClient = Nothing
        ImageStream.Dispose()
        ImageStream.Close()
        ImageInBytes = Nothing

    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click

        ' terminaison texte d'un image JPEG ÿÙ
        Dim SocketM1 As New System.Net.Sockets.TcpClient()
        Xs = "11"
        SocketM1.Connect("192.168.0." & Xs, 80)
        conecter(Xs)
        Aficher(Xs)
        SocketM1.Close()
        SocketM1 = Nothing

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click        If Clik 1 Then Clik 0 Else Clik = 1

        Live()
    End Sub
    Private Sub Gauche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gauche.Click
        Clik = 0
      
        N = N - 1
        If N < 1 Then N = 100
        If N < 10 Then
            N = "00" & N
        Else
            N = "0" & N
        End If
        PictureBox2.Refresh()
        PictureBox2.Image = Image.FromFile("I:\Stocker\Image" & N & ".jpg")

    End Sub
    Private Sub Droite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Droite.Click
        Clik = 0

        N = N + 1
        If N > 100 Then N = 1
        If N < 10 Then
            N = "00" & N
        Else
            N = "0" & N
        End If
        PictureBox2.Refresh()
        PictureBox2.Image = Image.FromFile("I:\Stocker\Image" & N & ".jpg")

    End Sub
   
   
    Private Sub Photo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Photo.Click
        ' Prend le source comme bitmap.
        Dim bm_source As New Bitmap(PictureBox2.Image)

        ' Faire une bitmap de l'image.
        Dim bm_dest As New Bitmap(bm_source, 740, 480)
        Dim FichN As New DirectoryInfo("D:\Images Stocker")
        ' Cree un tableau qui represent les fichiers dans le dossier.
        Dim fi As FileInfo() = FichN.GetFiles()
        Dim XL As Object

        XL = fi.Length

        If XL < 10 Then

            XL = "000" & XL
        Else
            If XL < 100 Then
                XL = "00" & XL

            Else
                If XL < 1000 Then
                    XL = "0" & XL
                End If
            End If
        End If
        ' sauvegarde l'image en derniere position
        bm_dest.Save("D:\Images Stocker" & XL & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub

  
   
 End Class
Anguel