|
|
|
|
|
|
|
|
|
|
- Présentation
- Exemple d'utilisation
Exemple de gestion des vidéos (retransmises par un champ Caméra) (syntaxe préfixée)
Dans cet exemple, l'application étudiée permet de : - visualiser la séquence vidéo actuellement retransmise par la caméra installée sur le poste en cours.
- modifier la configuration du driver de capture vidéo.
- sauvegarder la séquence vidéo actuellement retransmise par la caméra spécifiée sous forme d'une image (fichier BMP) ou d'une séquence vidéo (fichier AVI).
Pour réaliser cette application : - Créez une fenêtre vierge :
- Cliquez sur
 parmi les boutons d'accès rapide. - La fenêtre de création d'un nouvel élément s'affiche : cliquez sur "Fenêtre" puis sur "Fenêtre".
- Dans l'assistant, sélectionnez "Vierge".
- Dans cette nouvelle fenêtre :
- Créez un champ Caméra nommé "CAM_Caméra" : sous le volet "Création", dans le groupe "Champs graphiques", déroulez "Vidéo et capture" et cliquez sur "Caméra".
Remarque : Par défaut, la caméra associée à ce champ correspondra à la caméra par défaut du poste en cours. - Créez un champ Bouton nommé "BTN_Filmer" : sous le volet "Création", dans le groupe "Champs usuels", cliquez sur "Bouton".
Ce champ Bouton permettra d'afficher la séquence vidéo dans le champ Caméra. - Créez un champ Bouton nommé "BTN_Configuration" : sous le volet "Création", dans le groupe "Champs usuels", cliquez sur "Bouton".
Ce champ Bouton permettra de modifier la configuration du driver de capture vidéo. - Créez un champ Bouton nommé "BTN_Image" : sous le volet "Création", dans le groupe "Champs usuels", cliquez sur "Bouton".
Ce champ Bouton permettra de sauvegarder la séquence vidéo actuellement retransmise sous forme d'une image (fichier BMP). - Créez un champ Bouton nommé "BTN_Vidéo" : sous le volet "Création", dans le groupe "Champs usuels", cliquez sur "Bouton".
Ce champ Bouton permettra de sauvegarder la séquence vidéo actuellement retransmise sous forme d'une séquence vidéo (fichier AVI). - Créez un champ Bouton nommé "BTN_Arrêter" : sous le volet "Création", dans le groupe "Champs usuels", cliquez sur "Bouton".
Ce champ Bouton permettra d'arrêter l'affichage et/ou la sauvegarde de la séquence vidéo dans le champ Caméra.
- Dans l'événement "Clic" du champ Bouton "BTN_Filmer", saisissez les lignes de code suivantes :
ResAffiche est un booléen
ResAffiche = CAM_Caméra.Affiche()
SI ResAffiche = Faux ALORS Erreur(ErreurInfo())
- Dans l'événement "Clic" du champ Bouton "BTN_Configuration", saisissez les lignes de code suivantes :
- Dans l'événement "Clic" du champ Bouton "BTN_Image", saisissez les lignes de code suivantes :
ResSauvImg est un booléen
ResSauvImg = CAM_Caméra.Capture("Temp.gif", viCaptureImage)
SI ResSauvImg = Faux ALORS
Erreur(ErreurInfo())
FIN
FichierImage est une chaîne
FichierImage = fSélecteur(fRepExe(), "Image", ...
"Enregistrer sous...", "BMP" + TAB + "*.BMP", "bmp", fselCrée + fselExiste)
SI FichierImage ~= "" ALORS
fSupprime("Temp.BMP")
SINON
fRenomme("Temp.BMP", FichierImage)
FIN
- Dans l'événement "Clic" du champ Bouton "BTN_Vidéo", saisissez les lignes de code suivantes :
ResSauvVidéo est un booléen
ResSauvVidéo = CAM_Caméra.Capture("Temp.avi", viCaptureVidéo, 180)
SI ResSauvVidéo = Faux ALORS
Erreur(ErreurInfo())
FIN
FichierVidéo est une chaîne = fSélecteur(fRepExe(), "Vidéo", ...
"Enregistrer sous...", "AVI" + TAB + "*.avi", "avi", fselCrée + fselExiste)
SI FichierVidéo ~= "" ALORS
fSupprime("Temp.avi")
SINON
fRenomme("Temp.avi", FichierImage)
FIN
- Dans l'événement "Clic" du champ Bouton "BTN_Arrêter", saisissez les lignes de code suivantes :
ResArrête est un booléen
ResArrête = CAM_Caméra.Arrête()
SI ResArrête = Faux ALORS Erreur(ErreurInfo())
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|