CAMERA IP

scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 - 26 déc. 2009 à 10:00
scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 - 26 déc. 2009 à 10:34
Bonjour,
je cherche un moyen de recuperer la vidéo d'une camera sur ip
J'ai deja recuperer l'ocx Gif89Lite ,par contre je ne vois pas à quoi correspond "cam".
voici un exemple que j'ai trouvé:
##########################################################
Bonjour à tous,
J'ai le même soucis que vous avec une camera DCS-900. Autodidacte en VB6, j'ai bêtement regardé le code html (java script) lorsque je me connecte à la camera avec mon navigateur Internet (connection avec JAVA et non activeX). De là j'ai décortiqué les infos et j'ai écris dans VB: (dans le Form_Load)

cam.PreviewHeight = 240
cam.PreviewWidth = 320
cam.RemoteHost = "192.168.1.1:80"
cam.Timeout = 5000
cam.PreviewFrameRate = 2
cam.DeviceSerialNo = "TGF1cmVudDpMYXVyZW50"
cam.Play


Tous ceci avec comme OCX xplugLiteDL.ocx que l'on retrouve dans la liste des composants sous le nom Gif89Lite 1.0.

Et sa marche....

Bonne continuation.
LG
##########################################################
Si quelqu'un peut m'aider merci d'avance

1 réponse

scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 9
26 déc. 2009 à 10:34
Voici je viens de trouvé ca mes rien ne se passe?
quelqu'un aurai une idée????

Dim cam As GIF89Lib.Gif89aLite
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cam = New GIF89Lib.Gif89aLite
cam.PreviewHeight = 240
cam.PreviewWidth = 320
cam.RemoteHost = "192.168.1.90:80"
cam.Timeout = 5000
cam.PreviewFrameRate = 2
cam.DeviceSerialNo = "YWRtaW46YWRtaW4"
cam.Play()


End Sub
-1
Rejoignez-nous