Discussion :

[bouillant]

Bonjour à tous,

Débutant avec Windev, je cherche à intégrer un ActiveX destiné à afficher la vidéo d'une caméra.
Pour la caméra, c'est une AXIS. J'ai installé le SDK et trouvé l'AcitveX correspondant (AXIS MEDIA CONTROL CLASS)


J'ai tiré les infos suivantes de la doc (pour VB6.0)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Cmd_PlayLive_Click()
 
  ' Set the media URL and the media type
  AMC.MediaURL = "http://10.13.9.123/axis-cgi/mjpg/video.cgi"
  AMC.MediaType = "mjpeg-unicast"
 
  ' Start the download of the mjpeg stream from the Axis camera/video server
  On Error GoTo ErrorHandler
  AMC.Play
  Exit Sub
 
ErrorHandler:
  MsgBox "Error: " & Err.Description
 
End Sub
 
Private Sub Cmd_StopPlay_Click()
 
  AMC.Stop
 
End Sub

Je n'arrive pas à "traduire" cela et surtout à initialiser le contrôle.

Est-ce qu'un PRO de Windev pourrait m'aiguiller sur la façon de procéder ?

Tous mes remerciements par avance

[klbsjpolp]

Bonjour et bienvenu,

Pour contrôler un champ ActiveX par programmation, tu devrais commencer par rechercher dans l'aide à "Manipuler un ActiveX par programmation". Tu y apprendras que les appels de fonctions et l'accès aux propriétés se fait en utilisant l'opérateur >>.

Par exemple, si ton champ s'appelle AMC et que tu veux affecter une propriété s'appelant MediaURL, tu ferais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AMC>>MediaURL = "http://10.13.9.123/axis-cgi/mjpg/video.cgi"

[bouillant]

Bonjour et merci pour l'accueil (surtout pour la réponse trés rapide).

Malgré ces conseils (parfaitement indiqués dans la doc), je n'arrive toujours pas initialiser correctement l'activeX.

Pas doué le gars

J'essaie encore ! Persévérance !!!

[frenchsting]

Ton acticeX est bien reconnu dans windev ?

Tu l'as renommé en AMC ? Par défaut, Windev donne le nom AX_ActiveX1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Création d'un  objet automation dynamique
MonClasseur est un objet automation dynamique
 
// Instance de Excel existante ?
SI ObjetActif("Excel.Application") <> Null ALORS
	// Récupération de l'instance de Excel existante
	MonClasseur = ObjetActif("Excel.Application")
SINON
	// Allocation de l'objet automation "MonClasseur"
	MonClasseur = allouer un objet automation "Excel.Application"
FIN
SI MonClasseur = Null ALORS
	Erreur("Impossible de lancer Excel.")
	RETOUR
FIN

Voilà ce que j'utilise pour initialiser un activeX pour Excel. En remplacement MonClasseur par MaBelleCameraAxisEnIP, et en faisant des trucs du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
AMC>>MediaURL = "http://10.13.9.123/axis-cgi/mjpg/video.cgi"
AMC>>MediaType = "mjpeg-unicast"

[bouillant]

Bonjour,

Merci pour votre aide. Cela fonctionne nickel désormais.

J'aurais simplement une autre demande sur le même sujet :

J'ai plusieurs caméra à visionner (plusieurs IP), je voudrais les afficher en miniature dans la même fenêtre.
Comment mettre ces 3 fenêtres ? Si je rajoute un contrôle ActiveX, il m'indique que les AMC... sont déja utilisées.

Merci de votre aide!!! Promis, c'est ma dernière demande

[frenchsting]

rien ne t'empeche de mettre 3 activeX.

AMC1 (adresse IP1), AMC2 (adresse IP2) et AMC3 (adresse IP3)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AMC1, AMC2, AMC3 sont des objets automation dynamique

Je pense qu'on doit pouvoir créer des instances dynamiquement, mais je ne sais pas trop comment faire ça proprement.

En passant par une classe (regarde l'exemple de pilotage Excel). Tu instancies tes 3 objets...

[bouillant]

Bonsoir,

Avec un peu de retard, merci à tous pour votre aide.


Fonctionnement OK désormais.