aprè avoir pas mal galéré pour trouver les références de l'activeX de VLC, lequel choisir, comment lui faire manger des fichiers ou des DVD, j'ai réussi à peu près:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 var Voption : array of String; CheminChaine : String; begin CheminChaine := 'dvd://'+mrl_text.Text ; VLC1.playlistClear; VLC1.addTarget(CheminChaine,'vout-filter=deinterlace,deinterlace-mode=blend',8,0); VLC1.play;
mais là ou je galère, c'est que l'activeX ne semble pas prendre en compte l'entete DVDsimple: là ou en script il le digère sans problème, à la lecture ou l'encodage:
quelqu'un a déjà lu directement le film sans passer par la phase menu via l'activeX ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 var mpeg_file : string; Voption : array of String; CheminChaine : String; begin CheminChaine := trim(mrl_text.Text) ; mpeg_file := '/c start "Mpeg2TS" /MIN "'+vlc_acces_text.text+'vlc.exe" dvdsimple://'+CheminChaine+' :sub-track='+st.text+' :audio-track='+audio.text+' :sout=#transcode{vcodec=mp4v,vb=1024,scale=0.5,acodec=mpga,ab=192,channels=2,soverlay,vout-filter=deinterlace,deinterlace-mode=blend}:duplicate{dst=std{access=file,mux=mp4,dst="'+directorylistbox1.Directory+'\'+dest_filename.Text+'.mp4"}}:sout-all '; RunAndWaitShell(pchar('cmd.exe'),Pchar(mpeg_file),Sw_HIDE);
Partager