Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011
-
21 août 2008 à 17:49
Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011
-
5 janv. 2009 à 20:12
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 .
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 201316 25 août 2008 à 09:59
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<
Anguel
Messages postés31Date d'inscriptionmardi 8 novembre 2005StatutMembreDernière intervention15 septembre 2011 5 janv. 2009 à 20:12
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