SVR1.Show ' on
l'affiche
Dim WC1 as New WebCam 'on crée une
webcam
WC1.Connect("Camera_Gauche") 'on la connecte
Dim RC1 as New RemoteControl ' on
crée une télécommande
RC1.Connect(2) 'on la connecte sur le Port
Com 2
Dim DIB1 as New DIB 'on crée une
image
SVR1.ConnectObjects(DIB1,"DIB1") 'on met
l'image à disposition du serveur
SVR1.ConnectObjects(RC1,"RC1") 'on
met la télécommande à disposition du
serveur
SVR1.Connect(12345) 'On connecte le serveur
sur le port 12345
Do ' après en boucle...
DIB1.GetFromWebCam(WC1) 'on
récupère l'image de la WC dans DIB1
Doevents 'on rend la main au
système
Loop until not(SVR1.visible) 'on boucle
jusqu'à ce que le serveur soit fermé
- Un ordinateur distant peut alors récupéré
les images et commandé SYR avec (toujours grossomodo):
Dim WC1 as new WebCam
WC1.connect("syr.dyndns.org",12345,"DIB1",50) '50 étant la
qualité JPG entre 0 et 99
Dim RC1 as new RemoteControl
WC1.connect("syr.dyndns.org",12345,"RC1")
WC1.Show
RC1.Show
dim DIB1 as new DIB
Do
DIB1.GetFromWebCam(WC1)
Loop
Selon le meme principe on peut récupérer les deux WC.
D'ailleurs vu que le serveur utilise SYRTools on peut
concaténer assez aisément les deux images en une seule.
(en effet il est plus efficace de compresser une image de 320x120
que deux de 160x120).
si DIB1 et DIB2 contiennent les deux WC en 160x120 alors
DIB3.Create(320,120)
DIB3.BltOperation(DIB3,DIB1,1,1,vbSrcCopy)
DIB3.BltOperation(DIB3,DIB2,161,1,vbSrcCopy)
Permet la concaténation:
Par contre on a un problème de bande passante semble-t'il.
De temps en temps l'image est bizarre:
de plus le problème de bande passante se voit aussi au
temps de traitement. Avec 1 WC on a plusieurs image par seconde.
Avec les deux Webcams c'est extrêmement aléatoire.
Généralement une fonctionne rapidement et l'autre a
un taux de rafraichissement qui rend les choses inutilisable pour
commander le robot. D'autre part le mode de fonctionnement étant
séquentiel l'acquisition des deux images sera au moins aussi
lente que la plus lente des acquisitions...
La qualité du JPG étant règlable, on obtient
différente taille et différent nombre de frame/s selon la
qualité.
Les images en qualité 10 restent exploitables:
en qualité 50 c'est mieux
et en qualité 99 presque du bmp:
Ici on avait éteint la caméra droite pour ne pas
avoir le problème de bande passante et donc avoir un nombre de
frame / seconde correct.
Il reste a peu pres conforme à la courbe ci dessous:
Voila!
Concernant la télécommande les tests nous ont
montré qu'elle fonctionne et qu'on peut donc commander SYR
à distance.
Il reste toutefois du débugage à faire...
On fera peut-etre un test demain.
Bon sinon j'ai retiré pas mal de programme qui
démarrait au démarrage de windows avec msconfig et ca
nous a aidé je pense.
j'ai aussi fait une update de windows...
Voila! C'est tout pour ce soir!
A+
Nico