FFMPEG 转码过程中 VB 6.0 中的进度条

发布于 2024-08-16 13:44:22 字数 285 浏览 4 评论 0原文

首先请原谅我的英语太怪异了。抱歉，

我有一个大问题，我需要在 VB6.0 中完成我的应用程序，以便在高中进行测试，但我找不到解决方案，我的应用程序打开一个 FFmpeg.EXE 文件，该文件打开一个 cmd 窗口提示并开始转码过程中，我需要将生成的最后一行链接到CMD窗口的提示符（或顶部底部）中，在这一行中存在值发生变化，在这个转码过程中结果是比特率，它根据其他变量而波动。这个想法就是我的应用程序的形式是什么，我可以实时读取这一行来构建进度条（文件大小/比特率平均值）=处理时间。

你能帮助我吗。感谢您的回答....

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

久隐师 2024-08-23 13:44:22

引用Windows 脚本宿主对象模型并尝试此代码片段

Option Explicit

Private Sub Command1_Click()
    Dim oExec       As WshExec
    Dim sRow        As String

    With New WshShell
        Set oExec = .Exec("tasklist.exe")
    End With
    Do While oExec.Status = WshRunning
        sRow = oExec.StdOut.ReadLine
        If InStr(1, sRow, "vb6.exe", vbTextCompare) > 0 Then
            MsgBox sRow, vbExclamation
        End If
    Loop
End Sub

基本上尝试执行 FFmpeg.EXE 和 ReadLine，直到找到一些关键文本。

Put a reference to Windows Scripting Host Object Model and try this snippet

Option Explicit

Private Sub Command1_Click()
    Dim oExec       As WshExec
    Dim sRow        As String

    With New WshShell
        Set oExec = .Exec("tasklist.exe")
    End With
    Do While oExec.Status = WshRunning
        sRow = oExec.StdOut.ReadLine
        If InStr(1, sRow, "vb6.exe", vbTextCompare) > 0 Then
            MsgBox sRow, vbExclamation
        End If
    Loop
End Sub

Basicly try executing FFmpeg.EXE and ReadLine until you find some key text.

回复收藏 0 原文