Salut à tous,
 
Un petit bilan de la soirée qui a été plutot bonne notamment grâce a une connection acceptable
 
Tout d'abord SYRTools 2.2 est fini (mais à débugger. enfin pas trop j'espère!).
Il intègre un objet serveur multi-client simultané sur lequel peuvent se connecter des WebCams ou télécommande en remote.
On pourrait d'ailleurs connecter n'importe quel objet: des filtres reglables a distance, un gestionnaire de la parole,...
Le serveur étant intégré à SYRTools on pourrait aussi très facilement faire un serveur sur Marcel qui se connecterait au serveur de SYR toutes les 5 secondes par exemple pour mettre les images à disposition des internautes. N'étant connecté sur SYR que la personne qui commande (image 320x120 (cf ci dessous) et télecommande) et Marcel (image 320x120)
Dim SVR1 as New Server 'On crée un objet serveur
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é
 
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