部分關鍵性函式如下
Function Try_Framerate (String F_N, float "F_r") {
Try {
v = DirectShowSource(F_N, default(F_r, 30))
time_numA=v.Framecount
time_numB=v.Audiolength/v.Audiorate
vclip_Framerate=time_numA/time_numB
msg_str=String(vclip_Framerate)
}
catch(msg_str) {
}
return msg_str
}
#####主程序開始#####
Str_Frame_rate = Try_Framerate(Work_Movie_File, 30)
Frame_rate = Value(Str_Frame_rate)
DirectShowSource(F_N, Frame_rate)
第一行之30是假設值設計上隨意(亦可省去變成 ...Try_Framerate(Work_Movie_File)
使用上以後只需要填寫 F_N 就好了(檔案路徑暨檔名)
不再需要用 AVIcodec 測得 [FPS]
