1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| // Sauvegarde de la séquence vidéo actuellement retransmise
// dans le champ "CAM_Caméra" sous forme d'une AVI de 3 minutes
ResSauvVidéo est un booléen
ResSauvVidéo = VidéoCapture(CAM_Caméra, "Temp.avi", viCaptureVidéo, 180)
SI ResSauvVidéo = Faux ALORS
Erreur(ErreurInfo())
FIN
// Sélection du fichier à créer
FichierVidéo est une chaîne = fSélecteur(fRepExe(), "Vidéo", ...
"Enregistrer sous.....", "AVI" + TAB + "*.avi", "avi",...
fselCrée + fselExiste)
// Renomme le fichier AVI créé
SI FichierVidéo ~= "" ALORS
// Suppression du fichier temporaire
fSupprime("Temp.avi")
SINON
// Renomme et déplace le fichier généré
fRenomme("Temp.avi", FichierImage)
FIN |
Partager