Merci _HELLO : c'est tiptop...
Diverses propositions :
1) Pour visualiser la video pendant l'enregistrement, peut on rajouter un checkbox dans l'interface et rajouter (si checkbox1.value) l'option --sout-display dans la commande qui lance l' enregistrement. je propose de le cocher par defaut (propriété "Initial State / value" cochée).
2) On peut aussi imaginer le plein ecran (+ 2eme checkbox, = checkbox2 ) en rajoutant l'option --fullscreen si le checkbox2 est coché. Laissée non cochée par défaut (car requiert + de ressources). Mais prévoir de programmer "ESC" pour en sortir...
Sub_Action()
dim s as shell
dim option1, option2, fichier, commande, canal as string
s = New Shell
if CheckBox1.Value then
option1 = " --sout-display "
else
option1 = " "
end if
if CheckBox2.Value then
option2 = " --fullscreen "
else
option2 = " "
end if
commande = "/Applications/VLC.app/Contents/MacOS/VLC -vvv rtsp://mafreebox.freebox.fr/freeboxtv/" + canal + " --sout file/ts" + fichier + option1 + option2
s.execute commande
3) Ensuite, le prog implique que VLC soit dans le dossier Applications, ce qui n est pas forcément le cas (chez moi par ex., je mets les apps perso dans un dossier apps et des sous-dossiers video, graphiques, texte etc) sinon /Applications est trop encombré.
On peut rajouter un BevelButton ou un PushButton (on peut penser a un panneau de prefs mais ca fait + compliqué pour pas grand chose) pour localiser VLC.app (si pas dans /Applications) et rajouter "/VLC.app/Contents/MacOS/VLC" au chemin d'acces obtenu via le PushBouton et balancer le code suivant dans son "Action" class :
Sub Action()
Dim f As FolderItem
f=GetOpenFolderItem("?
")
If f <> Nil Then
chemin= f.AbsolutePath + ".app/VLC.app/Contents/MacOS/VLC"
end if
EndSub
definir la variable chemin comme "New propertie" bien sur !
A +, FF