首先原谅我的英语我说的是西班牙语。我找到了答案。1/首先放入预设,我有这个例子“输出格式 MPEG2 DVD HQ”
-vcodec mpeg2video -vstats_file MFRfile.txt -r 29.97 -s 352x480 -aspect 4:3 -b 4000k -mbd rd -trellis -mv0 -cmp 2 -subcmp 2 -acodec mp2 -ab 192k -ar 48000 -ac 2
这条指令可以让一个 txt 文件不要忘记-vstats_file Mitxt.txt
像示例一样将命令包含到预设中。这可以在您的文件 Source 的文件夹源中生成一个 ubicadet 的报告。如果你愿意,你可以输入任何名字,然后你可以用这个例子来阅读这个 txt。
Private Sub Timer1_Timer()
Dim strLastLine As String
'For example my ruta "C:\Documents and Settings\Gortiz\Mis documentos\file.txt"
strLastLine = ReadLastLineOfFile("C:\Documents and Settings\Gortiz\Mis _ documentos\file.txt")
Lst1.AddItem strLastLine
End Sub
Function ReadLastLineOfFile(sFileName As String) As String
Dim objFSO, TS
Dim sTmpContents As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TS = objFSO.OpenTextFile(sFileName, 1)
sTmpContents = TS.ReadAll
TS.Close
Set TS = Nothing
Set objFSO = Nothing
ReadLastLineOfFile = Split(sTmpContents, vbCrLf)(UBound(Split(sTmpContents, vbCrLf)) - 1)
End Function
在一个名为的列表框中,Lst1
您可以看到结果。比特率、处理帧、处理时间(以秒为单位)。ETC